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1.0 INTRODUCTION 


The SCOPE Operating System for the CONTROL DATA 64/65/6600 computers 
provides supervisory control of program execution. It provides the 
user with easy access to and control of all the advanced capabilites 
of the 6000 computer systems, and is designed to ensure optimum per¬ 
formance in processing of jobs. 

SCOPE is in constant control of all jobs, handling storage allocation, 
job scheduling, accounting, I/O control, and operator communication. 
When used on the dual processor 6500, the system allows automatic 
scheduling of dual central processors within the multi-programming 
environment. 

This document is the Internal Maintenance Specification for SCOPE 3.2, 
and supercedes all previous IMS*3. Comments and suggestions for im¬ 
provement are solicited. 
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SCOPE 


2-0 Central flgmory Resident - CfIR 

The Central Memory Resident provides communication between the 
various PP^'s and contains all the information shared by the 
system. 

Both upper and lower memory are used for system storage and 
both ends are of variable length at assembly and execution time- 


CMR includes! 

The CMR Pointer Area which contains various flags and pointers 
to tables contained elsewhere in CM. 

The PP Communication Area which contains ten 6-word areasi one 
for each PPi through which PP-'s communicate with each 
other and monitor. 

The Control Point Area which contains seven EGDB word areasi 
one for each control point. This area contains the ex¬ 
change package-, job name-, and information about the job 
which is running at that control point- 

The CP Resident Area which contains two programs which run at 

control point zero -Cthe storage move programi and the idle 
package>T their exchange packages are also kept in the 
CP Resident area. If there is ECS within the systemi the 
CP area contains also an ECS move program. 

The Equipment Status Table which contains one entry for each 
device -Callocatable or non-allocatable> attached to the 
system. Non-allocatable devices are those which may be 
assigned to a single control point-, e.g.-. magnetic tape 
uniti allocatable devices may be used by many control 
points simultaneously. 

The Channel Status Table which contains one word per channel. 

A channel can be reserved by a peripheral processor via 
a monitor request CH-RCH}*. It can be released directly 
by the peripheral processor without MTR intervention. 

The File Name Table/File Status Table which is composed of as 
many as 3-word entries as there are files in the system. 

An FNT entry is set up at the time that a file is created^ 
it is not accessible to the user. This table provides 
a linkage between the user program and all required I/O 
tables and functions- 

The Attached Permanent File Table which contains a one word 

entry for every permanent file attached to a control point. 
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The Sub-Directory Table which contains a one byte entry per 
permanent file sub-directory -Cother than sub-directory 
zero}- 

The Record Block Reserv/'atlon Area which contains at least one 
Record Block Reservation -CRBR} table for each mass 
storage unit known to the system. Each RBR contains 
ED4fl bits in which each bit indicates whether the corre¬ 
sponding record block is available for assignment to a 
f i le. 

The Request Stack Area which is actually composed of two 

tablesi the Device Status Table -CDST} and the request 
stack itself. The DST contains one E-word entry for 
each mass storage controller known to the systemi it 
is static and its content is defined at assembly time. 
The request stack contains entries which are requests 
for data transfers! device positioning! or logical 
operations on mass storage files. Each entry is two 
words in length. The table grows from high memory to 
low. 

The Program Sequencer Table which contains a one word entry 
for each job running under the control of the program 
sequencer -[APR see Chapter 13}. 

The Installation Area which is reserved for installation use. 

The Dayfile Buffer Area which contains eight File Environment 
Tables and eight buffers! one for the system dayfile and 
one for each of the seven control points. 

The ECS Buffers and Tables {see Chapter 11}. 

The Library Directory which is composed of three sectionsi 
the entry point table! containing 1-word entries^ the 
program name tablet containing E-word entries^ and the 
bodies of the Cfl resident programs. The directory may 
be expanded or contracted as programs are added or de¬ 
leted or as programs residence is changed. 

The Record Slock Table Area {RBT} which is a collection of 
individual file chainsi one for each file on a mass 
storage device currently recognized by the system. Uhen 
a file Is initiated! a single two-word entry is assigned 
to the file. Additional two-word entries are assigned 
to the file as needed. The entries for a given file 
are chained together into a threaded list. The RBT 
empty chain is a pool from which words may be extracted 
to construct file chains and to which words are returned 
when the chains are discarded. The RBT area starts at 
the high end of central memory and extends downward! it 
expands and contracts by IDDB word blocks as files are 
created and released. 
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2.1 CfIR Pointer Area -[Location D-ST of CMR} 

Locations are described below by name in order of their 

occurrence. 

P.ZERO Location 0 - Zero Word 

Location Q of central memoryi known as P-ZERO-. 
is preset by the Dead-Start loader -CSTL} to 
contain a full word of binary zerosi a peripheral 
processor may clear a S-byte area in its memory 
by reading this location. The introduction of a 
non-zero quantity into P«ZER0 would therefore 
destroy the system totally. Location 0 is also 
used as a stop instruction by the CH resident 
and idle program* 

P.LIB Location 1 - Library Pointer 

The library pointer fP.LIB> is used to define the 
size of the resident libraryn including entry point 
and program name tables* Bytes D and 1 {C*DIRFIi)A> 
contain the right Justified Ifl-bit first word 
address of the library directory. Bytes 2 and 3 
contain the right Justified 16-bit last word address 
plus one. Byte M contains a Dead-Start load flagi 
it must always by zero when a disk or recovery Dead- 
Start is attempted. Location 1 is also used as a 
stop instruction in a bSOO system by the program 
idling in the second central processor. 

P. RBR/P.RBT Location 2 - RBR/RBT Pointer 

Record Block Reservation/Record Block Table pointer. 
P.RBR/P.RBT is the joint address of the Record Block 
Reservation table pointer word and the Record Block 
Table pointer. Bytes 0 and 1 -CC.RBRADl- contain the 
right justified 16-bit first word address of the 
RBR table area. Byte 2 contains the RBT word pair 
ordinal of the first member of the RBT empty chain-i 
or zero when the empty chain has no members. Byte 3 
contains the current length/lDDB of the entire RBT 
area. Byte H contains the -Clast word address+l>/lDOB 
of central memory• 

Location 3 - Dayfile Pointer 

P.DFB is the address of the dayfile buffer pointer 
wordi Byte 0 contains the CM address/lQB of the 
dayfile buffer. 

Location H - File Name Table Pointer 
P.FNT is the address of the File Name Table pointer 
word. Byte 0 contains the IH-bit first word address^ 
byte 1 contains the IB-bit last word address plus 
one. 


P.DFB 


P.FNT 
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P.SECS 


P.HEC 

P.CST 


P.EST 


P.NCP 


P.PFni 
P.PFHS 
P.INS 


P.ECST 


P.LECST 


P . Rl3S 


Location M - Program Sequencer Table Pointer 
P*SE(3 is the location o'f the Program Sequencer 
Table pointer word- Byte C-SE(2 contains the table 
starting address/lDB. Byte L-SEfi contains the 
length of the table. 

Location M *• Hardware Error Count Pointer 
Byte C.HEC contains the hardware error count. 

Location S ~ Channel Status Table Pointer 
P-CST is the address of the Channel Status Table 
pointer word. Byte C.CST contains the starting 
address of the table. Byte C-CSTL contains the 
table last word address+i. 

Location S - Equipment Status Table Pointer 
P.EST is the address of the Equipment Status Table 
pointer word. Byte Q contains the lE-bit first 
word address. Byte 1 contains the lE-bit last word 
address plus one. 

Location 5 

Byte C.CNP contains the number of available control 
points. 

Location b - Permanent File Pointer -CSee Chapter lfl> 

Location 7 - Permanent File Pointer -CSee Chapter 16> 

Location 10 - Installation Pointer 

P.INS is the address of a pointer word to an 

installation area. 

Location 11 - ECS Tables Pointer 

Contains S pointers to ECS tables. Each pointer is 
IS bits in length. 

Byte 0 points to ICEBOX I/O Buffer CT.ICEBUF} 

Byte 1 points to ECS Statistics Table {T.ECSTAT} 

Byte S points to ECS Flaw Table -CT.ECFLAUl 

Byte 3 points to Logical Record Definition Table 

CT.LRD} 

Byte 4 points to ECS Information Table CT.ECSTl 

Location 15 - ECS Tables Lengths 
Contains 5 bytes which specify the length of ECS 
tables in P.ECST. The length of each ECS table is 
contained in the byte which corresponds to the 
location of the table pointer {see P.ECST!. 

Location 13 — Request Stack Pointer 
P.R(3S is the address of the request stack area 
pointer word. Byte D {C.ROSCS! contains the stack 
entry word pair count - a count of the number of 
word pairs available for storage of stack entries t 
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SCOPE 


■CljJ.CPSTAT> 

■[m.CPJNAnE> 

•CU.CPECS> 

-cy.cPTinE> 

T.JDATE 

T. CLK 

T.PATE 

T.SLABx 

October ntsT 


computed by subtracting the device status entry 
count -Cbyte 3> from one half the length of the 
stack. Byte 5 CC.RflSFS} contains the first word 
address/E of the actual request stack. Byte 3 
contains the value of N.DEVICEi i.e-T the number 
of mass storage controllers known to the system* 

Byte 4 contains the first word address/lDB of the 
Device Status Table entries^ all DST entries appear 
at the beginning of the request stack area-i followed 
immediately by the actual request stack* 

Location 20 - Control Point Zero Status Uord 
Byte 2 contains the storage move flagn byte 3 
contains D-i and byte 4 the machine field length* 

Location 21 

This location contains the display code constant 
SYSTEM. 

Location 22 

Byte 4 contains the length of ECSJ ECSFL/IOOOB. 

Location 23 , 

This location contains the accumulated CP idle 
timei i.e* time spent at control point zero- -CIt 
also includes time used to move storage.> 

Location 27 . 

This symbol designates the location of today^s date 
in Julian format. The value is computed from the 
date entered by the operator at Dead-Start time- 

Location 3D 

This symbol designates the location in which the 
clock is kept! in the display coded form ^HH.Iin.SS*** 
T.CLK is updated by MTR and displayed on the top 
line of the left scope. The time will be time of 
dayi if a TIME entry to DSD was made’i otherwisei 
it will be the time since Dead-Start. 

Location 31 . • j j 4 . 

This symbol designates the location of today'^s date 
in the form entered by the operator at Dead-Start 
time* The date is displayed on the top line of the 
left scope* 

■Cwhere x = 1 through b> - Location 31 - 3b ^ 

These symbols designate the locations containing^ 
the system label which is displayed on the top line 
of the left scope. 
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T.nsp 


T.nsc 


T.PPSx 


T.PPSQ 


T.UAS 


T.CPTl 


T.STATCP 


T.ECSPAR 


Location 37 

This symbol designates the location of the monitor 
step flag -Cbyte *4} used for communication between 
DSD and MTR while the system is in step mode■ 

Location 40 

T.liSC contains the time to the millisecond since 
Dead-Start. 

Byte 0 = the number of jobs in the PP Job dueue 
Byte li = time in seconds -Creset each seconds} 

Byte E = milliseconds since updating the seconds 
Byte 3-4 = time in MSEC {reset each Ei^s^EM milliscds} 

{where x = liH-i-.-'l} - Locations 41 through SI 
These symbols designate the locations of the PP 
status words {one per PPUl. If the PP is assigned 
to a control pointi byte □ will contain the 
appropriate control point area address. 

Location SE 

This location is used by MTR as a CM scratch word- 
Location 5L 

This symbol designates the location of unassigned 
storage length. MTR keeps a tally of the size of 
the ^holes^ between control points in T.UAS. 

Byte D Central memory UAS {words/10QB> 

Byte 1 ECS UAS {words/lDDDB> 

Location Sb 

This symbol designates the location of the Central 
Processors status bytes. The status is the control 
point area address of the program using the CPU. 
{This address is □□□0 for idle.} 

Byte 3 Active control point address CPU B 

Byte 4 Active control point address CPU A 

Location SL 

This location contains in byte C-STATCP the current 
status of CPU ON/off/delegated- The six low order 
bits indicate the status of CPU At the six high 
order bits the status of CPU B. 

The status of a CPU can be: 

77 non-existent CPU {ti4DD or bbOQ} 

bO CPU OFF {bSDO only} 

44 CPU DELEGATED TbSOO only} 

40 CPU ON 

Location S7 

Word S7B of CMR contains in bytes: 

Dt 1 Unused 

E An ECS Flaw Table Flag which is set to a non¬ 

zero value if the ECS flaw table becomes full. 
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In this case MTU puts the system in step mode and a 
warning message is flashed at the bottom of the right 
screen* 

3 An ECS parity flag which can assume values of 1 or 
2* It is set when a parity error is detected during 
an ECS storage move, and indicates whether 1 or 2 
control points shall have their error flags set to 
F*ERECP* The control point requesting the ECS will 
always have its error flag set* In the case of storage 
overlap and the occurrence of the parity error in the 
part of ECS which belongs to another control point, 
the flag will have the value 2* 

After the flag is set, DSD will display a message 
stating that an ECS parity error has occurred and 
MTR will assign ECS only if it does not involve 
moving storage* These conditions shall prevail until 
the next Dead-Start# 

4 This byte contains the address of the block in ECS/ 
lOOOB in which the parity error occurred# DSD will 
display this value as above* 
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SCOPE 


2,2 PP Connnunieation Areas (Locations 60B - 177B) 

The PP Communication Area contains ten 8-word areas, one for each PP, 
through which PP’s communicate with each other. 


T.PPCx Cx=l - 9) - (60, 70, LOO, 120, 130, 140, 150, 160) 

The T.PPCx symbols represent the first word addressed of 
communication areas for PP*s 1 through 9, respectively. 
The monitor communication area (T,PPG 10) is not used. 


tf,PPlR (0) 

W,PP1R is the relative location of the PP input register 
within a PP communication area. 

W,PP0R (1) 

W,PP0R is the relative location of the PP output register 
within a PP communication area. 

W.PPMESx (x = 1 through 6) 

W.PPMESx are the relative locations of the six words of 
the PP message buffer within a PP communication area. 

Each peripheral processor contains pointers to its Input 
Register, Output Register, and Message Buffer in peripheral 
processor memory locations 75, 76, and 77, respectively* 

The communication areas are used to provide a means of 
communication between MTR and peripheral processor programs. 
When a peripheral processor is idle, its resident program 
continuously scans its Input Register, When MTR has a task 
for that processor, it sets the name of the appropriate 
routine in the Input Register of the idle processor, which, 
when it recognizes the request, loads the routine and 
executes it. MTR regularly scans the Output Register of each 
active peripheral processor. When a peripheral processor 
requires MTR assistance (such as, for example, reserving a 
data channel), it places a code in its Output Register, 

MTR detects the request during its scan of the output 
registers and processes it. When the request has been 
processed, MTR clears the requesting processor’s Output 
Register; this informs the requesting processor that 
the request has been processed. 

The six-word Message Buffer is used to pass parameters and 
messages between MTR and the peripheral processor resident 
programs. 
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SCOPE 3 


2.3 Control Point Araa (Location! 200g - 1777^) 

The control Point Areas contain seven 200g word areas, one for each 
control point. The first 20g words of a control point area contain 
the exchange Jump package for the central processor program which 


may be 

associated with this control point, as follows; 

Word 

bits 0-17 

bits 18-35 

bits 36-53 

0 


AO 

(address registers) 

Program Address (P) 

1 

B1 

(increment register) 

A1 

Reference Address 
(CHRA) 

2 

B2 

A2 

Field Length (CMFL) 

3 

B3 

A3 

Exit Mode (EM) 

4 

B4 

A4 

RA-ECS (bits 36-59) 

5 

B5 

A5 

FL-ECS (bits 36-59) 

6 

B6 

A6 

Monitor address 

7 

B7 

A7 


10 

XO 



11 

XI 



12 

X2 



13 

X3 



14 

X4 



15 

X5 



16 

X6 



17 

X7 




Words 20-152 of Control Point area 


Word 

Mnemonic 


Bytes Item 
Number 


W.CPSTAT 20 0 


C.CFSTAT status of control point 


{see Chapter 5). 


W.CPEF 


I C.CPEF error flag. If no error, C.CPEF=0. If 

error, C.CPEF may contain one of the values 
defined by F.x symbols. 
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Word 


Bytes 

Item 

Mnemonic 


Number 

W.CPSM 

20 

2 

C*CPSM Storage Hove Flag. Mtr sets this to 
non-zero when storage attached to a control 
point Is to be moved; all PP^s operating at 
this control point should pause if C.CPSM ^ 0. 



3 

C*CPRA. RA/IOOB of control point. 

W.CPFL 

20 

4 

C.CPFL. CMFL/IOOB assigned to Control Point. 

W.CPJNAM 

21 

0-3 

Job Name (7 characters) 



4 

C.GPNCSP. Pointer to next control statement. 

W.CPPRI 

22 

0 

C.CPPRI. Job Priority. 

W.GPECS 

22 

3 

RA/IOOOB of ECS words assigned to the control 
point. 



4 

C.CPECFL. FL/IOOOB of ECS words assigned to 
the control point. 

W.CPTIML 

23 

0-1 

C.CPXIML (1) - CP time limit. 

W.CPTIME 

23 

2-3 

CPU time (sec.) 



4 

CPU time (milliseconds) 

W.PPTIME 

24 

1 

Loader flag 



2-3 

PPU time (sec.) accumulated by the job. 



4 

PPU time (milliseconds) 

W.ECTIME 

25 

2-3 

CPU time used for ECS transfers (sec.) 



4 

CPU time used for ECS transfers (milliseconds) 

w.ssw 

26 

0-4 

Sence switch settings 

W.EQP 

27 

0-4 

Current equipment assignment. Bits 59 through 0 
correspond to equipment 01 through 74B respectively 

W.CPDFM 

30-37 


Last dayfile message 

words 30-34 — 1st display line 

words 35-57 = second display line 

W.CPERT 

40 

0 

C.CPPWCT - Number of CM words removed from 
current PEU In control card record. 



1 

C.CPCCST - Status of last read of control card 
record of input file. 



2 

C.GPFST - Pointer to FST of input file 



3 

C.CPFP - Various flags (see figure). 
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SCOPE 


Word 

Mnemonic 


Bytes 

Number 

Item 

W.GKP 

40 

4 

C.CKP number of checkpoints 

W.CPJCP 

41 

1-2 

C.CPTLl initial job time limit 



3 

C.CPECSI initial ECS FL 



4 

C.GPFLl initial CM FL 

W.GPCAF 

51 

« 

* 

0-4 

first 

Control card buffer first. Contains relative 
first word address within control point area 
of the lOOB word buffer containing the current 
control card PRU. 

W.CPCAL 

150 

0-4 

Control card buffer last. Relative last word 
address within control point area of a lOOB 
word buffer containing the current control card 
PRU. 

W.FSTCC 

151 

0-4 

FST entry (FNT word 2) for the job input file. 
Designates the position on the device of next 

PRU of control cards. 

W- CPLDR 

152 

2 

C.CPLAI loader already-in flag 



3 

C.CFLDR3 loader map option 

W.CPRO 

152 

4 

C.CPRO roll-out flag 

W.CPFIAG 

153 

1 

C.CPFLAG - contains RERUN flags 



2 

C.CPRPRI - designates the RERUN priority 

W.CPOUT 

153 

3 

C.CPOUT - flags to DSD that the job at this 
control point is an OUTPUT file. 

W.GPOAE 

153 

4 

C.CPOAE - designates operator assigned equipment 

W.CPVRNO 

154 


Visual reel number (transmitted from console 
by the operator to the tape labelling routine) 

W.GPDFMC 

155 

0 

C.CPDFMC - dayflle message count 

W.CPRESl 

156 

O 

t 

Used by RESPOND 

W.CPAR 

157 

0-4 

Auto-recall pointer. This pointer contains in 
the low order 77 bits a relative address of a 
word within the program field length; the program 
remains in recall until the low order bit of that 
word becomes one indicating operation completed. 
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Word 

Mnemonic 


Bytes 

Number 

Item 

W.CPPFl 

160 

0-4 

Used by permanent file manager 

W.CPPF2 

161 

0-4 

Used by permanent file manager 

W.CPINS 

170-177 


Reserved for Installations. 


2-X5 
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2^4 Central Processor Resident Program 

The CP resident area contains programs which run at control point 
N-CP4-1 with a priority of 7777E* They all share the same exchange 
package, located at (N*CP+1)^200B, where 

CM EA = 0 CM FL ^ 377 777B 

ECS RA = 0 ECS FL ^ 10 000 OOOB 

The programs are initiated by MTR, following a storage or a M*ICE 
request {see Chapter 5), Only one program is initiated at a time; 
it completes its execution by jumping to location zero# 

Currently MTR recognizes 3 CP resident programs; 

1 - CM storage move program 

2 - ECS storage move program 

3 - ECS transfer program 

The CP resident area nay also contain a central exchange jump pro¬ 
tection program and its own exchange package# This program (only 
assembled if IP.XJ ^ 0) is initiated by any user program executing 

a central exchange jump* It will simulate an error mode 10 before 
jumping back to location zero of the user program* 


2*5 Equipment Status Table 

The Equinment Status Table contains one (one-word) entry for each 
device (allocatable or non-allocatable) attached to the system# 

Non-allocatable devices are those which may be assigned to a single 
control point, e,g. magnetic tape unit; allocatable devices may be 
used by many control points simultaneously# 

The tableTs base address is provided to the system by T.EST in byte 
zero of the EST pointer in CM location 5. Byte 1 of this pointer 
provides the last word address plus one, i#e# the sum of the contents 
of byte 0 and parameter L*EST designating the length of the table, 
which may vary from the number of entries to lOOB* 

In each entry of the table, bits 12-22 contain a hardware mnemonic, 
a two letter code, indicating a device. The first letter is entered 
in bits 18-22, the second in bits 12-17. For allocatable devices, 
a ^^one” in bit 54 indicates that the device is system resident# 
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2^ 5,1 The EDST tfacro 

The EDST macro is used in CMR to assemble an Equipment Status Table 

(EST) entry for each mass storage unit, and also generates a Device 

Status Table (DST) entry for each mass storage controller. The 

macro call is; 

name EDST type,chanl,chan2,contr,unit#sysres,driver,onoff 

name is an identifier for the unit, one to six characters of which 

the first need not be a letter (e.g,, 6603A Is a legitimate 
unit name); the same name is placed in the location field 
of each RBR macro for this unit, 

type is a two-letter hardware type mnemonic as follows: 

AA 6603-1 disk 

AB 6638 disk 

AC 6603-11 disk 

AD 865 drum 

AP 854 disk peck drive 

AX Extended Core Storage 

chanl is the C<iecinBl) number of the prinmry data channel by which 
the unit can be accessed, 

chan2 is the (decimal) number of the alternate data channel if any, 
or zero or blank if none, 

contr is the equipment number of the control unit, 

unit is the unit number. For a 6603, unit is always zero. For 

a 6638, unit is 0 or 1, For a drum or disk drive, unit is 
0 to 7, 

sysres is 1 if the system library is to be placed on this unit 

by the Dead Start package, or 0 or blank otherwise, 

driver is normally blank, but may be the three-character name 

of the PP program to be used as the Stack Processor for 
this device, 

onoff is 1 if the unites EST entry is to be assembled as turned 
off (bit 23 set), and 0 or blank otherwise. 
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2*6 Channel Statua Table 


The Channel Status Table contains one word per channel. If a channel 
Is not reserved the format of the word Is: 


0000 

CHANNEL 

NUMBER 

unused 

ic 

* 


* = location of the word itself 


If a channel is being used by a peripheral processor program, the format 
of the word will be : 


0000 

I CHANNEL 

I NUMBER 

unused 

* 

PPOR 


PPOK = PF Output Register 
Address 


The channel number for a particular equipment is obtained by a peripheral 
processor program from the Equipment Status Table (ESI) entry for that 
equipment. The program transmits its request for that channel to WTR 
(M.RCH). If the last byte of the entry corresponding to that channel 
shows that the channel is available, MTR enters in this byte the PP 
output register address and notifies the requestor that the channel has 
been assigned. When the requesting processor completes its operation 
on that channel it will drop the channel assignment (directly or via its 
resident) by resetting the last byte to tis primary value. 


The length of the Channel Status Table is currently 24B. This includes 
the 12 hardware channels and the 4 following pseudo-channels- 


Pseudo-channel 14g controlling the access to the File Status Table (FST) 

Pseudo-channel 15 controlling the access to the File Name Table (FNT) 
o 

Pseudo'channel 17^ controlling the access to the Record Block Table (RET) 
Pseudo-channel 23g representing the dump pseudo-channel- 

Peripheral processor programs request these pseudo-channel assignments 
in the same manner as data channel are requested. 


Note: Not all accesses to the FNT/FST entries require channel reservation; 
the function of the interlock scheme is to prevent two (or more) 
processors from attempting to modify the same entry at the same 
timet Pseudo-channel reservations are required in the following 
cases: 

* whenever an entry is added to the FNT/FST 

• whenever a file is assigned to a control point (FNT entry 
modified) 

. whenever the buffer status byte is initialized at the beginning 
of an operation (FST entry modified) 
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2,7 Mass Storage I/O Processing 

In order to comprehend the functions of the various tables involved, 
the SCOPE 3 mass storage I/O processing and the method of allocation 
must be understood. 

Consider the 6603 disk; the 6603 contains 128 cylinders at each of 
8 head group selections (1024 tracks). Each track is divided into 
64 CM word sectors. In order to assign disk space to each of the 
several files existing at any one time within the system, a unit of 
allocation (called a record block) is selected# The SCOPE 3 standard 
unit of allocation on a 6603 disk is a halftrack; each physical track 
is considered to be composed of two half-tracks, one consisting of 
the odd-numbered sectors and the other consisting of the even-numbered 
sectors. Other units of allocation might be selected according to 
rules which are described elsewhere# 

The first table of concern is called the Record Block Reservation 
table (RBR), An KBR contains a set of 2048 bits, each of which 
represents a single record block# If a bit is zero, the corresponding 
Record Block (RB) is unassigned and available for assignment; If a 
bit is one, the corresponding RB is unavailable for assignment (i#e*, 
it is either already assigned to some file or physically unusable). 

Each mass storage unit may have one or more associated RBR tables* 

The bits contained within an RBR represent a section of the disk 
which is to be allocated in a particular way. For instance, one disk 
may have two RBRs, the first of which contains bits for a part of the 
outer zone which is to be allocated by full track; the second RBR 
would contain bits for the renBining portions of the disk, which are 
to be allocated in half-tracks. 

The bits In an RBR must have some definable relationship to each other, 
such that given a physical first word address, the stack processor can 
compute from the position of any bit in the RBR the physical address of 
the record block represented by the bit* 

Understanding of the Record Block Table (RBT) is also required. Each 
nsss storage file within the system has an associated RBT, All RBTs 
are kept in high central memDry* 

When a mass storage file is initiated, a single two-word RBT entry is 
assigned; additional entries will be assigned if needed# Each entry 
is divided into ten twelve-bit bytes, some of which are used as pointers 
to additional entries, other tables, etc. 

The remaining bytes each contain the number of a particular record 
block assigned to the file, in the physical order of their assignment; 
i.e. the first byte contains the number of the first record block, 
and so forth# 

A record block number in an RBT is the ordinal of the bit in an RBR 
which represents that record block. 
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The File Name Table (FNT) contains among other things, the seven * 
character display code file name, the device type on which the file 
resides, and file position Information, expressed as pointers to the 
filefs RBT. 

All three of the above tables reside in the system portion of central 
memory and hence are protected. There is one other table which is 
involved in file processing. This table Is called the File Environment 
Table (FET), The FET resides with the field length of the job using 
the file. The FET contains, among other things, the seven-character 
file name and the buffer pointers. 

To illustrate the use of these tables, consider the creation of a file 
on disk. Assume there is only one standard RBR, A program issues a 
call to the system with the address of the FET, The FET code and 
status bits are set for a write function. An FNT entry is created, 
containing the allocation type from the FET, The RBR is searched 
for an available record block (bit value equals zero). The lowest - 
numbered available record block is selected, so that files tend to 
congregate at one end of the unit. When a record block is located, 
its RBR bit is set to one and the number of the bit is entered into 
a byte of the RBT, Writing begins. When the circular buffer is 
emptied, the position within the record block is noted in the FNT. 
Subsequent writes will continue from this position. When the record 
block is completely filled, the RBR will be searched for another 
available bit. This time, the RBR is searched end-around starting 
at the current position, to make logically consecutive record blocks 
within a file physically as close together as possible. Processing 
continues in this manner. 

Positioning within a record block is kept In terms of physical record 
units (PRUs), On a 6603 disk, a FRU is a single sector. Thus, to 
specify completely the location of a record in a ness storage file, 
three numbers are needed: the RBT word-pair ordinal, the byte number 
of the byte within that word-pair which contains the record block number* 
and the PRU number within that record block. Now, consider a random 
file; i.e., a mass storage file to be written with an index. Within 
the FET, an index buffer address may be specified. The index buffer 
resides within the field length of the program. In this case, file 
writing is done as described above with one additonal step. Before 
the physical writing begins, the current file position as noted in the 
FNT is inserted into the index. Note that the file position is 
effectively a ^^logical” address in that it is a PRU number within the 
file rather than a physical address within the device. Hence no other 
file may be accidentally referenced. In addition, the Index is 
device-independent; a random file can be copied from one mass storage 
device to another, or even to magnetic tape and back to mass storage, 
without special treatment of the index records even though mass 
storage device types differ in logical and physical addressing 
characteristics, because the PRU size is the same (64 CM words) for 
all mass storage device types. 

File reading proceeds in a similar manner. Sequential files are read 
using the file position from the FNT. The position from which to 
begin reading of an indexed file is specified in the FET, 
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The contents of an index are essentially independent of the physical 
device; 1,6^ the record addresses have no set relationship to a record 
block or physical record unit^ other than that each record begins in a 
new PRU, A single record block may contain part of one, or multiple 
records^ These records are called logical records; their length is 
defined by the creator of the file. A file index contains one entry 
for each logical record* 


2.7.1 Record Block Reservation Table (R£R) 


Each 38 word RBR serves the dual purpose of defining record blocks 
in a specific allocatable area, and identifying those record blocks 
within that area as available or not available, A maximum of 2,043 
record blocks may be defined by one RBR, 

Four restrictions are placed on the area defined by an RBR: 

1, Unless inequality is forced by the design of the device, all 
RB^s described in a single RBR must be the same size. For 
example, an RBR defining all half-tracks on a 6603 disk must 
contain both 64-PRU record blocks and 50-PRU record blocks. 

This is valid because of 6603 Logic, 

2, The area described by an RBR must all be on one unit, and there 
exists at least one RBR for each mass storage unit, 

3, Record blocks must be defined in simple relation to the physical 
characteristics of the device on which they are located. For 
example, on a 6603 disk drive, allocation by 31—sector groups 

is not allowable* 

4* The area described by an RBR must consist of not more than 

131,072 PRU^s organized into not more than 2,048 record blocks. 

Bits for up to 2048 record blocks are contained in words 2-37. 

The association of a particular hit to a record block number is 
accomplished as indicated in the following RB bit table diagram 
(page 2-23): The RB^s are mapped by groups of 64 (lOOB) into 
a 32 CM-word table plus four words containing the overflow bits 
which did not fit In this table (4 bits per word). 

The addition of an RBR is accomplished by inserting into CMR a statement 
of the following form: 

NAME RBR RBC T,S TART,FAULTS,LIS T,AL LOG 

NAME must agree with that used in the associated EDST statement for 
this mass storage unit, 

RBCT is the number of available record blocks which may be indexed 
by this RBR, For standard allocations, the value of RBCT depends on 
the device type as follows: 
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type RBCT (decimal) 

AA 2048 

AB 2048 

AC 2048 

AD 512 

AP 2000 

AX defined at dead start time (allocatable 

block size divided by IP.ECLRB), 

START is the physical start address of the RB group* It will be 
nonzero for nonstandard allocations to be available in later version* 

FAULTS is the nuinber of RBs indexed by this RBR which are not 
physically available. 

LIST if nonblank indicates that the installation will preset the 
content of the RBR* In this case, only the two word header is 
generated by the RBR statement. If LIST is missing, 36 zero words 
are generated. 

ALLOC defines the allocation type. Its form is 
aabbccdd 

where each term ii specifies a Legimate allocation within the portion 
of the device indexed by this RBR* 

01 50 PRU^s/RB for 6603 and 6638 disk units; same as 03 for 

other mass storage device types 

02 64 PRU^s/RB, defined only for 6603 disk units 

00 free allocation; when the user does not specify allocation 
In an OPEN call the file may be assigned to any RBR with 
some ii=00* In this case, allocation aa is assigned to the 
file after the RBR is chosen, thus should not be 00. 

03 free allocation; this value is used to permit continuation 
of a file from one device to another* 

10 8 PRU^s/RB; this allocation style is used by RESPOND for 

many of the files which it manages. (See below for further 
details.) 

04 - 07 and 11 - 77 remain undefined at this time. 

determines the actual RBR type for physical allocation purposes. 

ALLOC need not be supplied. Default values are 

for TYPE = AA or AC in the same-named ED ST macro: 

ALLOC = 03020100 

for TYPE = AB, AD, or AP in the same-named EDST macro: 

ALLOC = 03010100 
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for TYPE — AX in the same-named EBST macro; 
ALLOC = 03030300 

Allocation code 10 


This is a non-standard allocation type developed for use by RESPOND. 
It is defined only for 6603-1, 6603-11, and 6638 disk units. Eight 
sectors are included in each record block. Two sectors are unused 
at the end of each 50-sector half track to prevent the carry-over of 
a record block onto a second half track. The RBR and RET byte format 
for allocation type 10 expects 8 record blocks from each half track. 
At RBR generation time, certain bits must therefore be set on to 
prohibit the referencing on non-existing record blocks 6 and 7 in 
each 50-sector half track* The count of these pre-set bits should 
be Included in the ”FAULTS^^ parameter of the RBR macro, and 
parameter ”LIST^* must be used to permit the pre-setting of bits* 

RBR Header Format 


The first two words of each RBR are used to define the area described 
by the RBR and to supply information required to utilize it. See 
figure for the table format. Details of some areas follows. 

Word 0 (W.RBRTPA, W.RBRUNT): Byte 0 (C.RBRTPA) contains zeros in 
bits 0-5 and a device type code in bits 6-11, The defined device 
type codes are as follows (octal): 

01 6603-1 disk 

02 6638 disk 

04 6603-11 disk 

07 854 disk pack drive 

12 865 drum 

20 ECS 

Byte 1 (C. RBRUNT) bits 6-11 contain the DST ordinal of the controller 
for this unit, and bits 0-5 contain the unit number* Byte 2 contains 
the value of the START parameter from the RBR macro; it is zero for 
standard allocations* Bytes 3 (C.RBRA) and 4 contain the allocation 
type codes admitted by this RBR, Word 1 (W,RBRLAV): Byte 0 contains 
the number of record blocks indexed by this RBR; i*e., the REGT 
parameter in the RBR macro. Byte I contains the EST ordinal for the 

mass storage unit described by this RBR, Byte 2 contains the number 

of usable record blocks; i.e* the value of RBCT - FAULTS, Byte 3 
CC*RBRLAV) contains the number of record blocks currently available 
for assignment; it is equal to byte 2 initially, and is decremented 
and incremented dynamically as record blocks from this RBE are assigned 
to files and released. The RBR is said to be full when this byte 
is zero. Byte 4 is reserved for future system use. No space in 
the RBR format is reserved for use by installations. 
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2*7*2 Request Stack 

A, Request Generation* The peripheral processor program requesting 
an allocatable device I/O function must construct in the two 
high order CM words of its communication area a ^'stack entry 

and in its output register a ^^stack entry request*’. Construction 
of these records involve a search of RBR’s to locate the appropriate 
device for the entry and the entry request, and also a search of 
the request stack to determine the address of an unused word 
pair for the entry request. 

If the function of the requesting peripheral processor ends with 
the request, the ’’available” bit in the entry request may be set 
on, thereby insuring execution of all requests for the referenced 
device as soon as the entry is added to the stack. If monitor 
does not accept the entry, it is necessary for the requesting program 
to research the request stack and repeat the request with the 
resultant new address of an empty word pair, 

B, Stack Updating, Upon recognizing a stack entry request, monitor 
will check the word pair addressed in the request. If the word 
pair is not empty, it will refuse the entry. If the word pair 
is indeed empty, monitor will insert the entry into the word 
pair. It will then add one to the entry count field of the 
appropriate device status entry, and will test the ’’control PP” 
field of the device status entry to determine if the stack is 
being processed. If the stack is not being processed, and if the 
’’available” bit Is on in the entry request, it will call in the 
appropriate stack processor as defined in the device status entry 
and assign processing of all requests for the preferencial device 
to the peripheral processor which originated the request. At 

a later point in the monitor program, all device status entries 
are tested. If any of them require processing (’’entry count” 

^ ’’exit count” and ’’control pp” — 0), monitor will assign an 
available peripheral processor to satisfy all requests for the 
relevant device. When the monitor assigns a PP to be a stack 
processor, it sets the ’’control PP” field of the DST entry non - 
zero, and directs the PP to load and execute program ISP, with 
the DST ordinal in the input register, ISP loads the driver overlay 
for the device type indicated by the DST entry, and commences 
to process all request stack entries for all mass storage units 
on the controller associated with the DST entry, and no others* 

ISP remains in its PP until it can find no further requests 
in the stack directed to its DST entry, and the PP is needed 
for some other task, and at least one other DST entry has non - 
zero in its ’’control PP” field, 

C, Stack Processing, The stack processor program selected will 

search the common request stack for the request most easily 
satisfied. Requests requiring no actual disk operations (backspace 
PRU, release RBT chain, and skip forward or backward with record 
count = 777777B) will be executed first. The remainder of the 

request will be selected on the basis of minimal head switching 
and repositioning. It is important to recognize at this point 
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that a stack processor does not establish a sequence of requests 
to be satisfied, it merely searches for the one request most easily 
Satisfied* As a result, it is possible that a request involving 
re-positioning may wait for processing while several more easily 
satisfied requests for the same device are added to the stack and 
processed* The wait time will be minimized by the fact that an 
easily satisfied request requires little time and hence there is 
little opportunity for additions to the stack during its execution. 
In addition, a priority incrementing scheme ensures that a request 
with large access time will not be bypassed indefinitely; eventually 
its priority will become great enough to override access time 
considerations* 

It is also possible for a stack processor to generate a stack 
entry and stack entry request. This can occur if it discovers 
that the logical disk record it is reading is continued on another 
device, or if it discovers that all record blocks in the area 
in which it is writing have been assigned, or if head repositioning 
is necessary to continue the current operation (so that requests 
involving the current position can be satisfied before moving the 
heads), or if more RBT space in CM must be allocated by monitor. 
Timing or other circumstances may cause a stack processor to 
terminate prior to completion of all requests for a device. This 
will not be a common occurence, and in all likelihood it will 
only result in a reassignment by monitor of another processor 
to the device. 

Prior to execution of any request that references a central 
memory buffer or FET or reply word, the stack processor must 
attach itself to the control point which originated the request* 

If the storage move flag for that control point is set, the stack 
processor returns the request to the stack, detaches itself from 
the control point, and selects another request* 

D, Stack Entry* The request stack area contains two types of entries, 
each of which occupy two words* The first N.DEVICE word pairs 
are called device status entries (described in 2*7,3 below). The 
remaining word pairs are stack entries: they are available for 
all pending requests for all allocatable devices within the system, 
irrespective of device type. 

The Stack Entry is a two CM word request for a function involving 
a mass storage device* All stack entries are made by peripheral 
processor programs. Monitor accepts the entries and adds them 
to a common accessivly device request stack. Monitor then returns 
to the message buffer, an Indication of whether or not the request 
was accepted; PP resident will reiterate its search until the 
request is entered. See figure for a diagram of the Request Stack 
entry. For the first word, there are three possible cases; 

1* FNT is present; 2* no FNT present; and 3* direct address. 
These affect the contents of bits 24-59, as follows. In case 1, 
the presence of an FTIT address, referencing the logical file to 
be processed, is signaled by a zero value in the FNT bit in the 
^^Flag bits’^ field (bit 21 of the 2nd word of the entry). The 
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address of the middle word of the 3-word FNT entry appears in 
bits 36-47. Bits 24-35 are unused. Bit 48-59 contain zero 
values. Case 2 is indicated by a 1 in the PNT bit and a zero value 
in the direct bit (bit 23 of the first word). ¥hen this situation 
exists, bits 48-59 contain the HBT word pair number, bits 39-47 
contain the number of the RBT word pair within the chain of RBT 
word pairs for this file, bits 36-38 contain the RB byte number 
within this RBT word pair, and bits 24-35 contain the FRU number 
within that Record Block, This information, normally found in 
the FNT, is carried here since no FNT exists for the reference 
file. Case 3 exists when the FNT, FET and direct bits all contain 
a 1 value. This occurs only when reading or writing labels 
on disk packs, i-e,, there Is no RET chain from which the RB and 
EST numbers can be obtained. Bits 48-59 then contain the RB number, 
bits 36-47 contain the EST ordinal and as in case 2, bits 24-35 
contain the PRU number- 

Bits 0-23 of the first word are identical for all cases: As 
mentioned, bit 23 is the direct bit. It is 0 under normal circum¬ 
stances and 1 for direct access when reading and writing multi - 
sortage labels. Bits 18-22 indicate the record level; bits 12-17 
indicate an order code, which denotes the function desired# 

Possible order codes; 


00 

O.READ 

READ into CM 

01 

O.RDSK 

READSKP into CM 

02 

O.RCMPR 

READ into CM, drop first three CM words of record 
(for reading from library) 

03 

O.RDNS 

READ NON STOP into CM 

04 

O.WRT 

WRITE from CM 

05 

O.WRTR 

WRITER/WRITEF from CM (R or F determined by 
flag bits) 

06 


unused, reserved for CDC 

07 


unused, reserved for CDC 

10 

O.RDP 

READ into PP core 

11 

O.RDPNP 

READ into PP core, drop first three CM words 
(for overlays) 

12 

O.SKP 

SKIFF 

13 

O.SKB 

SKIPB 

14 

O.WRP 

WRITE from PP core 

15 

0.WRP8 

WRITER/WRITEF from PP core 

(R or F determined by EOF flag bit) 

16 

O.BPRU 

BKSPRU 

17 

O.RCHN 

EVICT 


Bits 9-11 must contain zeros; bits 6-8 contain the number of the 
control point from which the request originated; bits 0-5 contain 
the Device Status Table ordinal. 

The format of the second word of the request depends on the order 
code in the first word. The first format is used for a PP 1/0 
request (order code 10, 11, 14, or 15). Byte 0 (C.STPWC) initially 
contains the number of 12-bit bytes to be written or the buffer size 
for reading, and is decremented as each PRU is transmitted. Byte 1 
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(C*STPMS) contains the first word address of the requesting PF*s 
message buffer; this address4-2 is the address of the "communication 
word" which is to PP I/O what the FET is to CM I/O, Byte 2 (G.STPFW) 
contains the first word address of the buffer area in the requesting 
PP^s mamDry* Byte 4 CC*STPL¥) contains the last word address 
(not lwa+1) of the buffer area in the requesting PP^s memory; 
note that this is Iwa-K) rather than Iwa+l^ and therefore a aero 
length logical record cannot be written from a PP. 

The second format is used for a CM I/O request (order code 00 
through 05). If bits 59 and 20 are both zero^ bits 42-58 contain 
the address (relative to R^) of the first word of the FET; only 
the code/status field, IN and OUT pointers, and EP flag bit are 
referenced by Stack Processor. If bits 59 and 20 are both ones, 
bits 42-58 contain the address (relative to RA) of a "reply word" 
which is treated as the first word of an FET; i.e., effectively 
a one-word FET. If bit 59 is.zero and bit 20 is one, bits 42-58 
are ignored. Bits 24-41 contain the first word address (relative 
to HA) of the buffer area; this is normally equal to the FIRST 
pointer in the FET. Bits 0-17 contain the last word address+1 
(relative to RA) of the buffer area; this is normally equal to 
the LIMIT pointer in the FET, When the no-FET flag (bit 20) 
is set, bits 0-17 contain the last word address+2 (relative to 
RA) of data to be written or the last word address+3 (relative 
to RA) of area into which data can be read* 

The third format is used for a positioning request (order code 
12, 13, 16, or 17), Bits 42-59 and 0-23 are as for CM I/O re¬ 
quests, Bits 24-41 contain the logical record count for order 
codes 12 and 13, the PRU count for order code 16, and is ignored 
for order code 17, 

For all second word formats, bits 18-23 contain various flag 
bits. The system synibols S*xxx are shift counts for referencing 
these bits. Bit 23 (bit S.STF+S.STFPRI if byte C.STFB) is the 
request priority flag; setting this flag gives the request higher 
priority than all requests in which the priority bit is zero. 

Bit 22 (bit S,STF+S,STFREL or S,STF+S,STFEOF of byte C.STFB) 
is used in two ways. For read and skip-forward order codes 
(00-03 and 10-12) it causes releasing of each record block as 
soon as it has been read or skipped^ when the file is continued 
to another device or end-of-information is reached, the entire 
RBT chain up to that point is released. For write end-of-record 
order codes (05 and 15) a zero in this flag bit means write end - 
of-record and a one means write end-of-file. Bit 21 (bit S.STFi- 
S.STFNTP of byte C,STFB) is the no-FNT flag; zero means the first 
word of the request has the first format, one means the first 
word has the second or third format depending on the direct flag 
(bit 23 of the first word). Bit 20 (bit S*STF+S,STFETP of byte 
C.STFB) is the no-FET flag; it must be one for PP I/O requests, 
and for other requests it affects the interpretation of bits 42-59 
and 0-17 of the second word as explained above. Bit 19 (bit 
S-STF+S,STFXCT of byte C.STFB) is the exact flag; for read to 
CM requests (order codes 00-03) with the no-FET flag (bit 20) 
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set, setting the exact flag bit causes Stack Processor to stop 
reading when the buffer is completely full (normally, it reads 
the next PRU because it might be a zero-length PRU which will 
always fit into the buffer); for write requests (order codes 
04, 05, 14, or 15), Stack Processor skips to the filers end - 
of-information before beginning to write if the exact flag is 
zero, but setting the bit nonzero causes writing to start at 
the filers current position (i.e*, a rewrite in place operation). 
Bit 18 (bit S.STF+S.STFA of byte C.STFB) is the available flag; 
setting this bit causes R.EREQS to jump to R.IDLE and MTR to 
release the PP when the function M.EREQS Is accepted. 
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2,7.3 Device Status Table (DST) 

The second type of entry in the Request Stack Is the Device Status 
Table Entry» which, like the Request Stack Entry, consists of two 
words. These words contain Information regarding the status of a 
specific 1/0 device. They are static and are usually defined at 
assembly time. The ordinal of this entry (beginning with one) is 
frequently referred to as the device niaraber. 

The first word is formatted as follows. 

Bits 48*59 are reserved for GDC, 

Bits 42-47 contain the driver name (see figure). 

Bits 36-41 are for installation. 

The Stack Entry Count is in chf 12 bits 24-35. It Is 
incremented by monitor each time an entry is added to the 
common request stack which refers to the device referenced 
by this device status entry. It is used in conjunction with 
the exit count to determine the need for further processing 
of related stack entries. Bits 18-23 and 12-17 provide the 
numbers of the alternate and primary channels of the device, 
respectively. Bits 0-11 contain the DST ordinal, used in 
matching RBEs to devices. 

The second word contains in the 0th and ist bytes the head positions 
of units 0 and 1, respectively. These bytes provide the last location 
of the respective read/write head on the I/O device to which this 
status entry refers and re used to determine which stack entry 
requires the least repositioning for processing. In the case of 
single access devices, byte 1 Is not used and byte zero represents 
the position of the only read/write head. For devices with more 
than two units, Stack Processor uses function codes to determine 
the head positions of the remaining units. 

The 2nd byte (bits 24-35) contains the exit or stack completion 
count- This 12 bit count is Incremented once by ISP each time a 
request for activity Involving the related device or RBRs is 
satisfied. 

In byte 3, bits 23-18 are reserved to installations, bits 17-15 
contain the 6681 converter number (0 to 3) for a 3000-serles device 
and zeros for a 6000-series device, and bits 14-12 contain the 
equipment number. 

The 4th byte of second word of the DST is used for the PP assigned 
flag. It Is set to non-zero by MTR when a PP Is assigned to ISP, 
and aeroed by ISP when the PP is dropped. 
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2.7.4 Record Block Table 


The Record Block Table area (RBT) is a collection of individual 
file chains, one for each file on an allocatabie device currently 
recognized by the system, A maximum of 8192 CM words may be occupied 
by all the RBT^s active at any one time. The RBT area expands and 
contracts by lOOg - word blocks as files are created and released- 

The RBT area starts in the highest-numbered word of central memory 
and expands downward- Each entry is two consecutive words, RBT 
entries are addressed by RBT word pair numbers- If the Installation 
has M words of central memory, RBT word pair number N is absolute 
words M-2N and M-2N-^1. V/hen a word pair is released (e-g- by 
dropping or EVICTing its file), it Is placed in an ’^erapty chain*' 
of currently-unused RBT word pairs. 

When a file is initiated, a single two-word RBT entry is assigned 
to that file; additional entries are assigned as needed. Each 
entry is divided into 10 12-blc bytes, some of which are used as 
pointers to additional entries, other tables, etc. An RBT need 
not be continuous, the first byte of each CM word pair supplies 
the word pair number of the next entry in the filers table. The 
remaining bytes each contain the number of a particular record 
block assigned to the file in the physical order of their 
assignment; up to 8 RB*s may be referenced by each 2-word entry* 

The eight byte types which appear in a RBT entry are arranged as 
follows: 


WORD 1 Bit 3 
C-RBTWPL 59-48 X byte 


C,MBTRBR 47-36 Y byte 
C.RETFB 47-39 


RBT link* The RET word pair 
number of the next word pair in 
this file's RBT chain, A zero 
X byte indicates that the filers 
RBT chain ends with the current 
word pair- 

contains two fields: 

RBR link. A nine-bit field which 
contains the number of the RBR for 
the logical file. This field is 
always present in the Y-byte of 
each RBT word pair* It may also be 
found in the high-order 9 bits of 
any of the bytes U-7, in the event 
that the logical fiel is continued 
in an allocatabie area defined by 
another RBR- In this case, the byte 
has zeros in bits 2 and 0 and a one 
in bit 1, tc distinguish it from an 
RB-number byte. 
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S.RBTRBR 


C.RBTPRU 


C.RBTLRB 


C.RBTLPR 


38-36 


35-24 0 byte 


35-32 

31 


30 

29-24 


23-12 1 byte 


11-00 2 byte 


59-48 3 byte 


47-36 4 byte 
35-24 5 byte 
23-12 6 byte 
11-00 7 byte 


First RBT byte. A three-bit field 
containing the number ot the first 
byte in the current word which 

contains an RW link. This will nnnn.-illv 
contain m j.ero (for hylo <0 (or nli 
except the wo id |m 1 1 ol an lilt!' 

chain. In the first woni pair, the 
field will contain 2, If the file is 
sequentially accessed, or 4, if the 
file is randomly accessed- This field 
does not occur in bytes 0-7. 

Flags and allocation type. This field 
is present only in the first word pair. 

are zero. 

Bit 31 contains the release flag, if set, 
record blocks are to be released after 
reading or skipping. 

Bit 30 is set if file is random. 

Bits 29-24 contain the allocation type 
as defined in the ERS. 

Next PRU- The ordinal of the next PRU 
In the last record block of the file in 
which writing is to occur. This field 
may differ from the same field In the 
FNT, which references the PRU following 
the last on read or written. This field 
occurs only in the first word pair for a 
logical file 

Previous last RB. For a randomly accessed 
file, the last RB assigned In the previous 
generation. This field occurs only in the 
first word pair of a randomly accessed file. 

Previous next PRU. For a randomly accessed 
file, the last PRU assigned, plus one, in 
the previous generation. This field occurs 
only in the first word pair of a randomly 
accessed file. 

RB Links, The ordinals of bit positions 
in the RBR referenced by the last RBR link. 
(See word 1, bits 47-39.) In all t/ord pairs 
other than the first in a chain, RB links 
will also be found in bytes 0, 1, 2 and 3. 

The high order eleven bits contain the 
ordinal; the low order bit is always on to 
distinguish an RB link from an RBR link whicr 
may also occur in bytes 0-7. 
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2£ FST/FST 

FILE NAflE AND FILE STATUS TABLES <FNT/FST) 


FNT/FST GENERAL 

The File Name Table (FNT) and the File Status Table {FST) comprise a 
single central memory Cable (FNT/FST) conaiaClng of three central memory 
words. One such entry exists for each file which Is to be referenced 
by a Job at a control point. The first of the three words In each table 
Is called the File Name Table (FNT), and the second and third words are 
Che File Status Table (FST). The discussion to follow, concerns e single 
CM table (FNT/FST). 

The FNT/FST Is set up at the time that a file Is created. In most 
instances, the overlay 2BP (see Buffer Parameter) builds the FNT/FST 
(If one has not already been built) In the course of its function of 
checking buffer parameters In a File Environment Table (FET). (See 
SCOPE Reference Manual Ch., 3) 

The FNT/FST which provides linkage between user programs and all I/O 
and functions. Is a system table not accesaable by the user. Certain 
entries are found In both the FET and FNT/FST, In order that they be 
available Co the user, and at the same time that the ayatem be fully 
protected, e.g. the code and status word. 

FNT/FST ORGANIZATION 

The first (FNT) word: 

Bits Item 

0-11 Priority. A 12-blt field defining the priority 

of the file. 

12-14 Control point number associated with the control 

point to which this file Is currently asslgend* 

15- 16 File type code 

00 INFirr 

01 ouTPirr 

10 Common 

11 Local 

17 Lock bit 

0 File is available. 

I File la not currently available. 

16- 59 Logical file name, up to seven alphanumeric 

characters, left-edjuated. 

FNT/FST. The second (first FST) Word: 

The second word of the FNT/FST (that la, the first word of the FST) 
takes aeveral forms dependent upon the nature and use of the file. The 
first and third words have the same form In all cases. Details are given 
In subsequent eectione end the following figure. 
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A. Case of Seciuential Files 

Two situaltions can be distinguished in the case of sequential 
files. First, each sequential file has an FlvT/FST. Second, a 
sequence of files may be designated by a super name and be provided 
with an FKT/FST having special properties. The latter usage is 
of importance in the case of multi-file tapes. 

1. Individual Sequentail Files - See Figure 

2. Multi-File FNT/FST 

In this case, the name in word one of the FNT/FST is the 
supernameby which the sequence of files is known. 

Note: The secondary device is specified for use in a ^^ping pong^^ 
type of operation in multi-tape files or ^^super-files*^ 

B. Case of Random Files (Allocatable Devices) 

See Figure 

C. Case of Job files prior to their Assignment to a Control Point 

The second FNT word is used to hold certain parameters from the 
job card of an input file, prior to its assignment to a control 
point. In all other respects it has the appearance of an entry 
for a random file. These parameters are removed by IBJ when the 
job is assigned to a control point. IBJ further alters this entry 
so that is corresponds to a rewound random file. The usage in 
this situation is shown below* 

D. Special Usage Internal to 2RC and 2PC 
See Figure 


2.9 Installation Area 


Reserved for installation use. 
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2.10 Dayfile Buffer Area 

The Dayfile Buffer area contains lOOB CM words- The first represents 
the System Dayfile File Environment Table followed by seven more FET, 
one each for the seven control points- The eight remaining words are 
buffers in a similar arrangement- 


2-10-1 C. E, Error File Buffer 

The C. E- Error File Buffer area contains lOOE CM words- Error File 
entries are made via Monitor function M.DFM or from a CPU program via 
a call to PP routine MSG- This buffer is maintained in the same manner 
as the dayfile buffers. 
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CONTROL POINT 4 FET (LFN = DFILE4) 


CONTROL POINT 5 FET (LFN = DFILES) 
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2,11 Library Directory 

The Library Directory is composed of three sections: The entry point 
table, containing 1-word entries; the program name table, containing 
2-word entries; the program name table, containing 2-word entries; and 
the bodies of the CM resident programs. 
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2.12 SYSTEM DEFINITIONS 


The following chart shows the system text organization: 


+ Call PPSYS 
(PP symbols and macros) 


k'PPTEXT 


SCPTEXT 


SMTEXT 


IPAKAMS macro 

* Call CPSY^S 
(CP macros) 

Sort-Merge Maci’os 


h-SYSTEXT 


The symbol definitions have one of the following forms; 

Name EQU absolute expression 
Name ” absolute expression 

where the ” is the shorthand equivalent of the EQU instruction and the 
absolute expression is either an absolute value or an expression in 
which all the symbols have previously been assigned an absolute value* 

PPTEXT definitions have the format: 


i ,mn 

i Identifier; one or two characters identifying the category to which 
the symbol belongs. 

mn Mnemonic; one to six characters suggesting the meaning of the symbol- 
PPTEXT IDENTIFIERS 

The following list describes the identifiers which appear in PPTEXT 
definitions: 


Identifier 

C 

GF 

D 

L 

LE 

M 

F 

CH 

N 

0 


Description 

Byte number within a CM word (0-4). C-identifiers are 
used for flags and parameters of 12 bits or less. 

Vord number within the central processor resident area- 

Direct cells (Section 1) 

Lengths 

Length of table entries 

PPU request of monitor (Section 7) 

Error flag values 
Pseudo-channel assignments 
Numbers (quantities of things) 

Stack processor orders 


2-42 


October 1969 



SCOPE 


Identifier Description 

OV PPU Overlays. The mnemonic is the three character overlay 

name* 


P CM location of pointer words (Section L) 

R PPU resident entry points (Section 1) 

S The number of bits a parameter must be right shifted to 

become right justified in a PPU word- 

T The first word address of CM tables. The system programmer 

should use the P- definition rather than access the table 
directly with the T. definition (Section 1). 

W Relative positions within CM tables (Section 1)* 
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2.13 


SCPTEXT SYMBOLS 


CH.CPA (20) 

PSEUDO-CHANNEL FOR CONTROL POINT AREA INTERLOCK, 

CH.DMP (23) 

PSEUDO-CHANNEL USED BY OMP, 

CH.FNT (15) 

FILE NAME TABLE PSEUDO-CHANNELlPOSSESSION OF THIS CHANNEL 
INTERLOCKS WORD ONE OF FNT. 

CH.FST (14) 

FILE STATUS TABLE PSEUDO-CHANNELlPOSSESSION OF THIS CHANNEL 
PROVIDES AN INTERLOCK OF WORDS TWO AND THREE OF THE FNT 
(ALTERNATIVELY CALLED FST) . 

CH.INS (22) 

PSEUDO-CHANNEL RESERVED FOR INSTALLATION USE. 

CH.LIB (161 

LIBRARY DIRECTORY PSEUDO-CHANNEL I ONLY USED BY GP230 SOFTWARE 
PACKAGE (NOVA), 

CH.PFM (21) 

pseudo-channel used by permanent file manager, 

CH.RBT (17) 

RECORD BLOCK TABLE PSEUDO-CHANNEL. 

C.APF (3) 

BYTE OF WORD P.PFMl CONTAINING THE FWA OF THE APF TABLE, 

C.APFL (1) 

BYTE OF WORD P.PFMl CONTAINING THE LENGTH OF THE APF TABLE. 
C.CKP (4) 

BYTE OF WORD W.CKP CONTAINING THE NUMBER OF CHECKPOINTS TAKEN 
FOR THE JOB. 

C.CPOFMC (0) 

BYTE OF WORD W.CPOFMC CONTAINING DAYFILE MESSAGE COUNT FOR THE 
JOB WHEN COUNT IS ZERO. JOB IS ABORTED. 

C.CPECFL (4) 

BYTE IN WORD IN CONTROL POINT AREA CONTAINING NUMBER/IOOOB 
OF ECS WORDS ASSIGNED TO CONTROL POINT. 

C • CPECSI {3) 

BYTE OF WORD W.CPJCP CONTAINING ECS FIELD LENGTH FROM THE JOB 
CARO, USED IF JOB IS RERUN, 

C.CPEF (1) 

BYTE IN WORD IN CONTROL POINT AREA CONTAINING ERROR FLAG. IF 
ZERO* THERE IS NO ERROR AT THIS CONTROL POINTIOTHERWISE. C.CPEF 
MAY CONTAIN A VALUE DEFINED BY THE F.X SYMBOLS. 


2-44 


October 1969 



SCOPE 


C.CPFL <4) 

BYTt IN WORD IN CONTROL POINT AREA WHICH CONTAINS CENTRAL 
MEMORY FIELD LENGTH/IOOB ASSIGNED TO THIS CONTROL POINT, 

C.CpFUA^ (1) 

BYTE WITHIN WORD W.CPFLAG IN CONTROL POINT AREA WHICH CONTAINS 
ABORT AMD clear FLAGS, 

C.CpFLI (4) 

BYTE OF WORD W.CPJCP CONTAINING CM FIELD LENGTH FROM TH£ jOB 
CARD. USED IF JOB IS RERUN. 

C.CpFp (3) 

BYTE OF word W.CPEHT CONTAINING FLAGS FOR USE BY JOB PROCESSING, 
the RESPOND AND EXPORT/IMPORT BITS ARE IN THIS BYTE, 

C.CPFST (2) 

BYTE IN WORD W.CPERT IN CONTROL POINT AREA, CONTAINS THE 
pointer TO THE FST ENTRY OF THE INPUT FILE ASSIGNED TO THE 
CONTROL POINT. 

C.CPLAI (2) 

BYTE OF WORD W.CPLUR CONTAINING THE LOADER-ALREADY-IN FLAG* 
C.CPLDH (3) 

THE BYTE IN WORD W.CPLUR OF THE CONTROL POINT aREA WHICH CONTAINS 
FLAGS TO INDICATE THE VALUE OF THE MAP OPTION* WHETHER TO USE THE 
OLD OR NEW loader* AND FLAGS FOR DEBUG, 

C.CPLlSP (4) 

BYTE IN WORD W'CPCC CONTAINING A FLAG SET TO 1 WHEN lAJ LOADS AN 
absolute OVERLAY FROM THE SYSTEM LIBRARY, 

CjCpnCsp (4> 

BYTe WoRq W.CPJNAM OF control point A^EA, contains POiNTeR 

TO next control statement to be PROCESSED. 

C.CPNUM (1) 

byte in RP INPUT Register word which cOnTains cOntrol poi^t 
NUMBER originating REQUEST, 

C.cPOa^ (4) 

BYTE OF WORD W'CPOAE CONTAINING EST ORDINAL OF EQUIPMENT 

assigned by operator, 

C.CpouT (3) 

byte in word W.cPOUT which contains flag indicating JANUS control 
POINT. 

C.CppRI tO) 

byte in wORo w.cPPRI in cOnTROl point area. this byte denotes 
priority of JOS at this control point, 

C.CpRA (3) 

BYtE in word W'CPSTaT in control point area which contains 

REFERENCE ADDRESS {RA)/100B OF CONTROL POINT, 
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C.CPHEQ (0) 

BYTE OF rtORO WfCPOAE USED AS A FLAG TO DSD TO CALL REQ WHEN THE 
OPERATOR ASSIGNS EOUIPHENT, 

C.CPRO (4) 

BYTE IN WORD W.cPHO CONTAINING THE ROLLED OUT FLAG FOR THE JOB. 
0 indicates not ROLLED OUT, 1 INDICATES ROLL-OUT INITIATeU, 2 

indicates rolled out. 3 indicates roll-in initiated. 

C.CPRPRI (2) 

BYTE IN WORD W.CPOaE IN CONTROL POINT AREA WHICH CONTAINS 
RERUN PRIORITY. 

C.CpSM (2) 

BYTE IN WORD W.C^SM IN CONTROL POINT AREA WHICH CONTAINS 

storage move flag, mtr sets this field nonzero when storage is 

TO BE MOVED. ALL PP^S aT ThIS CONTROL POINT SHOULD PAUSE IF 
C.CPSM IS NONZERO. 

C.CpSTAT (0> 

byte in a word W.CPSTAT in control POINT AREA WHICH MTR USES 
TO NOTE STATUS OF CONTROL POINT 

C.CPTIML (1) 

BYTE IN WORD W.CPTIML IN CONTROL POINT AREA WHICH CONTAINS 
JOB TIME LIMIT. 

C.CPTLI (1) 

FIRST BYTE OF A TWO-BYTE FIELD IN WORD W.CPJCP CONTAINING 
THE TIME LIMIT FROM THE JOB CARD USED IF JOB IS RERUN. 

C.CST (2) 

byte in word p.cst in cmR which contains fwa of the channel 
STATUS TABLE. 

C.CSTL (3) 

byte in WORd P.cSTL in CMR which contains LWA*1 of the channel 
status table. 

C.DIrCma (i) 

byte in each word of library directory which contains central 

MEMORY ADDRESS OF THAT LIBRARY ROUTINE. 

C.DIkFwA (0) 

LEFTMOST OF TWO B>'TES IN P.LIB WHICH CONTAINS FIRST WORD 
ADDRESS OF LIBRARY DIRECTORY. 

C.DIRPRU t4J 

byTe in Second word of a directory entry which contains number 

OF FIRST PRU assigned TO RECORD, 

C.OIRPTR (0) 

BYTE within EACH WORD Op UIBPaRY DIRECTORY WHICH cONTaiNS 
PROGRAM TYPE AND RESIDENCE, 
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C.TTR'JRft :?> 

BYTi IN SECOND WORD OF A DIRECTQpY ENTRY CONTAINING LINKAGE TO 
RBT WORD PAIR DEFINING RECORD IN WHICH THE RECORD STARTS. 

C.OIRRRN (3» 

byte IN SECOND WORD OF A DIRECTORY ENTRY CONTAINING ORIGINAL 
RBT WORD RAIR AND BYTE OEFTNING BLOCK IN HHICH RECORD STARTS. 

C.DTRDNT (1) 

BYTE IN SECOND WORD OF DIRECTORY ENTRY CONTAINING PHYSICAL UNIT 
NUMBER lOST ORDINAL), 

C.ECFLAW 12) 

BYTES IN OMR WHICH CONTAIN ADDRESS AND LENGTH OF THE ECS 
FLAW TABLE. 

C.ECST 14) 

BYTES IN CMR WHICH CONTAIN ADDRESS AND LENGTH OF THE ECS 
INFORMATION TABLE, 

C.ECSTAT [1) 

BYTES IN CMP WHICH CONTAIN ADDRESS AND LENGTH OF ECS 
STATISTICS TABLE. 

C.FABT 10) 

BYTE OF FNT WORD 3 CONTAINING THE ABORT FLAG. 

C.FAOEV (3) 

BYTE OF FNT WORD 2 CONTAINING FOR AN ALLOCATABLE DEVICE FILE 
TO WHICH NO R3T HAS YET BEEN ASSIGNED THE EST ORDINAL OF THE 
DEVICE TO WHICH IT HAS BEEN ASSIGNED. 

C.FAPF (4) 

BYTE OF FNT WORD W.FTYPE CONTAINING THE APF POINTER FOR A 
PERMANENT FILE. 

C.FALLOC (4) 

BYTE IN FNT WORD 2 CONTAINING ALLOCATION STYLE FOR A FILE NOT 
YET ASSIGNED TO MASS STORAGE. 

C.FCB [?) 

BYTE IN WORD IN FNT WHICH CONTAINS THE COMMON FILE CHANGE BIT. 
C.FCIB 101 

LEFTMOST OF TWO BYTES IN WORD 3 OF THE FILE NAME TABLE PLANNED 
FOR FUTURE SYSTEM USE. 

C.FCPNUM 13) 

BYTE IN WORD 1 OF A FILE NAME TABLE ENTRY CONTAINING FILERS 
CONTROL 30INT ASSIGNMENT. 

C.FCS (3) 

LEFTMOST OF TWO BYTES IN WORD 3 OF FILE NAME TABLE ENTRY 
CONTAINING CODE AND STATUS FIELD. 
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C.FnC 121 

tiriF IM W3f?D 7 OF FIL^ NAMF TAOLE ENTRY CONTAINING FILE 
□IS°OSITrON COOE- 

C.FECFL (2) 

BYTE OF FNT WORD ? CONTAINING THE FCS FIELD LENGTH FOR A JOR 
IN THE INPUT OUEUE. 

C.FFQP (01 

BYTE IN NOPO 2 OF FILE NAHE TABLE ENTRY CONTAINING FILE 
EOUIPNEMT COOF. 

C.FFL (L) 

BYTE OF FNT <(0RD 2 CONTAINING THE CM FIELD LENGTH FQR A JOB 
IN THE INPUT OUEUE. 

C.FFRBA tl) 

BYTE IN WORO 2 OF FILE NAMF TABLE ENTPV CONTAINING ADDRESS OF 
FIRST R3T HORO PAIR FOR A FILE ON ALLOCATAPIE DFVTCE. 

C.FLBL (31 

BYTE IN HORO 2 OF FNT ENTRY, FOR MAGNETIC TAPE, BYTE C.FLBL 
CONTAINS UPPEP 12 BITS OF CURRENT PHYSICAL RECQPD UNIT (PRU) 
COUNTl LOWER 1? BITS OF ORiJ COUNT ARE TN BYTF C.FL9L + 1. 

FOR PUNCHED CAROS, BYTE C.FLBL IS 12-BTT BYTE CONTAINING UPPER' 

5 BITS OF CARO COUNT NTTHIN A RECORD BEING PUNCHED; LOWER 12 
BITS OF CARO COUNT ARE IN BYTE C,FL0L+1. 

C.flock (3) 

BYTE IN WORD 1 OF FILE NAME TABLE ENTRY CONTAINING THE LOCK BIT. 
C.FLPRU (41 

BYTE IN WORD 2 OF FILE NAME TABLE ENTRY CONTAINING CURRENT 
PHYSICAL RECORD UNIT (PRUl POSITION OF A FILE ON AN ALLOCATARLE 
DEVICE. 

C.FLRBEB (31 

BYTE IN WOPO 2 OF FILE NAME TABLE ENTRY CONTAINING RBT FNTRY 
AND BYTE AT WHICH A FILE ON ALLOCATABLE DEVICE IS CURRENTLY 
POSITIONED. 

G«FLRBW^ 121 

BYTE IN WORD 2 OF FILE NAME TABLE ENTRY CONTAINING ADDRESS OF 
CURRENT RBT HORO PAIR FOR file ON ALLOCATABLE DEVICE. 

C.FNAME (01 

LEFTMOST OF fquR BYTES TN WORD 1 OF FNT ENTRY CONTAINING SEVEN- 
CHARACTER FI.F NAME. 

C-FPOEV (21 

BYTE IN FNT HORO 2 0" TA^E FNT ENTRY CONTAINING PRIMARY DEVICE 
NUMBER lEST ORDINAL). 
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( 4 > 

IN FNT HORO 1 CONTAINING PRIORITV OF INPUT OP OUTPUT FILE. 
C.FRRN to 

BYTE OF FNT HORO 2 CONTAINING THE RERUN FLAG FOR A JOB IN THE 
INPUT QUEUE. 

C.FSC (3) 

BYTE IN '^NT WORD 3 CONTAINING FILE SECURITY CODE, INDICATES 
WHETHER OR NOT FILE IS OPEN. 

C.FSOEV tl) 

BYTE IN PNT WORD 2 OF A TAPE FILE ENTRY CONTAINING SECONDARY 
DEVICE NUHBER (EST ORDINAL!. 

C.FTL (Gl 

FIRST BYTE OF A TWO-BYTE FIELD IN FNT HORO 3 CONTAINING THE 
TIME LIMIT FOR A JOB IN THE INPUT QUEUE, 

C.FTYPF 13) 

BYTE IN FNT HORO 1 CONTAINING FILE TYPE FIFLO. 

C.HEC (4) 

BYTE OF WORD P.HEC CONTAINING THE HARDWARE ERROR COUNT. 

C.ICEBUF t0» 

BYTES IN CHR WHICH CONTAIN ADDRESS AND LENGTH OF THE ICEBOX I/O 
BUF'ER. 

C.LRO 13) 

BYTES IN CNR WHICH CONTAIN ADDRESS AND LENGTH OF THE LOGTCAL 
RECORD definition TABLE. 

C.NCP (4) 

BYTE OF WORD P.NCP CONTAINING THE NUMBER OF CONTROL POINTS. 
C.NOVA tl) 

BYTE OF WORD P.NOVA CONTAINING THE FHA/IGB OF THE NOVA TABLE 
(GPESai. 

C.NOVAL 12) 

BYTE OF WORD P.NOVA CONTAINING THE LENGTH OF THE NOVA TABLE. 
C.PFMCH t4) 

permanent file interlock byte in word P.PFMl. 

C.PPFWA tlQOD) 

LOCATION IN »P MEMORY AT WHICH PP RESIDENT TS TO BEGIN EXECUTION 
OF ft PRIMARY OVERLAY, USED BOTH AS THE SECONO PARAMETER ON 
TDENT CARO ANO IN ADDRESS FIELD OF ORG ON ALL PRIMARY PP 
OVERLAYS. 
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C.PPSWA (2000) 

LOCaTIO^^ IN HENORr FOR BEGINNING EXECUTION OF A SECONDARY 
OVERLAY, USED SAME AS C.PPFHA, 

C.PPTHA (3!)03> 

LOCATION IN ap MEMORY AT WHICH TO BEGIN EXECUTION OF A TERTIARY 
OVEPLAY. USED SAME AS C.PPFWA. 

C.PP4WA t'*3(J3) 

location in pp memory at which to begin execution OF A FOURTH 
LEVEL OVERLAY, 

C.PR5HA (5300) 

LOCATION IN »P MEMORY AT WHICH TO BEGIN EXECUTION OF A FIFTH 
LEVEL OVERLAY. 

C.PP&WA (600Q) 

LOCATION IN MEMROY FQP BEGINNING EXFCUTION OF A SIXTH LEVEL 
OVERLAY. 

C.PP7WA (7003) 

LOCATION IN PP MEMORY AT WHICH TO BEGIN EXECUTION OF A SEVENTH 
LEVEL OVERLAY, 

C.R3RA (3) 

BYTE IN R3P HEADER CONTAINING PERMISSIBLE ALLOCATION. 

C.PBRAD (0) 

BYTE IN WORD P.RBR CONTAINING FWA OF THE RBP AREA. 

C.RBRLAV (3) 

BYTE IN SECOND WORD OF EACH RBR HEADER CONTAINING COUNT OF 
UNASSIGNED RECORD BLOCKS DEFINED IN THE RBR. 

C.RBRTPA tO) 

BYTE IN FIRST WORD OF EACH RBR HEADER DEFINING DEVICE TYPE 
REFERENCED. 

C.RBRUNT (1) 

BYTE IN WORD ONE OF RBR HEADER CONTAINING DST ORDINAL. 

C.RBTAL 12) 

BYTE IN FIffST WORD OP RBT WORD PAIR CONTAINING ALLOCATION TYPE 
OF FILE. 

C.RBTCL (II 

BYTE IN WORD P.PFMZ CONTAINING THE NUMBER OF PRU/fl IN RRTC. 

C.RBTCl (2) 

C.RBTC2 (3) 

C.RBTC3 (4) 

THESE BYTES IN P.PFM? CONTAIN THE CURRENT ENO-OF-INFORMATTON 
POINTER POR THE RBTC USED BY THE PERMANENT FILE SYSTEM. 
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C.RBT'^T ID 

3rT£ IN FTDST hood 0" ®RT WOPD PAIR CONTAINING 3VTE NUMBER OF 
FIRST RECORO BLOCK ftOORESS. 

C.R3TLPP (3> 

BYTE IN SECONn WORO 3F AN PBT WORn PAIR CONTAINING THE TERMINAL 
PRU NUMBER + 1 USEO IN LAST EDITION OF A RANDOM FILE. 

C.RBTLPR (4) 

REFERENCES FOURTH BYTE DF CENTRAL MEMORY WOPO IN RECORD BLOCK 
TABLE, DENOTES BYTE THAT CONTAINS LAST RECORD BLOCK IN 
RRFrflOUS generation. 

C.PBTPPU (3) 

BYTE IN FIRST RBT WORD ASSIGNED TO EACH FILE DEFINING LAST ♦ 1 
RRU ASSIGNED TO THAT FILE. 

C.RBTRPR ri» 

BYTE IN first word of RBT WORD PAIR CONTAINING RRP ORDINAL FOR 
THE FILE. 

C.PBTHPL f5> 

BYTE IN EACH RBT WORD PAIR CONTAINING LINKAGE TO NEXT RBT WORD 
PAIR FDR THAT FILE. 

C.RQSCS 13) 

BYTE IN STACK POINTER HOROtP.ROSI CONTAINING A COUNT OF THE 
STACK ENTRY WORD PAIRS, 

C.ROSFS t2) 

BYTE IN STACK POINTER WORD tP.RQS) CONTAINING ADDRESS OF FIRST 
STACK ENTRY, 

C.RSTA (2) 

BYTE IN H.EREQS monitor FUNCTION CONTAINING PP AVAILABLE FLAG, 
C.RSTRA (1) 

BYTE IN M.FREOS MONITOR FUNCTION CONTAINING REQUEST ACCEPTED 
FIELD WHICH IS USEO FOR MONITOR-PR RESIDENT COMMUNICATION. 

C.RSTU 14) 

BYTE IN M.EPEOS MONITO® ^UNCTION CONTAINS UNIT NUMBER (DST 
ORDINAL). 

C.RSTHP 13) 

BYTE IN M.EREOS MONITOR FUNCTION CONTAINING REQUEST STACK WORD 
PAIR ADDRESS. 

C.RHPPCC (3) 

BYTE IN REAO^/WRITEP CONTROL WORD INTO WHICH STACK PROCESSaR 
FOR CONTROL PHASE 1 PLACES CHANNEL NUMBER TO BE USED IN DATA 
TRANSMISSION. 
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C•RMP® C ^ 131 

arir COt^TAINlNG PHASE CO-^TROL FLAG IN CONTROL M0»0 FOR REAOP/ 
MRITEP. PHASES! 0 = REOUEST IN STACK, 1 = SET CHANNEL, 2 = 
channel set, await TRANSMISSION, 3 = TRANSMISSION IN PROGRESS, 
s ORDER COMPLETED. 

C * R WP*^L M 12) 

BYTE IN REAO^/WRITEP CONTROL WORD CONTAINING LWA 1 OF DATA 
TRANSMITTED. IT IS UPDATED BY PP RESIDENT DURING ORDER EACH 
TIME IT COMPLETES PHASE 3, 

C-RHPPST I3> 

IN REAOP/WRITEP CONTROL WORD, OPERATION STATUS AVAILABLE IN 
PHASE 4 IS CONTAINED IN THIS BYTE. 

G.RHP ^ W C (41 

IN REAOP/HRTTEP CONTROL WORD, WORD COUNT FOP TRANSMISSION 
DURING “HASE 3 IS CONTAINED IN THIS BYTE. 

C.RHPPHT (1> 

IN REAOP/WRITEP CONTROL WORD, TOTAL NUMBER OF WORDS TRANSMITTED 
DURING ALL PHASE 3#S IS CUMULATED BY PP RESIDENT IN THIS BYTE. 

C.SOL (0) 

BYTE IN WORD P.PFH2 CONTAINING THE NUMBER OF ENTRIES PER 
SUB-DIRECTORY. 

C.SOT (2) 

BYTE IN HORO P.PFMl CONTAINING THE FWA OF THE SUB-DTRECTORY 
TABLE, 

C.SOTL (0» 

BYTE IN WORD P.PFMl CONTAINING THE NUMBER OF PERMANENT FILE 
SUB-DIRECTORIES. 

C.SEQ (21 

BYTE IN HORO P.SEQ CONTAINING THE FWA/lOB OF THE SEQUENCER TABLE. 


C.SEQL (3) 

BYTE IN WORD P.SEQ CONTAINING THE LENGTH OF THF SEQUENCER TABLE. 


■C.STATCP (2> 

BYTE IN HORO T.STATCP WHICH CONTAINS THE CURRENT STATUS 
OF THE CPUS (B BITS STATUS FOR EACH CPUl 


IF CPU STATUS 
IF CPU STATUS 
IF C»U STATUS 
IF CPU STATUS 


40 CPU ON 

44 CPU ON AND DELEGATED 

60 CPU OFF 

77 CPU DOES NOT EXIST 


C.STCPU (41 

BYTE IN HORO 1 OF STACK REQUEST CONTAINING CONTROL POINT AND 
UNIT NUMBER. 
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IF 3, ENTRY 


C.STET (4) 

EMPTY EMT5Y INDICATOR IN WORD 1 OF A STACK ENTRY. 
IS MOT IN USE, 


C.STFB tSt 

FLAS BYTE IN WORD 2 DF A STACK REQUEST, 


C.STO rS) 

SOECIFIS ORDER IN WORD 1 OF A STACK REQUEST: HIGH Ot>OER 6 BITS 
ARE A RECORD LEVEL NUMBER WHEN RELEVANT tORPER = O.SKF). 


C.STREW t2) 

NEXT ADDRESS IN 

stack request, 

AS FHA FOR DATA 


pp MEMORY for data IN WORD 2 OF READR/WRITEP 
USED BY RP RESIDENT TO COMPUTE BYTE COUNT AND 
TOANSMISSION IN A CALL TO R.READPP OR R,WRITER. 


C.STPLW t4» 

LAST ADDRESS IN 
STACK REQUEST. 
CAL- TO R.REAOP 


pp memory FOP DATA IN WORD 2 OP A RFADR/WRITEP 
USED BY PP RESIDENT TO COMUPTE 3YTE COUNT IN 
OR R.MRITEP. 


C . S TP M S ID 

LOCATION OF MESSAGE BUFFER OF PP IN WOPO 2 OF A pEAD^/HPITFP 
STACK REQUEST. FIRST 3 WORDS ARE USED FOR COMMUNICATION WITH 
STACK PROCFSSOR. 


C.STPPRU 12) 

PPU NUMBER AT WHICH TO BEGIN DATA TRANSMISSION TN WORO 1 OF A 
STACK REQUEST WITH FLAG SET FOR NO PNT, 

C.STPRBA (0) 

RBT ADDRESS OF WORD PAIR CONTAINING RECORD PLOCK AT WHICH TO 
BEGIN DATA TRANSMISSION IN WORD 1 OP STACK REQUEST WITH FLAG 
SET FOR NO FNT, 

C.STPRBN (1) 

RBT QROINAL OF RECORD BLOCK AT WHICH TO BEGIN DATA TRANSMISSION 
TN WORD 1 OF STACK REQUEST WITH FLAG SET FOP NO FNT. 

C. STPWC (0) 

COUNT OF BYTES TO BE TRANSMITTED TN WORD 1 OF READP/WRITEP 
STACK REQUEST. 

D. BA 1401 

O.BA THROUGH 0,BA+4 CONTAIN FIRST WORD OF FILE ENVIRONMENT TABLE 
(PET) LOCATED BY RELATIVE ADDRESS IN LOW ORDER Ifl BITS OF INPUT 
REGISTER. 

O.CPAD (74) 

TYPICALLY CONTAINS ADDRESS OF CONTROL POINT AREA CUPRENLTY IN 
USE BY PP, A PRIMARY OVERLAY USUALLY STORES THE ADDRESS AS PART 
OF ITS INITIALIZATION. 



O.OTS (37) 

HIGH OPfJER 6 BITS OF O.OTS CONTAIN DEVICE TYPE FOUND IN HIGH 
ORDER OORTIOV OF lYTE Q OF SECOND WORD OF FnT. LOH ORDER 6 BITS 
OF O.OTS CONTAIN ALLOCATION TYPE FOUND IN LOH ORDER PORTION OF 
BYTE 0 OF SECOND WORD OF FET. 

O.EST (32) 

O.EST THROUGH 0,EST+4 CONTAIN EST ENT»Y IN PROCESS. 

D.FA (57) 

CONTAINS ADDRESS OF SECOND WORD OF FNT ENTRY IN PROCESS. 

D,first (60 

O.FTRST AND O.FIRST+i CONTAIN lfl-8IT CM AOOPESS SPECIFYING 
BEGINNING OF A CIRCULAR BUFFER (CONTENTS OF FIRST POINTER 
(WORD 2» from a FET) . 

O.FL (56) 

CENTRAL MEMORY FIELD LENGTH/IOOB OF CONTROL POINT TO WHICH PP 
IS CURRENTLY ATTACHED. PRIMARY OVERLAY USUALLY STORES FIELD 
LENGTH AS PART OF INITIALIZATION. 

D.FNT (20) 

D.FNT THROUGH O.fnT+B CONTAIN WORDS 2 AND T OF FNT ENTRY FOR 
FILE IN PROCESS. WORDS 2 AND 3 APE REFERRED ALTERNATELY TO AS 
THE FST ENTRY. 

D.HN (71) 

CONSTANT ICOB. GENERALLY. D.HN IS PRESET BY A PRIMARY OVERLAY 
FOP USE 3Y A SECONDARY OVERLAY. 

O.IN (62) 

O.IN AND B.IN+1 CONTAIN FET. 

O.JECS (45) 

USED BY 2TJ TO OETURN ECS FIELD LENGTH REQUIREMENT TO CALLING 
PROGRAM. 

O.JFL (37) 

USEO BY 2TJ TO RETURN CM FIELD LENGTH REQUIPFHENT TO CALLING 
PROGRAM. 

O.JPR (46) 

USED BY 2TJ TO RETURN COMPUTED PPIORITV TO CALLING PROGRAM. 

0.LIMIT (66) 

0.LIMIT AND O.LIMIT+1 CONTAIN 18-BIT ADDRESS SPECIFYING LHA ♦ 1 
OF CIRCULAR BUFFER (CONTENTS OF LIMIT POTNTFP (WORD 5) FROM 
FET). 

O.OUT (64) 

O.OUT AND D.0UT*1 CONTAIN OUT POINTER (WORD 4) FROM FET. 
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D.PPIH (75J 

CONTAINS CM ADDRESS OF PP INPUT REGISTER. INITIALIZED AT 
DEAOSTART time AND MUST NEVER 0E ALTERED. 

tJ.PPIRB (50) 

D.ppiRB Through d.ppiRb*4 hold the contents of pp input 
REGISTER. primary OVERLAY USUALLY STORES INPUT REGISTER 

contents as part of initialization. 

D.PPMEsI (77) 

contains cm address of first word of pp message BUFFER* 

INITIALIZED AT OEADSTART TIME AND MUST NEVER BE ALTERED. 

D.PPONE (70) 

contains constant 1. GENERALLY* O.PPONE IS PRESET BY A PRIMARY 
OVERLAY FOR USE BY A SECONDARY OVERLAY. 

D.PPOR (76) 

CONTAINS CM ADDRESS OF PP OUTPUT REGISTER* INITIALIZED AT 
DEAOSTART TIME AND MUST NEVER BE ALTERED. 

O.RA (55) 

CONTAINS CENTRAL MEMORY REFERENCE ADDRESS/IOOB OF CONTROL POINT 
To WHICH PP IS ATTACHED, PRIMARY OVERLAY USUALLY STORES 

Address as part of initialization, 

C>.TH (73) 

contains constant 1000/8* generally, d.tr is preset BY a 
primary overlay for use by a secondary overlay. 

l^.TR (73) 

CONTAINS CONSTANT 3. GENERALLY, D.TR IS PRESET BY A PRIMARY 
OVERLAY FOR USE BY A SECONDARY OVERLAY. 

F.ERaR (2) 

VALUE OF ERROR FLAG SET FOR CP ARITHMETIC ERROR ABORT* SENSED 
BY MTRt ERROR MESSAGE IS WRITTEN BY lEJ, 

F.ErCp (4) 

YalUe of ERROR FLAG SeT fqr CP ABORT. F.ERCP 'JSgo IF CP 
PROGRAM ABORTS EXECUTIONI PROGRAM MUST WRITE A MESSAGE TO 
DAYFILE, 

F,ErECp (^2j 

Value of eRRqR flag set when mtr detects permanent parity in ecS 
DURING ECS STORAGE MOVE. lEJ WRITES A MESSAGE TO DAYFILE, 

F.ErEx (U> 

VALUE OF ERRqR flag SeT bY lAJ WHEN iT OETECTS a COnTRQL CARO 
ERROR, OR BY MTR WHEN IT GETS AN ABT REQUEST WITH THE EXIT(S) 

SIT (SIT ^6) set. 
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F.EHHANG (16) 

tKROR flag for job HUNG IN AUTOMATIC RECALL. 

F.ERJC (13) 

errqR Flag for a job card error, 

F.EHK (7) 

Value of error flag in control point area set when operator types 
*n.kill^. there will be no output from this job. 

F.EROD (6) 

Value of error flag set for operator drop type-in. iej writes 
A MESSAGE TO OAYFILE. 

F.ERPA (14) 

error Flag for a job which has been pre-aboRTed,i,e,, befoRe it 
COMES To control POINT, 

F.ERpCE (5) 

value OF ERROR FLAG SET FOR PP CALL ERROR ABORT, SenSeD rY 
MTRI ERROR message IS WRITTEN BY lEJ. USED WHEN CENTRAL 
program REQUESTS PP PROGRAM WITH NAME THAT DOES NOT BEGIN 
WITH A letter. 

F.ERRCl (15) 

ERROR Flag for a bad pp call with The auto-recall bit set, 

F.ERRN (10) 

Value of error flag in control point area set when the operator 

TYPES ^N.RERUNst, THIS JOB WILL BE PUT BACK INTO THE INPUT (SUEUE, 
F.ERPP (3) 

Value of error flag set for pp abort, pp requesting abort is 
responsible for writing MESSAGE. 

f.ertl tl) 

Value up error flag set for cp time limit abort, sensed ry mtri 

ERROR message IS WRITTEN BY IEJ. 

LE.FNT (3) 

number of central memory words in one fnt entry. 

L.CPNUM (7) 

mask of ones equal to the length in bits of highest numbered 
CONTROL point, 

L.PPHOR (51 

number of pp words comprising header information appended by 

assembler. LOADING OF ALL PP OVERLAYS BEGINS AT C.PPXWa MINUS 
L.PPHDR, 
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M,ABORT * 

a3B*ABORT CONTROL POINT) 

M.CCPA * 

t35B»CHAN6C CONTROL POINT ASSIGNMENT) 
M,CRUST * 

OBB.CHANGE CPU STATUS) 

M.OCP « 

(16B«DR0P CENTRAL PROCESSOR) 

M.OEOP « 

t23B-0R0P EQUIPMENT) 

M.DFM • 

tOl-PROCESS OAYFILE MESSAGE) 

M.DPP • 

tUB-DROP PP) 

M.OTAPE * 

(32B-TURN EQUIPMENT OFF) 

M.EREQS « 

(34B-ENTER REQUEST STACK) 

M.ESTZ • 

(33B-EST Z BYTE UPDATE) 

M.ICE • 

(06-INITIATE CENTRAL EXECUTIVE) 

M.NTIME • 

(lAB-TIME LIMIT) 

M.OPDROP • 

(30B-OPERATOR DROP) 

M,pause • 

(17B-PAUSE FOR RELOCATION) 

M.PPTIME » 

(04-ASSIGN PP TIME) 


* SEE CHAPTER 5.4 
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M.RACT 

(ZTB.REOUEST CONTROL POINT ACTIVITY) 
M.RBTSTO * 

(0TB- REDUCE RBT STORAGE) 

M.RCH • 

(02-REQUE5T CHANNEL) 

M.RCLCP • 

(21B-RECALL CENTRAL PROGRAM) 

M.RCP * 

(ISB-REQUEST CENTRAL PROCESSOR) 

M.REM # 

(25B-ASSIGN ERROR EXIT MODE) 

M.REQP * 

(228-REOUEST EQUIPMENT) 

M*RPJ • 

(37B-REQUEST PERIPHERAL JOB) 

M.RPP * 

(20B-RE{SUEST PP) 

M,RPRI * 

(270-REQUEST PRIORITY) 

M.RSTOR * 

(lOB-REQUEST STORAGE) 

M.RTAPE * 

(3IB-TURN EQUIPMENT ON) 

M.SEF * 

(30fl-SET ERROR FLAG) 

M.SEQ * 

(26B-ASSIGN JOB SEQUENCE NUMpER) 
M.STEP * 

(05-MONITOR STEP CONTROL) 


• SEE chapter 5.4 
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0.15P<»U {16> 

BfVCKSPftCE M 'JUM8ER OF PRU#S TO BE BftCKSPACED IS GIVEN IN 

THIRD BTTE 0- SECOND HOPD OF THE ORDER, O.BPRU REQUESTS 
REPDSTTI0NIN3 DEFINED BY PHYSICAL RATHER THAN LOGICAL UNITS. 

NO DATA IS TRANSHITTEO- 

O.^CHN [17> 

RELEASE CHAIN. ALL RECORD BLOCKS ASSIGNED TO A FILE AND THE RBT 
WORD "AIRS CONTAINING THEN ARE RELEASED. FNT IS RESET TO AN 
EMPTY CONDITION IF ITS ADDRESS IS SUPPLIED IN THE ORDER. 

REQUESTS 16 AND 17 REQUIRE NO COMMUNICATION WITH THE DEVICE AND* 
THEREFORE, ARE GIVEN HIGHEST PRIORITY IN THE SEARCH FOR THE NEXT 
ORDER TO BE EXECUTED. ALL OTHER REQUESTS ARE ASSIGNED 
PRIORITY BASED ON REPOSITIONING REQUIREMENTS. 

O.RCMPR t2) 

READ INTO CENTRAL MEMORY AFTER DROPPING FIRST THREE CM WORDS OF 
PIRST PRU, USED BY STITCH FOR LOADING PROGRAM FOP SYSTEM LIBRARY 
ELIMINATING THE THREE WORD HEADER ADDED TO SYSTEM OROGRAHS BY 
EDITLTB. 

O.RONS (3> 

VALUE OP THE STACK PROCESSOR ORDER CODE FOR REAONS. 

0-R.DP tlO) 

READ INTO REOUESTING PP#S MEMORY UNTIL A SHORT PRU IS 
ENCOUNTEPED OR UNTIL INPUT AREA IS FULL. 

O.ROPNP (11) 

READ INTO REQUESTING PP AFTER DROPPING FIRST THREE CM WORDS OF 
FIRST PRU, USED FOR ALL PP SYSTEM PROGRAM CALLS. 

O.ROSK (1) 

READ INTO CENTRAL MEMORY UNTIL A SHORT PRU IS ENCOUNTERED OR 
UNTIL BUFFER IS FULL, SET FNT TO REFEPENCF FIRST PRU pQLLOWING 
FIRST ENO-OF-RECORO OF LEVEL X OR GREATER. LEVEL IS GIVEN IN 
HIGH-OROEP 6 BITS OF THE ORDER BYTE. 

O.READ (0) 

READ INTO CENTRAL MEMORY UNTIL A SHORT PRU IS ENCOUNTERED OR 
BUPPER IS FULL (INsOUTU. 

O.SKB tl3> 

SKIP BACKWARD N RECORDS OF LEVEL X OR GREATER. LEVEL IS 
SPECIFIED IN HIGH 6 BITS OF THE ORDER BYTE! NUMBER OF RECORDS TO 
BE SKIPPED IS GIVEN IN THIRD BYTE OF SECOND WOPD OF THE ORDER. 

NO DATA IS TRANSMITTED. 

O.SKF (12) 

SKIP FORWARD N PECORDS OF LEVEL X OR GREATER. LEVEL IS 
SPECIFIED IN HIGH 6 BITS OF THE ORDER BYTE! NUMBER OP RECORDS TO 
BE SKIPPED IS GIVEN IN THIRD BYTE OF SECONO^WORO OF THE ORDER. 

ND DATA IS TRANSMITTED. 


March 1969 


2-59 



n.wRP 

WRITE FROM REQUESTING PP, FULL PRU^S ONLr. 

O.WRPR (151 

W»TTE FROM REQUESTING PP, ENDING NITH A SHORT PRU OF LEVEL 
SPEOIFTED IN HIGH ORDER 6 BITS OF ORDER gfTF. IF EOF FLAG BIT IS 
SET IN THIS ORDER, A ZERO LENGTH PRU OF LEVEL 17 IS WRITTEN 
FOLLOWING SHORT PRU TERMINATING RECORD. 

O.HRT t4) 

WRITE FULL PRUFS FROM CENTRAL MEMORT. 

O. WRTR (51 

WOITE FROM CENTRAL MEMORY, ENDING WITH A SHORT PRU OF LEVEL 
S^EOIFIEO IN HIGH ORDER 6 BITS OF THE ORDER BYTE, 1^ EOF FLAG 
BIT IS FOUND IN THIS ORDER, A ZERO LENGTH PRU OF LEVEL 17 IS 
WRITTEN FOLLOWING SHORT PRU TERMINATING OECORO. 

P. CST (51 

WORD IN OMR CONTAINING CHANNEL STATUS TABLE POINTERS. 

P.OFB (31 

ADDRESS OP OAYFILE BUFFER POINTER WORD. ONLY THE FIRST BYTE 
(BYTE 01 IS used: IT CONTAINS CM ADDRESS/ 1C3 OF OAYFILE BUFFER. 

P.ECST (11B> 

WORD IN CMR CONTAINING POINTERS TO VARIOUS ECS TABLES* 

P.EST (5) 

AOOPESS OF EST POINTER WORD. BYTE 0 CONTAINS 13-311 FIRST WORD 
AODRESS? 3VTE 1 CONTAINS 12-BIT LAST WORD ADDRESS PLUS ONE. 

P.FNT (4* 

AODRESS OF FNT POINTER WORD. BYTE 0 CONTAINS 12-BIT pIRST WORD 
address; byte l contains 12-BIT last word address PLUS ONE. 

CMR location OF A WORD CONTAINING THE HARDWARE ERROR COUNT. 

P.TNS tlO) 

AODRESS OF A POINTER WORD TO AN INSTALLATION AREA; CONTENT IS 
UNSPECIFIED. 

P.LECST tl2) 

WORD IN CMR CONTAINING LENGTHS OF TABLES SPECIFIED BY P.ECST, 
P.LI8 Ill 

AODRESS OF LIBRARY DIRECTORY POINTER WORD. BYTES 0 AND 1 CONTAIN 
RIGHT JUSTIFIED 13-8IT FIRST WORD ADDRESS OF LIBRARY DIRECTORY, 
BYTES 2 AND 3 CONTAIN RIGHT JUSTIFIED 18-8IT LAST WORD ADDRESS 
PLUS ONE, BYTE 4 CONTAINS A OEAOSTART LOAD FLAG; IT MUST ALWAYS 
BE ZERO WHEN A DISK OR RECOVERY DEADSTART IS ATTEMPTED. 
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P.NCP (S) 

CMR LOCATION OF A WORD CONTAINING THE NUMBER OF CONTROL POINTS- 
P.NOVA (3) 

CMR LOCATION OF THE NOVA PqiNTER WORD. 

P.PFMl (6) 

P•PFM2 (T } 

CMR locations OF TWO POINTER WORDS USED BV THE PERMANENT plLE 
MANAGER. 

P.RBR (2) 

ADDRESS OF RBR POINTER WORD# (ALSO SERVES AS RBT POINTER WORD 
-SEE PiRBT.) BYTES 0 AND I CONTAIN RIGHT JUSTIFIED IB-BIT FIRST 
WORD ADDRESS OF RBR TABLE AREA. 

P.RBT (2) 

ADDRESS OF RBT POINTER WORD* (ALSO SERVES AS RBR POINTER WORD- 
SEE P.RBRt) BYTE 2 CONTAINS FIRST WROO ADDRESS/2 OF RBT EMPTY 
CHAIN. BYTE 3 CONTAINS CURRENT LEN6TH/100B ENTIRE RBT AREA, 
byte 4 CONTAINS (LWA ♦ U/loOB OF CENTRAL MEMORY. 

P.RQS ti3) 

ADDRESS OF REQUEST STACK AREA POINTER WORD. BYTE 0 CONTAINS 

STACK Entry word pair count, byte 2 contains first word 

ADORESS/2 OF ACTUAL REQUEST STACK, BYTE 3 CONTAINS NUMBER OF 
ALLOCaTaBLE DEVICES (N,DEVICE). BYTE 4 CONTAINS FWA/lOB oF DST 
ENTRIES. all OST ENTRIES APPEAR AT BEGINNiNq OF REQUEST sTaCK 
AREA* FOLLOWED IMMEDIATELY BY ACTUAL REQUEST STACK, 

P.SEQ (4) 

WORD IN CMR CONTAINING DIAGNOSTIC SEQUENCER POINTERS, 

P.ZERO (0) 

ADDRESS OF CENTRAL MEMORY WORD CONTAINING ALL ZEROS, USED BY 
MOST PP ROUTINES AS A QUICK MEANS OF ZEROING FIVE SUCCESSIVE PP 
LOCATIONS, THE SYSTEM IS DESTROYED BY SETTING CONTENTS OF 
P.ZERO TO NONZERO. 

R,^PFL (627) 

LOCATION Within pp resident containing field length/ioob of 

CONTROL point TO WHICH PP IS ATTACHED. R.CPFL IS RESET EaCH 
time R.pause routine is entered, 

R.^PRA (631) 

location in pp resident containing reference ADDRESS/IOOB OF 

CONTROL POINT TO WHICH PP IS ATTACHED, R.CPRA IS RESET EaCH 

time each R.pause routine is ENTERED, 

r,DCH ,714, 

CALLING SEQ*JeNCEJ LOAD CHANNEL NUMBER 

RJM R.DCH 

R.OCH WILL CAUSE THE SPECIFIED CHANNEL TO 
BE DROPPED, 
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RtDFM (650) 

CALLING SEQUENCE! LOAD L(MESSAGE)♦FLAG BITS 

RJM R,DFM 

MESSAGE FROM PP MEMORY IS WRITTEN TO DAYFILE AND/OR CONSOLE, 
FLAG BITS ARE CONTAINED IN HIGH ORDER 6-BITS OF A REGISTER UPON 
ENTRY To R.DFM* THEY DETERMINE MESSAGE DESTINATIONS, FLAG BIT 
VALUES are given BELOW) ONE OR MORE BITS MAY BE ON) ALL ARE 
OPTIONAL. 

1 DAYFILE only (A DISPLAY) 

2 control point 0 (SYSTEM) MESSAGE 
4 NO A DISPLAY 

R.EREQS (300) 

CALLING SEQUENCE! STORE L(REQUESTS) IN O,T0 

RJM R,EREQS 

adds the control point number to the already formatted request 

AND SEARCHES THE CENTRAL MEMORY REQUEST STACK FOR AN EMPTY 
ENTRY, THE MONITOR FUNCTION. M.EREQS, IS CALLED AND PP 

Resident iterates until the monitor accepts the request, 

IF the available flag (bit S.STF+S.STFA of byte C.STFB OF the 
SECOND WORD OF THE RE(SUEST) IS SETiR.EREQS EXITS TO R.IDLf. 
otherwise it RETURNS CONTROL TO ITS CALLER, 

R.ErLqsP (4006) 

PP RESIDENT LOCATION MODIFIED BY THE PERMANENT FILE MANAGER 
FOR DIRECTORY SEARCH, 

H.IOLE (100) 

CALLII^G SEQUENCE! LJM R,IDLE 

IDLE LOOP) PP RESIDENT CONTINUALLY SCANS ITS INPUT REGISTER FOR 
SOMETHING TO DO, 

R.MTR (450) 

CALLING Sequence! stqRe fUncTion pa^ameTe^s im q.Tj to 0,^4 

LOAD function CODE 
RJM R.MTR 

PLACES THE FUNCTION CODE IN O.TOi WRITES D.TO THROUGH D.Ta TO 
THE OUTPUT REGISTER AND WAITS FOR THE OUTPUT REGISTER. 

R.OVL (124) 

CALLING SEQUENCE! LOAD A ReGISTeR LOAD ADDRESS 

RJM R.OVL 

CAUSES an OVERLAY WHOSE NAME APPEARS IN D.Tb AND D.T7 
(LEFT JUSTIFIED) TO SE LOADED INTO THE PP BEGINNING AT THe 
ADDRESS SPECIFIED IN THE A REGISTER. R.OVL IS USED BY PP 
overlays to LOAD HIGHER LEVEL OVERLAYS AND BY PP RESIDENT TO 
LOAD the overlay NAMED IN THE INPUT REGISTER, PP RESIDENT DOES 
NOT reference THE DISK DIRECTLY TO LOAD DISK RESIDENT OVERLAYS 
BUT makes a call TO THE STACK PROCESSOR, 

R.OVLJ (112) 

CALLING SEQUENCE! STORE NAME OF OVERLAY IN 0.T6, O.T? 

LJM R.OVLJ 

GO TO R.OVLJ TO LOAD A NEW PRIMARY OVERLAY AND TRANSFER CONTROL 
TO IT, 
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R.PAUSE tA3D» 

CALLING SEQUtNCEl RJN R.PAUSE 


STO 0,RA 


EXITS IF PP IS ATTACHED TO CONTROL POINT ZERO OR IF STORAGE HOVE 
FLAG IS NOT SET. OTHERHISE, THE HONITOR FUNCTION M.PAUSE IS 
IS ISSUED ANO PP PAUSES UNTIL MONITOR HAS COMPLETED STORAGE MOVE 
FOR THAT CONTROL POINT. IN ANT EVENT, BEFORE AN EXIT IS MADE 
FROM R.PAUSE, THE FQLLONING INFORMATION IS SETt 
(D.TO ♦ C.CPSTAT> CONTROL POINT STATUS 

(D.TO ♦ C.CPEFI CONTROL POINT EPROR FLAG 

(O.TO ♦ C.CPRAl CONTROL POINT RA tHUNOREOSI 


(O.TIJ C.CPFL) CONTROL POINT FL (HUNDREOSI 

A REGISTER CONTROL POINT RA 


O.RA AND D.FL tIF SIGNIFICANTJ SHOULD ALHAYS BE RESET AFTER A 


JUHO TO R.PAUSE. 


R.PROGES (450) 

identical with r.mtr. 

R.RGH 1704) 

CALLING SEQUENCEl LOAD CHANNEL NUMBER 

RJM R.RCH 

CHANNEL NUMBERS IN A REGISTER ARE STORED IN BYTE O.Tl, MONITOR 
FUNCTION M.PCH INSERTED TN D.TO, AMD O.TO-D.T4 WRITTEN TO OUTPUT 
REGISTER FOR THAT PP. CHANNELS ARE ASSIGNED BY HTR ON THE 
FOLLOWING PRIORITY BASISl 

IF ALTERNATE CHANNELS ARE SPECIFIED, HTR STOPS LOOKING FOR 
ALTERNATE CHANNELS UPON SENSING 6 BITS OF ZERO. THUS, IF ONE 
ALTERNATE CHANNEL IS DESIRED, THE PROGRAHMER HOST CLEAR O.T2 
BEFORE ENTERING R.RCH SO THE SEARCH TERMINATES AT THAT POINT. 
PROCEDURE FOR REQUESTING CHANNEL 12 WITH ALTERNATE CHANNEL 13* 


LON 

0 

STO 

O.T2 

LOC 

1312B 

RJM 

R.RCH 


HONITOR HILL STOP L03KIMG FOR ALTERNATE CHANNELS AFTER FOUR 
CHAV^E.S HAVE BEEN 11VESTIGATED. 

WHEN R.RCH IS USED, 0.T4 IS AUTOMATICALLY SET NONZERO? THE 
FUNCTION IS NOT CONSIDERED COMPLETE (OUTPUT REGISTER IS NOT 
CLEAREOI UNTIL A CHANNEL CAM BE ASSIGNED. WHEN COMPLETE, BYTE 0 
OF OUTPUT REGISTER IS CLEARED AND BYTE 4 IS SET NON-ZERO. 

A CHANNEL REOUEST HAY BE MADE DIRECTLY TO MONITOR (M.RCH). ONE 
other OPTION IS ALLOWED IN THIS CASE! MONITOR CANNOT ASSIGN THE 
CHANNEL* IT NOVES BYTE 4 OF OUTPUT REGISTER TO BYTE 0. R.RCH 
IN BYTE 4 OF OUTPUT REGISTER TO WAIT UNTIL THE CHANNEL IS 
ASSIGNEO. 
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R.READP {R.HRITEPI (460(470)» 

CALLING SEQUENCEl LOAD L(REQUEST) 

RJN R.REAOPIR.MRITEP) 

COMPUTES PP MORO COUNT FROM FIRST AND LAST HORD ADDRESSES 
GIVEN IN ALREADY FORMATTED REQUEST AND ADOS COMPUTED HORD COUNT, 
ADDRESS OF P» MESSAGE BUFFER, AND CONTROL POINT NUMBER TO 
REQUEST. REQUEST IS ENTERED IN STACK AND DATA IS TRANSMITTED 
VIA CHANNEL DIRECTLY TO(FROM) PP MEMORY. UPON EXIT FROM 
PP MEMORY. UPON EXIT FROM R,READP(R.MRITEP), THE FOLLOHING 
INFORMATION IS SETt 

(0.T3 * C.RHPPLH) LHA + 1 OF DATA TRANSMITTED 

(□.T3 * n.RMPPST) STATUS 

(0,T3 ♦ C.RHPPWT) number OF PP WORDS TRANSMITTED 

R.RMIOP (547) 

PP RESIDENT LOCATION MOOIFIEO BY THE PERMANENT FILE MANAGER 
FOR DIRECTORY SEARCH. 

R.RHP (505) 

SPECIAL ENTRY POINT TO R.REAOP USED BY LOR. 

R.RHPP (530) 

WORD IN R.READP MODIFIED BY LOR. 

R.STB (620) 

CALLING SEQUENCEl LOAD L(LIST) 

RJH R.STB 

WHERE LIST HAS THE FORM! 

KBYTE) 

L (WORD 1) 

L (WORD 2) 


L(HORO N) 

ZERO 

AN ENTRY »OINT TO R.STB CALLED R.STBNSK IS THE ADDRESS OF THE 
MASK FANDEOF HITH EACH WORD IN THE LIST BEFORE THE WORD IS 
^EXCLUSIVE ORED# HITH THE BYTE. THIS MASK IS INITIALLY 7700B 
AND THIS VALUE SHOULD BE RESTORED BY ANY ROUTINE WHICH 
SUBSTITUTES AN ALTERNATE MASK. R.STB IS USED PRIMARILY TO 
SUBSTITUTE CHANNEL NUMBERS IN DRIVER OVERLAYS. 

R.STBNSK (611) 

ADDRESS WITHIN PP RESIDENT OF A LOCATION USED BY R.STB ROUTINE, 
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R.TFL t63^^» 

C4LLING SEQUENCEt LOAD RELATIVE ADDRESS 

RJM R.TFL 

INSURES THAT A RELATIVE ADDRESS IS HITHIN FIELD LENGTH; Ift-BIT 
ADDRESS IS ADDED TO CONTROL POINT REFERENCE ADDRESS tRAI AND 
COMPARED HIH FIELD LENGTH. IF ADDRESS IS OUT OF RANGE* R.TFL 
EXITS HITH A NEGATIVE A REGISTER; IF ADDRESS IS LEGAL. A 
REGISTER CONTAINS ABSOLUTE CM ADDRESS tRA *■ RELATIVE ADDRESS! 
UPON EXIT. CONTROL POINT PA AND FL ARE KEPT LOCALLY NITHIN PP 
RESIDENT AT R.GPRA AND R.CPFL, RESPECTIVELY? THESE LOCATIONS ARE 
RESET WHEN AN ENTRY TO R.PAUSE IS HADE. 

R.WAIT (VIO) 

CALLING SEQUENCEt RJM R.HAIT 

PP IDLES UNTIL BYTE 0 OF OUTPUT REGISTER IS CLEAR. 

R.WRITE* (470) 

SEE R.REAOP. 


S.CPA 

RIGHT OFFSET OF RERUN BIT IN BYTE C.CPFP OF THE CONTROL POINT 
AREA. 

S.CPDP (6) 

RIGHT OFFSET OF PRIVATE PACK BIT IN BYTE C.CPFP OF THE CONTROL 
POINT AREA, 

S.CPE (13) 

RIGHT OFFSET OF THE EXPORT/IMPORT BIT IN BYTE C.CPFP OF WORD 
H.CPERT OF THE CONTROL POINT AREA. 

S.CPF (3) 

RIGHT offset OF THE REPROCESS CONTROL CARO BIT IN BY C.CPFP 
OF WORD H.CPERT OF THE CONTROL POINT AREA. 

5.CPG (1) 

RIGHT OFFSET OF THE ABORT BIT IN BYTE C.CPFP OF THE CONTROL POINT 
AREA. THIS BIT IS SET BY lAJ IF A CONTROL CARO ERROR OCCURS OR 
IF THE USER TRIES TO LOAD THE BINARY OUTPUT OF AN ASSEMBLY OR 
COMPILATION WHICH HAD ERRORS. 

Sr CPN 141 

RIGHT OFFSET OF THE CHECKPOINT BIT IN BYTE C.CPFP OF THE CONTROL 
POINT AREA. THIS BIT IS SET IF A VALID CHECKPOINT HAS BEEN 
TAKEN. 

S.CPR (121 

RIGHT OFFSET OF THE RESPOND BIT IN BYTE C.CPFP OF THE CONTROL 
POINT AREA. THIS BIT IS SET FOR ALL RESPOND JOBS. 

S « CPS E 51 

RIGHT OFFSET OF THE SEQUENCER BIT IN BYTE C.CPFP OF (HE CONTROL 
POINT AREA, BIT IS SET TO INDICATE INPUT FILE IS NOT TO PURGE. 
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S.CPX t5) 

RIGHT OFFSET OF THE EXIT BIT IN BYTE C.CPFP OF THE CONTROL POINT 
ARE4, THIS SIT IS SET WHENEVER lAJ ENCOUNTERS AN EXIT CARO, 

S.niRPR («» 

NUMBER OF BIT POSITIONS TO RIGHT SHIFT IN PP WORD TO RIGHT 
justify PROGRAM RESIDENCE TO BIT ZERO. 

S.DIRPT t4> 

number of bit positions to RIGHT SHIFT IN A PP WORD TO RIGHT 
JUSTIFY THE PROGRAM TYPE TO BIT ZERO. 

S.FC3 tB> 

BIT POSITION OF CONMON FILE CHANGE BIT IN FNT BYTE C.FC3. 
S.FNTEQ5 t6» 

RIGHT OFFSET OF EQUIPHENT CODE FIELD IN FNT. EOUIPHENT CODE 
FIELD IS POSITIONED IN BITS 6-11 OF BYTE ZERO. 

S.FNTLK C5I 

RIGHT OFFSET OF LOCK BIT IN FNT. LOCK BIT IS POSITIONED 
IN BIT 5 OF BYTE 3. 

S.FNTTYP 13) 

RIGHT OFFSET OF FILE TYPE FIELD IN FNT. FILE TYPE FIELD IS 
POSITIONED IN BITS 3-4 QP BYTE 3. 

S.RBRUNT [6) 

RIGHT OFFSET OF OST ORDINAL FIELD IN R8R HEADER. 

S.RBTNEW (A) 

RIGHT OFFSET OF NEW RBT FLAG BIT IN FLAG FIELD OF RBT WORD PAIR, 
S.R8TRBR (3) 

RIGHT OFFSET OF RBR ORDINAL FIELD IN RBT WORD PAIR. 

S.RBTREL (7) 

RIGHT OFFSET OF RELEASE BIT IN FLAG FIELD OF RBT WORD PAIR. 
S.RBTRNO 16) 

RIGHT OFFSET OF RANDOM BIT IN FLAG FIELD OF RBT WORD PAIR, 

S.STF t6) 

RIGHT OFFSET OF FLAG FIELD IN A STACK\REQUEST. 

S.STFA (0) 

RIGHT OFFSET (IN THE FLAG FIELD) OF PP-AVAILABLE BIT IN A STACK 
REQUEST. 

S.STFEOF [4) 

RIGHT OFFSET IIN FLAG FIELD) OF END-OF-FILE BIT IN STACK 
REQUEST. 
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S.STFETP (2) 

RIGHT offset (IH FLAG FIELD) OF FET-PRESENT BIT IN STACK 
REQUEST, 

S.STFNTP 13) 

RIGHT OFFSET (IN FLAG FIELD) OF FNT-PRESENT BIT IN STACK 
REQUEST. 

S.STFPRI (5) 

RIGHT OFFSET (IN FLAG FIELD) HHICH SPECIFIES HIGH PRIORITY FOR 
THIS STACK REQUEST. 


S.STFREL 

RIGHT OFFSET I IN FLAG FIELD) OF RELEASE BIT IN STACK REQUEST. 

S. STFKCT (1) 

RIGHT OFFSET (WITHIN THE FLAG FILES) OF THE EXACT BIT IN BYTE 
C.STF3 OF WORD H.STFB OF A REQUEST STACK ENTRY, OFFSET IS 
RELATIVE TO S.STF, 

T. CLK 130) 

LOCATION IN -(HIGH CLOCK IS KEPT, IN FORN •HH.MM.SS. T.CLK IS 
UPDATED BY MTR AND DISPLAYED ON TOP LINE OF LEFT SCOPE. TIME 
WILL BE TIME OF DAY, IF A TIME ENTRY TO OSD WAS MAOEl OTHERWISE, 
IT WILL BE THE TIME SINCE DEAOSTART. 


T.CPAl (230) 

CONTROL POINT AREA ADDRESS OF CONTROL POINT 1, 

T.CPJDON (25) 

CHR LOCATION OF A POINTER WORD CONTAINING THE JOB SEQUENCE 
NUMBER AND JOB COUNT. 

T.CPTl (56) 

LOCATION OF THE CPU ACTIVITY STATUS. CPU A STATUS IS IN BYTE 4 
CPU 8 STATUS IS IN BYTE 3. THE ACTIVITY STATUS IS THE CONTROL 
POINT AREA ADDRESS OF THE PROGRAM USING CURRENTLY THE CPU 
(ODOO FOR IDLE) . 

T.OATE (31) 

LOCATION OF TOOAY*S DATE IN THE FORM ENTERED BY OPERATOR AT 
DEAOSTART TINE. DATE IS DISPLAYED ON TOP LINE OF LEFT SCOPE. 
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T.FCS'»ft9 t57> 

THIS WORD CONTftINS IM BYTES 

0 V 1.4 ZEROi 

2 AN ESS ELAH TABLE FULL FLAG. IT IS SET WHEN A FLAW COUNT 
OVER-LOW IS DETECTED DURING AN ECS TRANSFER (BY ICEBOX*. 

3 AN ECS PARITY FLAG WHICH CAN ASSUME VALUES OF 2 OR 4. IT 
IS SET WHEN A PARITY ERROR IS DETECTED DURING AN ECS 
STORAYE MOVE, AND INDICATES WHETHER 1 OR 2 CONTROL POINTS 
SHALL HAVE THEIP ERROR FLAGS SET TO F.ERECP. THE CONTROL 
POINT REQUESTING THE ECS MILL ALWAYS HAVE ITS ERROR FLAG 
SET. IN the CASE OF STORAGE OVERLAP AND THE OCCUPRENCE 
0- THE 3ARITY ERROR IN THE PART OF ECS WHICH BELONGS TO 
ANOTHER CONTROL POINT, THE FLAG MILL HAVE THE VALUE 4. 
AFTER THE FLAG IS SET, OSO MILL DISPLAY A MESSAGE STATING 
THAT AN ECS PARITY ERROR HAS OCCURRED AND MTR WILL NOT 
ASSIGN ECS ANYMORE. THESE CONDITIONS SHALL PREVAIL 
UNTIL THE NEXT OEADSTART. 

4 THIS BYTE CONTAINS THE ADDRESS OF THE BLOCK IN ECS/ICOQB 
IN WHICH THE PARITY ERROR OCCURRED, OSO WILL DISPLAY 
THIS VALUE AS ABOVE. 

T.JOATE (27* 

LOCATION OF TODAY#S DATE IN JULIAN FORMAT. VALUE IS COMPUTED 
FROM DATE ENTERED BY OPERATOR AT DEAOSTART TIME. 

T.HSC (40) 

CONTAINS THE TIME TO THE MILLISECOND SINCE DEAOSTART. 

BYTE I TIME IN SECONDS (RESFT EACH 2»*12 SECONDS) 

BYTE 2 MILLISECONDS SINCE UPDATING THE SECONDS 

BYTES 3-4 TIME IN MSEC (RESET EACH 2**24 MSC) 

T.MSP 137) 

LOCATION OF MONITOR STEP FLAG USED FOR COMMUNICATION BETWEEN 
OSD AND MTR WHILE SYSTEM IS IN STEP MODE. 

T.PPCX (1<X<9I (60,7!!,100,110,120,130,142,150,160* 

SYMBOLS REPRESENT FIRST WORD ADDRESSES OF COMMUNICATION AREAS 
FOR PP#S 1-9. 

T.PPSX (X=l,2,...9,0* (41-521 

LOCATION OF THE PP STATUS WORD. BYTE 0 CONTAINS THE CONTROL 
POINT AREA ADDRESS OF THE CONTROL POINT TO WHICH THE P® IS 
ASSIGNED. T.PPSOt52) IS USED BY MTR AS A SCRATCH MEMORY WORD. 

T.SLABX {1<X<G* 

LOCATIONS CONTAINING SYSTEM LABEL DISPLAYED ON TOP LINE OF LEFT 
SCOPE. 

T.STATC* 155* 

WORD CONTAINING CURRENT STATUS OF CPU 0N70FF/OELEGATI0N. 

(SEE C.STATCP.) 


2-68 


March 1969 



SCOPE 


T.UAS (56) 

LOCATION OF UNASSI6NED STORAGE LENGTH, MTR KEEPS TALLY Op SIZE 
OF THE WHOLES# BETWEEN CONTROL POINTS IN T.UASI IRA USES THIS 
SIZE TO DETERMINE WHETHER OR NOT THERE IS ADEQUATE CENTRAL 
MEMORY TO BRING A GIVEN JOB TO A CONTROL POINT, 

BYTE 0 CENTRAL MEMORY UAS 

BYTE I ECS UAS 

W.CKP (40) 

Relative word in control point area containing number of check¬ 
points TAKEN FOR A JOB* 

W,CpAR (157) 

relative word in a control point area WHICH contains the 

AUTO-RECALL POINTER, 

W.CrCaF (51) 

RELATIVE first WORD ADDRESS IN A CONTROL POINT AREA OF THE lOOB 
WORD BUFFER CONTAINING CURRENT PRU OF CONTROL CARD STATEMENTS, 

W.CpCftL (ISO) 

RELATIVE LWA IN A CONTROL POINT AREA OF A lOOB WORD BUFFER 
CONTAINING CURRENT PRU OF CONTROL CARO STATEMENTS. 

W.CpCC (43) 

f^ELATlVE WORO IN COnTRQL POINT aREA CONTAINING FLAGS RELEVANT 
TO THE last CONTROL CARD PROCESSED, 

W.CpDFM (30) 

FIRST OF Seven WQRdS in a control point aREA containing DaYFILE 
MESSAGE currently ON THE B DISPLAY, 

W.CpOFMC (155) 

WORD IN The control POInT area containing The dayfile message 

COUNT, 

W.CPECS (32) 

Relative word in a control point aRea containing ecs field 

LENGTH/IOOOB AND ECS RA/IOOOB ASSIGNED TO A JOB. 

W.CPEF (20) 

RELATIVE WORD IN A CONTROL POINT AREA CONTAINING ERROR FLaG FOR 
JOB, 

w.cPERT (40) 

relative WORO IN A CONTROL POINT AREA CONTAINING INTERNAL FLAGS 
USED BY JOB PROCESSING ROUTINES. 

W.CP^L (20) 

relative WORD IN A CONTROL POINT AREA CONTAINING MEMORY FlELD 
LENGTH/IOOB ASSIGNED TO THE JOB, 

rt.CPFLAG (153) 

RELATIVE WORD IN A CONTROL POINT AREA CONTAINING RERUN FLAGS, 
W,CpiNS (170) 

relative FIRST WORD ADDRESS IN A CONTROL POINT AREA OF A 7 “ORD 
ZONE RESERVED FOR INSTALLATION USE, 
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W.CPJCP (41) 

WORD IN THE CONTROL POINT AREA CONTAINING JOB CARD INFORMATION 
FOR RERUN* 

W.CPJNAM (21) 

relative word IN CONTROL POINT AREA CONTAINING SEVEN-CHARaCTER 
JOB name* 

W.CPLDR (ISE) 

RELATIVE WORD IN CONTROL POINT AREA CONTAINING VARIOUS 
LOADER FLAGS. 

W.CPOAE (153) 

relative WORD IN CONTROL POINT AREA CONTAINING BVTE USED TO 
COMMUNICATE OPERaTOR-aSSIGNED EQUIPMENT, MTR SETS EST ORDINAL 
OF EQUIPMENT REQUESTED BT DSD IN THIS BYTE FOR SUBSEQUENT 
TESTING BY REQ, 

W.CpOUT (153) 

RELATIVE WORD IN CONTROL POINT AREA WHICH CONTAINS AN OUTpUT 
file flag IN BYTE C.CPOUT, 

W.CppFl (160) 

W,CPPF2 (161) 

WORDS In THE CONTROL POINT AREA USED BY THE PERMANENT FILE 

manager, 

W.CPPRI (32) 

RELATIVE WORD IN CONTROl POINT AREA CONTAINING CURRENT JOr 
PRIORITY, 

W.CpRESl (156) 

RELATIVE WORD IN CONTROL POINT AREA USED BY RESPOND, 

W.CPRO 

RELATIVE WORD IN A CONTROL POINT AREA CONTAINING THE ROLL-OUT 
FLAG. 

W.CPSM (20) 

relative WORD IN CONTROL POINT AREA CONTAINING STORAGE 
MOVE flag* 

W.CPSTAT (20) 

relative word in control POINT area containing status BYTE* 

W.CPTIME (23) 

Relative word in control point area containing cp time 
accumulated by job. 

W.CPTIML (23) 

relative word in control point area containing cp time limit 
IMPOSED on the job. 
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H.CPV'^NO (154) 

RELATIVE WORD IN CONTROL POINT AREA WHICH TRANSMITS VISUAL REEL 
NUMBER TYPED BY OPERATOR TO TAPE LABELING ROUTINE. 

H.ECTIMF I 251 

RELATIVE H0R3 IN THE CONTROL POINT AREA CONTAINING THE 
»ALLOCATABLE ECS# TIME FOR A JOB, 

M.EQP (271 

RELATIVE WORD IN CONTROL POINT AREA CONTAINING BITS INDICATING 
EQUIPMENTS CURRENTLY ASSIGNED TO THIS CONTROL POINT. 

H.FSTCC 1151) 

RELATIVE HORO IN CONTROL POINT AREA CONTAINING FST ENTRY XFNT 
WORD 2) FOR JOB INPUT FILE. CONTENTS OF THIS HORO DESIGNATE 
POSITION ON DEVICE AT WHICH NEXT PRU OF CONTROL CAROS HAY BE 
FOUND. 

W.FTYPE (0) 

RELATIVE HORO IN FNT ENTRY CONTAINING FILE TYPE FIELD. 

H.LBCK (71 

RELATIVE LOCATION IN THE DEVICE LABEL OF THE HORO CONTAINING 
THE LABEL CHECKSUM. 

H.LBOATE (Q) 

RELATIVE LOCATION IN THE DEVICE LABEL OF THE WORD CONTAINING 
THE DATE. 

W.LBFLAM (lOai 

FHA OF THE LABEL FLAW TABLE. 

H.L8ID (D) 

RELATIVE LOCATION IN THE DEVICE LABEL OF THE HORO CONTAINING 
THE LABEL ID. 

H.LBNUH 10) 

RELATIVE LOCATION IN THE DEVICE LABEL OF THE WORD CONTAINING 
THE LABE- NUMBER. 

H.LBPFO (2) 

RELATIVE LOCATION IN THE DEVICE LABEL OF THE WORD CONTAINING 
THE PFO POINTER. 

H.L8PRIV (3) 

RELATIVE LOCATION IN THE DEVICE LABEL OF THE HORO CONTAINING 
PRIVATE PACK INFORNATION. 

H.LBRSTC (21 

RELATIVE LOCATION IN THE DEVICE LABEL OF THE WORD CONTAINING 
THE RBTC POINTER. 
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H.L8PC {2J 

PELATIVE LOCATION IN THE DEVICE LABEL OF THE WORD CONTAINING 
THE RECOVERY CATALOG POINTER, 

W.LSVIO (1) 

PELATTVE LOCATION IN THE DEVICE LABEL OF THE WORD CONTAINING 
THE VISUAL ID, 

N.PPIR (Q> 

RELATIVE HORO IN A P* CONHUNICATION AREA CONTAINING PP 
INPUT REGISTER, 

H.PPHESX tl<XS6» (2-71 

RELATIVE WORD IN PP CONHUNICATION AREA CONTAINING SIX HOROS PP 
MESSAGE BUFFER, 

H.PPOR (1) 

RELATIVE HORO IN PP COMMUNICATION AREA CONTAINING PP OUTPUT 
PEGISTER, 

H.PPTIME (241 

RELATIVE MORO IN CONTROL POINT AREA CONTAINING PP TIME 
ACCUMULATED 3Y JOB. 

H.RBRLAV (1) 

RELATIVE HORO IN R3R HEADER HORO CONTAINING COUNT OF RECORD 
BLOCKS LOGICALLY AVAILABLE. 

M.RBRTPA (01 

RELATIVE WORD IN R9R HEADER CONTAINING EQUIPMENT TYPE AND 
ALLOCATION STYLE. 

H.RBRUNT (01 

RELATIVE HORO IN R9R HEADER CONTAINING UNIT NUMBER (DST ORDINALI 
H.RHPPCH (21 

RELATIVE POSITION OF REAOP/HRITEP CONHUNICATION MORO IN HESSAGE 
BUFFER OF PP COMMUNICATION AREA. 

H.SSH (261 

RELATIVE HORD IN CONTROL POINT AREA CONTAINING SENSE SWITCH 
SETTINGS FOR JOB. 

H'.STCPU (0) 

RELATIVE HORO IN STACK REQUEST CONTAINING CONTROL POINT AND UNIT 
NUMBER (DST ORDINALI OF REQUEST. 

H.STEI (01 

RELATIVE HORO IN STACK REQUEST CONTAINING EMPTY INDICATOR. IF 
THIS FIELD IS 0« THE ENTRY IS NOT IN USE. 

H.STFB (1) 

HORO IN STACK REQUEST HHICH CONTAINS FLAG BYTE. 
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H.STO (01 

WORD IN STACK REQUEST WHICH CONTAINS STACK PROCESSOR ORDER. 
M.STPFH (1» 

HORO IN STACK REQUEST HHICH CONTAINS NEXT ADDRESS IN PP NEHORY 
FOR DATA TRANSHISSIOH. FIELD IS USED IN THIS MANNER ONLY ON 
CALLS TO R.READP OR R.HRITEP. 

M.STPLH (1) 

HORO IN STACK REQUEST HHICH CONTAINS LHA ♦ 1 IN PP HEMORY 
FOR DATA TRANSMISSION. FIELD IS USED IN THIS MANNER ONLY ON 
CALLS TO R.READP OR R.HRITEP. 

H.STPMS (1> 

HORO IN STACK REQUEST HHICH CONTAINS PP MESSAGE BUFFER ADDRESS. 
H.STPPRU (0) 

HORD IN STACK REQUEST HHICH CONTAINS PRU NUMBER AT HHICH TO 
BEGIN DATA TRANSHISSION IF NO-FNT IS SPECIFIED. 

H.STPRBA (0) 

HORO IN STACK REQUEST HHICH CONTAINS ADDRESS OF R8T HORO PAIR 
CONTAINING RECORD BLOCK AT HHICH TO BEGIN DATA TRANSHISSION IF 
NO-FNT IS SPECIFIED. 

H.STPRBN t0» 

HORD IN STACK REQUEST HHICH CONTAINS RBT ORDINAL OF RECORD 
BLOCK AT HHICH TO BEGIN DATA TRANSMISSION IF NO-FNT IS 
SPECIFIED. 

H.STPHC (1) 

HORO IN STACK REQUEST HHICH CONTAINS NUMBER OF PP HOROS (BYTESl 
TO BE TRANSMITTED DURING A REAOP OR HRITEP REQUEST. 
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2.14 SCPTEXT MACROS 


LDK Macro 

Generates LDN or U>C Instruction, depending on size o£ address field. Any 
symbols In address field must have been previously defined. This macro is 
recoanended for referencing SCPTEXT symbols for CM pointer words. 

ADK Macro 

Generates ADN or ADC Instruction, depending on size of address field. Any 
symbols In address field must have been previously defined. This macro Is 
reconmended for referencing SCPTEXT symbols for control point additives 
(W.x symbols). 

UJK Macro 

Generates UJN or LJH Instruction, depending on length of Jun^. In general, 
the jump must be backward, since symbols used in address field must have been 
previously defined. Macro Is useful for exiting from small subroutines 
subject to expansion. 

BIT Macro 

Generates no code; merely defines a symbol in the location field. Value 
assigned to symbol Is a l-^blt mask where the bit is positioned according 
to the value of address field. Bits are counted from right to left, be¬ 
ginning with zero. Thus, the statement MASK BIT 2 would set HSK equal to 
4. Macro is useful for generating 1-blt flag values with the S.x SCPTEXT 
symbols. 

EMM Macro 

Generates standard subroutine entry and exit lines. The name of the sub¬ 
routine Is that declared In location field of EMM; the subroutine may be 
entered by an SJM to that name. If address field of EMM is blank, no exit 
symbol Is defined; otherwise, contents of address field are appended to 
location symbol to generate subroutine exit symbol. (Typically, address 
field contains only an X.) An exit from subroutine may then be made by 
Jumping directly to the generated symbol. 

PPENTKT Macro 

Used as first Instruction following OBG in a primary level overlay. PFBNTKT 
generates code to set up low core parameter as follows: 

D.PPXfiB through D.PPlSfrl'4 Input register contents 

D.CFAD Control point address 

D.RA Reference address/lOOB 

D.FL Field length/lOOB 

Address field of the FPEHTRT macro ahould contain: D.PPXRB, D.TO. 
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LDCA Macro 

Load FF A register with absolute 16-blt central address. Relative CM address. 
Relative CM address is obtained from two consecutive FP low core locations, 
the first of which Is specified in address field of LDCA macro; CM address 
is assuned to be right justified within these two words. Contents of D.RA 
are added to CM address. Macro Is useful for loading many different CM 
addresses. Space may be conserved by using a subroutine rather chan a macro 
If the same address Is to be loaded three or more times. 

CRl Macro 

Reads contents of a CM word the address of which Is contained In a central 
memory pointer. Address field of CRl macro contains X, Y, and Z subfields. 

In that order* 

X 6*blt CM pointer word address 

Y First of five PP low core cells which will contain the desired 

CM word. 

Z Byte within CM pointer word containing 12-blt CM address of 

desired word. 

JOBCARD Macro 

SCPTEXT contains a definition of a macro called JOBCARD. The release version 
Is e^ty, consisting of a macro definition header and a terminator. System 
characteristics may be altered by insertion (between header and tezulnator) 
of one or more cards described below. 

If the symbol SCOPE 2*0 is defined within JOBCARD, SCOPE 3.1 Is altered to 
accept only SCOPE 2.0 job cards. The value to which the symbol SCOPE 2.0 
Is equated Is Irrelevant. 

SCOPE 3.1 may be altered to accept a decimal value on one or more of the 
job card parameters by Inserting a card or cards In the following form: 

DECIMAL field 

Field le one of the terms EC, Ot, T, or P. Currently, all values are 
assumed to be octal; however, it may be declared specifically that a para¬ 
meter Is to be Interpreted as octal by Inserting a card In the following 
form: 

OCTAL field 

Field is as defined above. 

Priority sublevel conqtutatlon may be tailored by Installation as described 
below* 

This procedure combined with the Clnstallatlon partitioned) 12-blt priority 
Is used to order jobs within priority levels upon entry to the input queue. 

The Installation partitions the priority byte by specifying a maximum priority 
level, IF.HPR. The user-supplied priority value from the job card specifies 
the high order bits (level) of a job's priority. The other job card 
characteristics may be used as data for priority sublevel computation 
algorithm. This algorithm la specified by the Installation by Inserting 
a set of statements of the form: 


2-75 


Febr. 1969 



SCOPE 


WEIGHT field, relation value additive 

Field la one of the tezma EC, Ql, T algnlfylng ECS storage allocation 
(in 1000 word blocks), CM storage allocation (in lOOg word blocks) 
and T is Time limit (in 8 second units)* 

relation Is GE (greater than or equal) or LE (less than or equal) 
value Is a comparison quantity 

additive Is to be added to the sublevel If the Job card field bears 
the stated relation to value* 

The installation nay tailor this algorithm to give high priority sublevel 
to particular classes of jobs (express type jobs)* User specified priority 
may be relegated to its proper role of distinguishing urgent Jobs from the 
great majority of batch jobs which may enter the system at an Installation 
specified standard level (IF.SPR) and be fanned out along a priority spec¬ 
trum by the input scheduling procedure. 
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3.0 PERIPHERAL PROCESSOR RESIDENT 

INTRODUCTION 

In the SCOPE Operating System, the System Display 
program (DSD) and the Monitor program (MTR> permanently 
reside In two of the ten peripheral processors, 9 and 0 
respectively* The remaining processors, 1-8, form a pool 
of processors to which MTR may assign tasks as required. 

These pool processors have no fixed assignments; any processor 
may be assigned to the execution of any system routine, and it 
is possible that more than one processor may be executing the 
same routine at the same time* All ten processors contain a 
sms 11 resident program which handles the communications be¬ 
tween pool processor programs and the Monitor and initiates 
the execution of these programs as directed by MTR. 

POOL PROCESSOR STRUCTURE 

PP resident iS contained in locations 0100 - 0772; locations 
75, 76, and 77 contain pointers to the Input Register, the 
Output Register, and Message Buffer In central memory. 

When directed to do so by MTR, the resident loads a 
program into its memory and executes it; since that program 
remains in that processor only for the period of time required 
to perform its function. It Is called a transient program* 
Transient programs occupy locations 0773 - l?72, although 
the first instruction Is at location 1000. Transient programs 
generally load overlays to perform specific tasks* For 
example, CIO, which is a transient program, calls various 
overlays depending on the task (read, write, backspace) and the 
equipment (disk, tape, etc.) specified* Secondary overlays 
are loaded into memory beginning at location 1773, the first 
instruction falling at location 2000. Overlays are 
generally entered via a return Jump. Transient programs have 
names beginning with a letter (CIO, EXU) or the numeral I 
(IBJ, ILT); overlays have n^mes beginning with a numeral 
2 through 7 (2BP, ALB, 7TP, etc.)* 

Both transient and overlay programs, as well as the 
resident program, make extensive use of the low core 
locations 01-74- 

THE RESIDENT 

The peripheral processor resident program has two main 
functions to perform: 

All communication between MTR and the transient or overlay 
programs Is handled by the resident. 

The resident, when directed by MTR, loads transient programs 
and initiates the execution of these programs. 

Communication between MTR and the resident programs is 
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carried oui through thr use of ten communicttlon areas In 
central ot^e for r 4 cf> processor* Each coniinunlcatlon 

arcji consists of a onc-w^ord It^put Registert a one-word 
Output Rc^if<tC’T t and a stx-uord Message Buffer# Pool i ^ 

processors address these areas by means of pointers in 
locations D.PPIR, D*PPOR, AND D#P^^1£51* ^ 

HTR asslgTis a tank to a pool processor by placing the request 
In the pr^Tcessor’a Input Keglstcr* The name of the prograin 
package which ts to be loaded and executed appears In the hlgh- 
ordcr 18 hits of the Input Hcglster. This name consists of 
three display code characters^ such as IaJ# CI0» etc- The 
nurrbrr of the control point to which this package is assigned 
appears in the low-order three bits of byte 1 of the Input 
Register* Package parameters^ such as the address of 
arguments required by the package, appear in the low^order 
36 bits of the Input Register. The request remains in the 
Input Register until the task Is completed. On 
completion of a task, the transient program requests MTR to 
release the procc'sor; MTR then clears the processor's 
Input Regl'^ter. The Input Register of a pool processor 
is thus clear only when the processor is idle; 

All communlcfttion between the Motiitor and the transient and 
overlay programs Is handled by the resident program, MIR 
perforras a variety of functions, each of which is identified by 
a function code of one or two octal digits. 

To transmit a request to MTR, the resident places the 
request in its Output Register- Byte 0 of the Output 
Register contains the functlbn code In the low-order bit 
positions. Bytes 1-4 are used for arguments; the number of 
argument bytes d^'pends on the particular function. Thus* for 
a Request Channel function (R.RCH=2), the channel number 
is placed In byte L For some functions, the function 
areunients are placed In the Message Buffer and only the 
function code appears in the Output Register. 

MTR regularly scans the Output Heglster of each 
processor to determine if a request is present. When the 
request has been detected, analvaed, and processed, MTR 
clears the Output Register. The resident, after placing 
the request In the Output Register, waits for the Output 
Register to be cleared before proceeding. 

The resld-^nt contains a routine called R.HTR which handles 
the transmission of function requests to HTR. This Process 
Request routine uses locations D,T0-D.T4 in peripheral 
processor memory as temporary storage for the request to be 
written In the Output Register. A peripheral processor program 
may utilize the routine by placing the arguments for the 
function In bytes D.Tl through D.T4, setting the A register with the 
function number, and executing a return Jump to R.KXR. Resident 
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routine will enter the function number in loaction D.TO and write the 
contents of locations D.T0-D.T4 In the Output Register. Control will 
be returned to the requesting program upon MTE’s clearing the Output 
Register, 

When a pool processor program completes execution, it exits to location 
R.IDLE, which is the address of the resident idle Loop, In this idle 
loop, the processor's Input Register is scanned at intervals until a 
request is found in the Input Register. A delay between successive scans 
avoids unnecessary memory and read pyramid conflicts. When a request 
is detected, the resident stores the routine name and the control point 
number. It then sends function R.PAUSE, pause for Storage Relocation, 
to MTR and waits for IflR to clear the Output Register before continuing. 
Should MTR be in the process of relocating the storage assigned to this 
control point, the Output Register clear will be delayed until relocation 
is complete. The resident then searches the Library directory for the 
requested routine} if found, the package is read from the resident library 
into the processor's memory beginning at location 773, and resident 
turns control over to this routine by jumping to location 1000. If the 
routine is not found in the directory, the resident enters the message 
"XXX NOT IN PPLIB" in the dayfile, and requests MTR to abort the job 
which called the routine. The resident then returns to its idle loop. 


3.1 RESIDENT ROUTINES 


Several resident routines and words are used by transient and overlay 
programs. These routines are described below. Values are always subject 
to change. 

R.IDLE (100) 

Calling Sequence: LJM R.IDLE 

R.IDLE is the idle loop in which PP resident continually scans 
its input register for something to do. 

R.OVLJ (111) 

Calling Sequence; Store name of overlay in D.T6, D.T7. LJM R.OVLJ 

Go to R.OVLJ to load a new primary overlay and transfer control 
to it. 

R.OVL (124) 

Calling Sequence: Load A register Load Address 

RJM R.OVL 

R.OVL causes an overlay whose name appears in D.T6 and D,T7 (Left 
justified) to be loaded into the PP beginning at the address specified 
in the A register. R.OVL is used both by PP overlays to load higher 
level overlays and by PP resident to load the overlay named in the 
input register. PP resident does not reference the disk directly 
to load disk resident overlays but makes a call to the stack processor 
by calling R.READP. 
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R.EREQS (300) 


Calling Sequence: Store LCrequest) in D.TO 

RJM R.EREQS 

R.EREQS adds the control point number to the already formatted re¬ 
quest and searches the central memory request stack for an empty 
entry. The monitor function, M.EREQS, is called and PP resident 
iterates until the monitor accepts the request. If the available 
flag (bit S.STF+S.STFA of byte C.STFB of the second word of the 
request) Is set, R.EREQS exits to R.1D1>E; otherwise it returns 
control to its caller. 


R.WAIT (410) 


Calling Sequence: RJM R.WAIT 


R.WAIT will cause the PP to idle until byte 0 of the output register 
Is clear. 


R.PAUSE (430) 

Calling Sequence: RJM R.PAUSE 

STD D.RA 

R.PAUSE will exit if the PP is attached to control point zero or if 
the storage move flag is not set. Otherwise, the monitor function, 
M.PAUSE, will be issued and the PP will pause until monitor has 
completed the storage move for that control point. In any event, 
before an exit is made from R.PAUSE, the following will be set: 


(D.TO + C.CPST) 
(D.TO -f- C.CPEF) 
(D.TO + C.CPRA) 
(D.TO + C.CPFL) 
4-register 


control point status 
control point error flag 
control points RA (hundreds) 
control point FL (hundreds) 
control points RA (hundreds) 


D.RA and D.FL (if significant) should always be reset after a jump 
to R.PAUSE. 


R.MTR (450) 

Calling Sequence: Store function parameters in D.Tl to D.T4 

Load function code 
RJM R.MTR 

R.MTR places the function code in D.TO, writes D.TO through D.T4 
to the output register and waits for the output register to clear. 

R.PRQCES (450) 


R.PROCES is identical with R.MTR. 
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R.READP (REWRITE?) (460) (470) 

Calling Sequence: Load L(request) 

RJM R.READPCR. WRITE?) 

REREAD? (R-WRITER) computes the PR word count from the first and 
last word addresses given in the already formatted request and adds 
the computed word count, the address of the PP message buffer, and 
the control point number to the request* The request is entered 
in the stack and data is transmitted via channel directly to (from) 

PP memory. Upon exit from R.READP (R,WRITER), the following information 
will be set* 

CD-T3 H- G.RWPPWT) = number of PP words transmitted 

(D,T3 + C,RWPPLW) = LWA+1 of data transmitted 

(D.T3 + C*RWPPST) = upper six bits of status in bits 0-5 

(D.T3 + C.RWPPST'fl) = lower twelve bits of status 

The 18-bit status has the same format and meaning for PP 1/0 as the 
status in bits 0-17 of the first FET word for central memory I/O* 

R*STBMSK (611) 

R.STBMSK is the address within PP resident of a location used by 
the R.STB routine, q* v, 

R.STB (620) 

Calling Sequence: Load L(list) 

RJM R.STB 

where list has the form 

L (byte) 

L (word 1) 

L (word 2) 


L (word n) 
zero 

An entry point to R.STB called R.STBMSK is the address of the 
mask ^^anded^^ with each word in the list before the word is 
"exclusive ored" with the byte* This mask is initially 7700B 
and this value should be restored by any routine which substitutes 
an alternate mask, R.STB is used primarily to substitute channel 
numbers in driver overlays. 
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R.CPFL (627) 

R.CPFL specifies the location within PP resident which contains 
the field length/lOOB of the control point to which the PF is 
attached. R.CPFL is reset each time the R.PAUSE routine is entered. 

R.CPRA (631) 

R.CPRA specifies the location within PP resident which contains 
the reference address/lOOB of the control point to which the PP 
is attached. R.CPRA is reset each time the R.PAUSE routine is 
entered. 

R.TFL (634) 

Calling Sequence: Load relative address 

RJM R.TFL 

R.TFL is used to insure that a relative address is within the 
field length. The 18-bit address is added to the control point 
reference address (RA) and compared with the field length. If 
the address is out of range, R.TFL will exit with a negative A 
register; if the address is legal, the A register will contain 
the absolute CM address (RA + relative address) upon exit. The 
control point RA and FL are kept locally within PP resident at 
R.CPRA and R.CPFL, respectively; these locations are reset when 
an entry to R.PAUSE is made. 

R.DFM (650) 

Calling sequence: LOAD L(message)+flag bits 

RJM R.DFM 

R.DFM will cause a message to be written from PP memory to the 
dayfile and/or the console. The flag bits are contained in the 
high-order 6-bits of the A register upon entry to R.DFM and are 
used to determine the destinations of the message. Possible values 
of the flag bits are described below; one or more bits may be on. 

All are optional. 

1 = Dayfile only (B Display) 

2 = Control Point 0 (System) message 
4 = System Dayfile (No A Display) 

lOB = Collation (Accounting) Flag. If set then a $ will be placed 
in the 20th character of messages that are sent to the system 
dayfile (not set by any CDC routine. Used by installations). 

20B ■— C. E. Error File. Note : C. E. Error File entries are unique. 
See section 6,7 for proper formats and calling procedures. 
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R.RCH (704) 

Calling Sequence: 

•f 

Load channel number •> — 

RJM R.RCH 

The channel numbers contained In the A register will be stored 
in byte D.Tl, monitor function M.RCH Inserted in D.TO, and D.TO- 
D-T4 written to the output register for that PP. Channels will 
be assigned by MTR on the following priority basis: 


D.TO 

D.Tl 

D.T2 

D.T3 

D.T4 


2JJ_ 

4 1 3 




If alternate channels are specified MTR will stop looking for 
alternate channels upon sensing 6 bits of zero. Thus^ if one 
alternate channel Is desired^ the programmer must clear D.T2 
before entering R.RCH so the search will be terminated at that 
point. The procedure for requesting channel 12 with alternate 
channel 13 would be: 

LDM 0 

STD D.T2 

LDC 1312B 

RJM R.RCH 

Monitor will stop looking for alternate channels after four 
channels have been investigated. 

When R.RCH is used^ D.T4 is automatically set nonzero; in this 
casCi the function Is not considered complete (i.e., output 
register Is not cleared) until a channel can be assigned. When 
complete, byte 0 of the output register is cleared. 


R.DCH 

(714) 

Calling 

Sequence 

LOAD 

channel 

RJM 

R.DCH 

R.DCH will cause 


number 


the specified channel to be dropped. 
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Four categories of direct cells are used by the PP resident 
subroutines. Under each category are listed all routines 
which, together with all subroutines they may call, use 
only cells in that category. 

Cells 1 - 17 (D.Zl - D.T7) 

R.OVL 

Cells 10 - 17 (D.TO - D.T7) 

K.READP 

R.WRITEP 

R.ERBQS 

R.DFM 

Cells 10 -14 (D.TO - D.T4) 

R.RCH 
R.DCH 
R.PAUSE 
R.PROCES 
R.WAIT 

Cells 10, 12 (D.TO, D.T2) 

R.STB 

No direct cells 
R.TFL 

All subroutines except R.TFL destroy cell 0. 
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M-1*0 Introduction 

The Dead Start packagsi although formally a part of the 
SCOPE Operating Systenn performs functions beyond the 
control of SCOPEt the most important of these being the 
loading and activating of SCOPE itself. Dead Start and 
the system have no programs in common twith the trivial 
exception of some disk driver codeli and the running of 
one never overlaps with the running of the other. The 
functions of Dead Start fall into two categories! i> 
activation of the SCOPE system^ and SI certain stand¬ 
alone utilitiesn such as post-mortem dumpi etc. Follow¬ 
ing system activation-i no further Dead Start functions 
are performed until Dead Start is reactivated by toggling 
the Dead Start switch* Following completion of a utility 
function-I another Dead Start function must be performed 
by toggling the Dead Start switch. 


M.1.1 Dead Start Functions 

Dead Start and the operator communicate by means of the 
titaOE/tiblS Console Display. Dead Start displays information 
aboutT and the operator can control at appropriate placesi 
the dead start processing- The basic control is select¬ 
ing the function to be performed- 


System Activation 

Activating the system consists of either loading a 
fresh system or restoring a previously running systemn 
passing certain information to that systemi and then 
turning over control of the machine to it. The passed 
information is in the form of CliR tablesi Entry Point and 
Program Name Tablesi and RBT''s in CM t and the Permanent 
File tables on some mass storage device. The types of 
system activation are as follows. 

1. Initial Dead Start 

Write device labels on all RMS devicesn set up an 
empty PF Directory-* load the system from tape-* and 
turn over control. 

H. Normal Dead Start 

Verify existent labels on all RMS devicesn restore the 
existing PFD and all active permanent filesi load the 
system from tapen and turn over control. 

3. Recovery 

Verify existent labels on all RMS devices-i restore 
the existing PFD and all active permanent filesi 
recover non-permanent filesi restore the systemi and 
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turn over control* The system can be restored in one 
of four ways: 

A. Load a fresh system from the tape* 

B. Restore the original system from the disk. 

C* Restore the system from the disk retaining all EDITLIB-'s 
but the last completed one. 

D. Restore the system from the disk retaining all completed 
EDITLIB-'s. 

Through recoveryn the operator can also bypass the recovery 
of user files and simply perform a dead start from the 
disk by treating the system as described in B above. 


4.1.1.2 Utility Functions 

1. Dead Start Dump 

The operator can dump selected portions of Central HemoryT 
PP memoryn or ECS and write the results to either a printer 
or a tape. 

2. thUBII Pre-addressing 


4.1.2 System Tape 

The SCOPE 3 system tape as released is composed of several 
'’special^' records at the beginning! a record containing the 
Entry Point Tablea record containing the Program Name Table-i 
and then the library records. The ^special'' records consist 
of 13 Dead Start programs! hTR! DSDi and from l-fl copies of CfIR. 
The system tape is ordered as follows! 


1. 

CEA 


2. 

CED 


3. 

D 


4. 

N copies of 

CMR 

N + 4. 

EST 


N + S. 

IRP 


N + b. 

SCP 


N + 7. 

SCfi! 


N + a. 

5CR 


N + T. 

scs 


N + ID. 

SCT 


N + 11. 

P 


N + 12. 

STL 


N + 13. 

IRCP 


N + 14. 

UTR 


N + 15. 

DSD 


N + lb. 

EPT 


N + 17. 

PNT 


N + la. 

1st library 

program 
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The number of special records Is variable and can be changed 
at will. All records following CUR are located by namei hence 
additional programs can easily be inserted. li)hen doing sot 
the relative order of the existing routines should remain the 
same. -CNote: EDITLIB has been modified such that the LIST 
function searches for DSD rather than skipping a fixed number of 
records. Consequently t DSD must immediately precede the Entry 
Point Table.! 

The Dead Start package consists of four decks: CEA-, CONTROLt 
STL n and IRCP. CONTROL in turn contains CEDi Di ESTi IRPt 
SCP i...n SCTi and P as segments. In addition the following 
common decks are used" DSLCOli {basic Dead Start parameters!! 
DStlAC {operator communication macros!! RMSA {LLDS-I driver 
code>! RhSB {tiL36 driver code!! RMSC {LbOS-II driver code!! 

RMSD {fibs driver code!! RflSP {6S4 driver code. ECSCOO is 
called if the 8NL ECS code is assembled. 


4.2.0 General FIow 


4.2.1 CEA 


When the dead-start button is pressed! CEA is read from the 
tape and given control- CEA is a very small program whose 
only function is to send the contents of PPD to central memory. 
The only reason for CEA existing is so that the first record 
to be read from the tape will be quite short! and hence not over— 
write much of PPQ. CEA then uses the code sent to PPQ via the 
dead-start panel to read the next tape record. This record 
must be the program CED. 


4.2.2 CED 

CED is a relatively large routine which contains the follow¬ 
ing: 

1* A routine which determines what type of dead-start is to 
be performed. 

2. Routines to perform preliminary dead-start functions! such 
as freeing the PP'^s from their respective channels. 

3. Routines which will be resident in all PP-'s that are involved 
in the dead-start process. These include a display routine 
and tape I/O routines 


4.2-3 Dead-start Dump 

The first decision for CED is whether or not the dead-start 
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being performed is for a dead-start dump. Thusi the first 
message to appear on the display asks if a dump is desired. 

If the operator asks for dUmpi CED reads another tape record 
directly into PPD. This is expected to be the dead-start dump 
program. Control is given directly to dump. At this point 
nothing has been overwritten except PPOi six bytes at the 
beginning of the other nine PP^’s and the area in central memory 
where PPQ was saved by CED. A switch on the deadstart panel 
can be used to suppress the saving of PPO if it is desired to 
get an accurate dump of this area in central memory. 


4.S.4 CfIR and Dead-start Options 

If dump was not selectedi CED is free to make use of central 
memory and the other PP-'s. The first task at this point is 
to initialize ChR. The contents of the CHR present at the time 
of dead-start are saved in a remote area in central memory. 

This will be used if a recovery-type dead-start is being per¬ 
formed. After saving the old CflRi CED loads CHR from the system 
tape. 

Once CUR is loadedn the operator is presented with a display 
which shows all of the available options. Any of these may 
be changedi and all assumed values are shown- At this pointi 
the operator may also make changes in the equipment configuration* 


4.E.S riass-Storace Drivers 

Uhen the operator has made all desired entries-i CED first loads 
drivers for each type of mass-storage device. These drivers are 
read from the tape and placed in an area in central memory where 
they may be found by the routines that need them later. 


4.E.t) Types of Dead-Start 

At this point 1 what CED does depends on what general type of 
dead-start is being performed. There are two types: 1} Utilityi 
and S> system activation. The utility type dead-start involves 
any function which does not involve the IRCP - IRP interface 
{described below>. Such routines perform only limited tasks 
and are unable to initiate the operating system. 
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Pre-addressing 

There is currently only one dead-start utility "function* 

It is the pre-address routine for the If this 

type of dead-start is selectedi CED reads the routine 
named P from the system tape and sends it to PPl where it 
then executes. P reads the tsbOB-II driver from central 
memory {placed there byCED> and does all disk I/O within 
PPl. The only thing not actually done by P is the driving 
of the display. PPO acts as a display driver for any 
utility routines. When pre-addressing is completed •• PPl 
simply hangs upi and another dead-start must be performed. 

4.2.fi System Activation 

^.S.6.1 Setup 

The IRCP-IRP type dead-start is the much more important 
of the two types-« and will require much more discussion- 
Its purpose is to initiate the execution of the SCOPE 
operating system in one of several ways- Howevcri its 
first responsibility is that of recovering permanent 
information on any of the mass-storage devices known to 
be within the configuration. 

As described abovei the mass-storage drivers have been 
loaded into central memory. In additionn the routine 
IRP is sent to PPl and given control. IRP consists of 
the code necessary to do tape and mass-storage operations. 
The code for mass-storage I/O {commonly called RMS control! 
is sent over to PP2 and allowed to begin execution- AIsot 
after loading IRPt CED reads IRCP from the tape and loads 
it into central memory. IRCP is a central processor pro¬ 
gram which does most of the work remaining to be done by 
dead-start. CED starts up IRCP by an exchange jump and 
then begins to function entirely as a display driver. 

Thusn at the time IRCP begins to execute-i the following 
conditions exist: 

1. IRCP is executing in the central processor. 

2. PPO is executing as a display driveri and may 
display any messages requested by the central pro¬ 
cessor or any PP>'s. 

3. PPl contains the tape I/O routine. It is waiting for 
a request to process- 

4. PP2 contains the RhS control routine. It is waiting 
for a request to process. It will make use of the 
drivers that were stored in central memory. 
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M.S•fl.S Functions 

The functions performed by IRCP depend on the type of dead- 
start that was selected by the operator- There are three 
types of dead-start processed by IRCP. The following 
summarizes the procedures followed for each of the three 
types! 

1. Initialization - type 
a> Label writing 
b> Label checking 
c> Preloading 
d> Loading 

5. Normal - type 

a> Label checking 
b> Preloading 
c> Loading 

3. Recovery - type 

a> Label checking 
b> Recovery 

c> Pre loading -tin certain cases! 
d> Loading 

Each of the above processes is described briefly in the 
following section. A more detailed description appears in 
the IRCP section. 


Label Checking 

Label checking involves accessing every mass-storage device 
except those turned off and searching for a label. This is 
done before pre-loading! recovery-, or loading because it in¬ 
volves designating that certain record blocks are not to be 
written on by the dead-start process. The label serves two 
purposes! 

1- liJhen the device is encountered which contains the Perman¬ 
ent File Directory -CPFD} and the RBT catalogue LRBTOt 
permanent file information is set up in CfIR. This 
includes reserving all record blocks containing permanent 
information. 

H. For all devices-, a flaw table is kept in the label. When 
the label is read-, all flaw bits are placed in the 
Record Block Reservation -CRBR} table. The flaw table is 
never modified other than at dead-start time. 

If a device is encountered with no label the operator must 
designate that a label is to be written on the device. The 
label is then written before any other processing takes place. 
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4.E.fl.2.S Label Uriting 

Labels are normally written on every mass-storage device 
except those turned off during an initialization-type 
dead-startT and also when so instructed by the operator 
after a label could not be found on a device. The opei— 
ator is given complete control over the label writing 
process. Just prior to writing a label for a devicei a 
display is generated which shows the following: 

1> Device information -Ctype-. channel i etc.> 

5> Whether or not the device already has a label. If 
a label was found t the remaining information is 
obtained from the label. 

3> Date 

4} Visual Identification 

S> Whether or not this is the primary Permanent File 
device -Cdevice containing PFD and RBTO. 

Contents of flaw table. 

The operator may change any of items 3-b above as he 
pleases. To free the operator of numerous type-ins at 
times he knows they are not necessaryi he may Indicate 
that all remaining labels be written without any addi¬ 
tional type-ins. It is also possible to skip writing of 
the label for one or all remaining devicesi except in 
this casei the operator will be informed if a device is 
found without a label. 


4.E.fl.5.3 Preloading 

The process of copying the contents of the system tape 
to one or more mass-storage devices is referred to as 
preloading. The information which is written during 
this process becomes the system file {logical file 
SYSTEM!. The following should be noted: 

1> Tape input is performed by issuing requests to the 

tape I/O routine which is executing in PPl. Each re¬ 
quest causes one tape record {PRU> to be read. 

B! The input data is formatted suitable for output to 
the mass—storage device. This involves moving the 
data to one of the output buffers-, and-, at the same 
time-t inserting word count and checksum bytes at the 
of each logical PRU to be output. 

3! Output to the mass-storage device is performed by 
the RMS control routine in PPE. IRCP issues one 
request to RMS control each time a record block is 
to be written. The write-with-RfiT order code {04} 
is usedi andi as a result-, the entire RBT chain for 
the system file is constructed by RMS control. 


October 1969 


4-7 



SCOPE 


4> More than one system device is used only if the system 
file will not fit entirely on the first system device. 
As many as five devices will be usedn if necessary. 
Since preloading is the most time-consuming of the 
dead-start processesn double buffering is used for 
both the tape and RMS I/O. All three of the operations 
described above proceed concurrently. The system tape 
will read non-stop while pre-loading to any type of 
mass-storage device whose driver produces a transfer 
rate greater than that of the tape. This is currently 
the case for all devices except the 8SM. 


4.S.6.2.4 System Loading 

The dead-start loader portion of IRCP is called either 
at the end of the preloading or recovery processes* It 
involves reading SYSTEM from the system devicelsJi placing 
the CM resident library in CMi and constructing the appropriate 
tables to allow the system to assume control. More speci- 
ficallyT the following functions are performed! 

1> STLt MTR-, DSD are saved in CM at STLBUF-. MTRBUF-, and 
DSDBUF for later use. 

2> The Entry Point Table and Program Name Table are placed 
in CM immediately following CMR. 

3> Each program in the system library is processed as 
follows! 

a. Its checksum is validated. 

b. Its residence is determined and if 

1. DS resident! its disk address is written in 
the PNT 

B. CM resident! it is copied to the next available 
location in the CM resident library and its CM 
address is written in the PNT. 

•CNote that only the two residence types are presently 
allowed.> 

4> Miscellaneous fields in CMR which have not yet been 
set up are set up at this time. Finally! signals are 
sent to accomplish the following: 

a. Stop PPQ from driving the display. 

b. Stop PPl from looking for tape requests. PPl then 
loads and executes STL. 

c. Stop PP5 from looking for RMS requests. 

S> A stop instruction marks the end of the loading pro¬ 
cess and! in fact! of all IRCP functions. 


M.S.6.2.S Recovery 

The purpose of dead-start recovery is to restore the 
whereabouts of certain files that existed in the system 
at the time of dead-start* The basic steps are as follows: 
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1> At the beginning of the dead-start process-) the 

contents of CtIR as it existed at dead-start time are 
saved starting at TABLESAV. The RBT''s are saved at 
RBTSAVE. 

2} The fresh CMR is loaded from the system tape-* and an 
empty RBT chain is initialized. 

3> The recovery routine gets the information about 
previously existing files from the FNT and RBT''s 
saved in above. Note that certain tables must be 
intact at the time of dead-start in order for recovery 
to be successful. These include the FNTi all RBT''s-. 
and the system dayfile buffer. These tables are 
restored from the old CUR for every recovery-* and it 
is not necessary to perform tuo dead-starts to accomplish 
this as it was with the previous version of dead-start. 

4> System loading is performed so as to give control to 
the operating system. 


4.2.'i STL 

STL is the last dead-start routine to be executed before 
the SCOPE operating system gets control. It is loaded 
into PPl as soon as IRCP has completed the dead-start 
loading process. It contains PP resident plus the..code 
necessary to initialize the remaining PP-'s. The follow¬ 
ing takes place I 

1} All PP*'s are currently waiting for their respective 
numbers to be stored in CM location zero. PPD is 
waiting for 12 Bt however-* since CM location zero 
is normally kept equal to zero. When a PP detects 
thisi it clears CM location zeroi activates channel 
zeroi and inputs over channel zero to location zero. 
STL now sends PP resident to PP2 through PPfl. To 
accomplish this-* it does the following for each PPs 

a. The direct cells &.PPIR-, D.PPORi and D.PPMESl 
are set with the correct addresses of the PP-'s 
input register-* output register-* and message 
buffer-* respectively. 

b. The PP number is stored in CM location zero. 

c. STL waits until the PP picks up the signal-* that 
isi when CM location zero is reset to zero. 

d. STL outputs one byte equal to 7?B over channel 
zero. Since the PP will read this to its location 
zero-* this will cause the PP to begin execution 

at location IDOB -CR.IDLEl when channel zero is 
disconnected. 

e. STL outputs 777B bytes starting from location one. 
This includes direct cells 1-77B arid all of PP 
resident which resides at IQOB through 777B. The 
PP will read this to the same locations in its 
memory. 
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f. STL disconnects channel zero. This causes the 
PP to begin execution. 

5> HTR and DSD are sent to PPQ and PP^t respectively. This 
is done by signalling to the PP as described abovei 
except only a very small program -Cseven bytes in length> 
is sent across channel zero. This small program reads 
Into the PP from HTRBUF or DSDBUF to accomplish the 
loading and initiation of MTR or DSD-t respectively. 

3> All PP''s are now completely set up-i including PPl 

{STLJt which has had PP resident in place in its own 
memory since it was loaded. STL thus exits by simply 
jumping to R.IDLE. 
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^.3.Q DEADSTART CENTRAL MEMORY ALLOCATION 


The following shows how central memory is allocated during the three 
phases of the deadstart process: ClI Label and Permanent File Process¬ 
ing and Recovery*! "CSI Preloadingi and CBI Loading. 

Label and P.F. 

Processing-! 
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All of the symbols described in this section are defined in 
the common deck 0SLC0f1> Their values at the time of the 
3»l.ts release are shown. Note that a 32K memory is 
assumed. Central memory usage by deadstart may be modi- 
fied by changing the values of appropriate symbols. Host 
symbols are keyed from a symbol defining an adjacent area. 
The value of all such symbols depends on the value of the 
symbol BASE* For example-i if a 131K system is to have 
an unusually large CM resident library-* it may be necessary 
to set the origin address of IRCP •CIRA1>R> to a higher 
value. This may be done by simply redefining BASE to any 
arbitrary address in the middle of CM. In either a tSK or 
131K machine-, there is ample space to make changes to 
allow for both a bigger CM resident area and RBT area. 

BASE -CHDODOI Location from which the origins of 

other areas arc keyed- Changing 
it automatically changes the values 
of all symbols except RBTSAVE. 

IRA1>R ■C3DQ0D> FUA of IRCP. This is the value 

which defines the maximum size of 
the resident library area. 

DRIVBUF <4GOaO> FblA of the area used for storage 

of all RMS driver overlays. 

OPCXCTLW ■C4SDD0> FUA of central memory buffer used 

by PPO display driver. 

TABLESAV <45SDD> FUA of area where CHR from prior 

deadstart is saved for recovery. 
Note that this area is used for 
other purposes beginning with pre- 
loadingi because only recovery 
uses the saved CHR. 

RBTSAVE -Cb4D0D> LUA■^1 of area where RBT area from 

prior deadstart is saved for re¬ 
covery. This table is stored in 
the same manner as the actual 
RBT-'s so that RBTSAVE-1 in the 
save area is equivalent to LUA-*-! 
of CM in the actual RBT area. 

There must be as much space between 
RBTSAVE and the highest location 
used for saving CHR as the maximum 
length the RBT area might occupy. 
There must also be this much space 
between the LUA+l of CM and RBTSAVE 
The release values are set for a 
maximum RBT length of 14D0QB words-, 
which is rarely exceeded. The 
theoretical maximum-, however-, is 
2Q00DB words. 
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RNSBUFO 

-C1770Q> 

FtilA of an RilS {rotating mass 
3torage> buffer. This buffer is 
used for all reading and writing 
of record blocks during label and 
permanent file processing. It 
is also used during preloading 
along with RHSBUF1. Howeveri it 
is not used during loading because 
it is intended that the resident 
library will expand into this area 

RliSBUFl 

{M5S00> 

FUA of an RNS buffer. It is used 
only during preloading in conjunc¬ 
tion with RtlSBUFD 

TBUFl 

{lb700> 

FijJA of tape buffer. It is used 
in conjunction with TBUFD during 
preloading. As with RflSBUFO-i this 
space must be relinquished during 
loading for the resident library. 

TBUFQ 

i;].57DD> 

FliJA of tape buffer used in con¬ 
junction with TBUFl during pre- 
loading. 

LBLADR 

■Clt.7Dl> 

FUA of area used for reading and 
writing of labels during label and 
permanent file processing. 

RBBUF 

■ClS7ai> 

FliJA of area used for building an 

RB chain during permanent file 
processing. 

STL8UF 

■CM2S0Q> 

FtilA of area where STL is saved 
during deadstart loading. 

tITRBUF 

-C44B0a> 

FlilA of area where flTR is saved 
during deadstart loading. 

DSDBUF 

{4S7DD> 

FlilA of area where DSD is saved 
during deadstart loading. 

CMBUFFER ■C47MD0> 

FltlA of RfiS buffer used during dead 


start loading. 


4.4.D CONTROL 

CONTROL is the name of the UPDATE deck which contains in 
several segments most of the dead-start PP code. The 
segments are as follows^ 
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1. CEO 

This routine takes the computer from the dead-start con- 
ditioni determines from operator entries what type of dead- 
start is to be performed! sets up CHR {except when dead- 
start dump is being used>-i and calls in IRP and IRCP to carry 
on the dead-start process- 

In addition-) CEO contains several resident routines which 
reside in the low part of PPD memory- These are sent over 
to PPl along with IRP- These routines include the display 
drivers which are used only in PPO and the PP OPCOn routine 
and tape drivers-) both of which are first used by CEO-i but 
then only by IRP once it has been sent to PPl- 

E. 0 

This is the dead-start dump routine. Iilhen requested by the 
operator-. CEO loads it directly into PPD and executes it. 

3. EST 

This routine processes changes to the equipment configuration- 
It executes in PPl and is used only if the operator desires 
to make equipment changes. 

4. IRP 

This routine contains the tape and RHS control routines. 

The entire IRP routine is sent to PPl by CEO. The first 
thing IRP does is send the RMS portion to PPS. During the 
remainder of the dead-start process! PPl processes tape 
requests made by IRCP. The tape driver subroutines in 
low core are used for the actual I/O. PPS processes all 
RHS requests from IRCP by using the drivers described below- 

5. sex Drivers 

These are the drivers for the various types of RHS devices- 
Before CEO starts up IRP! it reads these drivers from the 
tape and moves them to a save area in central memory. When 
RMS control processes a request! it fetches the appropriate 
driver from central memory! if necessary^ and uses it to do 
the actual I/O. 

There are currently five such routines! as follows! 


a> 

SCP: 

bt>03 

di sk 

driver 

b> 

SCO: 

t] t]3fi 

disk 

driver 

cl 

SCT: 

t=bQ3II 

disk 

driver 

d> 

SCR: 

fits 

drum 

driver 

e> 

SCS: 

S54 

disk 

pack driver 
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This routine is used for pre-addressing the 6603IX disk. 

When this option is selected by the operator, CED sends P to PPl 
and gives it controls 

4.4.1 CED and D 


The first thing CED does Is issue a tape read so as to read in the second 
PRU of CED. Then the first dead-start message is displayed. It asks 
the operator if a dump is desired. If so, CED loads the dump segment 
(D) and transfers control to it. Up to this points nothing has been 
changed in CMR, except for the PPO save area and nine words that are 
used for controlling the PP^s 1-9 up to this time. These nine words 
are restored before dumping, however. 

If dump was not selected, the old CMR is saved, and a larger idle loop 
is sent to each PP. This loop causes each PP to look for Its PP number 
in location zero of central memory (see section 4.7.6), CMR is now read 
from the tape. The tape may contain up to eight different copies of 
CMR. This allows a tape to be configured for more than one computer. 

The setting of a certain 3-bit field on the Dead-Start Panel determines 
which CMR will be loaded. This field is in bits 6-8 of the tape connect 
code (see figures 4.7,2 and 4,7.3). The value of this field is the 
number of that are skipped; that is, with this field equal to 

zero, the first Ci^ is used. CED assumes that all copies of CMR follow 
immediately after the d^lmp (D) segment. It also assumes that there 
are at least as many copies of CMR present as the setting on the panel 
indicates. 

CED now calls the subroutine MTXCTL to display the various options and 
to allow the operator to select those which he desires, MTXCTL returns 
to CED with the parameter word CEDAKGS set up for use by the remainder 
of deadstart. Its format is as follows 2 


byte 0 - unused 

byte 1 - 0 if ECS up 

1 if ECS down 


byte 2 - unused 


byte 3 


XOO if system file is not to be recovered 
XOl if system is to be recovered as before all EDITLIBS* 
XIO if system file is to be recovered as before the last 
EDITLIB, 

Xll if system file Is to be recovered with all EDITLIBS. 
OXX if other files are to be recovered 
IXX if other files are not to be recovered 


byte 4 


0 if initialization 

1 if normal deadstart 

2 if recovery 

3 if the device debug routine is to be executed 
(See section 4.9.3) 
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During the execution of MTXCTL, the operator may indicate whether 
or not he wants to make any changes to the equipment configuration. 

When MTXCTL returns to CED, a flag is set to so indicate. If equip¬ 
ment changes are desired, CED now searches the tape for the segment 
EST and sends it to PPl, It is assumed that EST follows immediately 
after the last copy of CMR, The EST routine is described in section 
4.4.2. While EST is executing, CED does nothing more than drive the 
display. EST signals that it is finished by storing a 12B in location 
aero of central memory. 

CED next proceeds to set things up for the next routines to take over 
control. Starting at location CEDARGS+1 in central memory, a list of 
up to five EST ordinals are stored, one per CM word. If a pre-addressing 
deadstart was selected, the EST is searched of 6603-11 entries. Other¬ 
wise, ordinals for system devices are stored. Now CED begins reading 
the tape and fetching all necessary routines. The routine lEP (P if 
pre-addressing) is sent to PPl and allowed to begin execution. The 
RMS drivers are stored in central memory, and their names and locations 
are entered into a directory (DIRECT). Any other routines are discarded 
until IRCP is encountered, and, at which time, it is assumed that all 
required routines have been found. 

At this point, unless a pre-addressing type deadstart was selected, 
an exchange jump (EXN) starts IRCP. All of the setting-up functions 
of CED are now completed. PPO 'now becomes the display driver for the 
rest of the deadstart routines, and IRCP (or P) takes over control 
of the deadstart process. 


The following is a list of the main routines in the resident portion 
of CED, They are the routines that execute in other PP's, The resident 
portion ends at the address OSGADRS. 

The following are the tape routines: 


READTPE 

COPYLOG 

READREC 

FUNC 

TAPSTAT 

CHECKS1 

STAT 

D81TPE 


reads the tape into PP memory, 
reads the tape Into Central Memory, 
connects the tape unit, 
issues a function to the tape channel, 
checks the status of the operation, 
checks the status of the 6681. 
reads the tape and converter status, 
deselects the 6681 on the tape channel. 


The following are utility routines: 


INCHNO 

SIGPP 

MODIFY 

ERRINF 

RELEASE 


inserts channel numbers into specified instructions, 
signals a specified PP to come out of its idle loop, 
modifies instructions for RMS driver overlays, 
processes error information for RMS driver overlays, 
disconnects the display channel. 
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The foLlowing are the various components of the OPGOM package* This 
is the last portion of the resident area: 


OPCOM 


MSGTXT 

QSTEXT 

OFTEXT 

CNVTOTB 

CHKCHR 


CNVTOTBA 

CNVTBTO 

COORDFTX 

PUT BYTE 


contains the control portion of the package* It sets 
up the calling sequence for use by the other parts of 
the package to create a display driver and processes 
the resultant input* 
processes messages in a MSGLST list, 
processes messages in a QSTLST list, 
processes messages in an OPTLST list, 
converts octal display code to binary. 

determines if a character is octal and returns its value 
if it is. 

converts a series of octal digits to binary, 
converts binary to display code octal, 
converts the line/character co-ordinate to a physical 
console co-ordinate. 

transmits a display byte to the display buffer in PP 
zero or CM. 


The following routines are resident in PPG throughout the deadstart 
process: 


IKSD is the internal display driver controlling routine 

for a PP zero OPCOM call- 

BLNKOUT clears the keyboard entry buffer. 

DSPINIT does initialization before the display is started. 

ACCPIN calls DSPDRIV to display the keyboard buffer, calls 

TKPCTL to read the keyboard, and checks for a carriage 
return. 

TYPCTL Is the keyboard monitor. 

DSPDRIV is the CRT driver. 

CEXTRCT gets a specified character from the keyboard buffer. 

CINSERT puts a character into the keyboard buffer. 

CONTROL is the main loop which controls the first part of dead- 

start (see narrative of program flow for more details). 

KSDA is the display controlling routine of the display driver 

for external (to PP zero) calls for displays. 

SENDPRG sends a program read into PP zero memory to PPl with 
the resident portion of CED. 


The following routines are used only while CED is in control. These 
routines begin at the address LOADORG. This is also where PP routines 
to be stored in other areas are brought into PPO memory. 


BEGINPT 

SENLOOP 

MTXCTL 

SAVECMR 

FREGHAN 

PKDATA 


starts the PP*s inputting on their channels again after 

they have been Idled down reading a CM word repeatedly. 

sends a large (fourteen word) idle loop to each PP. 

displays the deadstart options and accepts operator 

input to select the desired options. 

moves CMR to a safe place in case it is needed for 

recovery* 

sends an idle loop to each PP over the channel which 
it Is reading to quiet the channel. At the end of the 
loop, all channels are free and each PP is reading a 
word in CM. 

saves data from the D/S panel. 
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The dump segment D consists of the following routines: 


OBEY 

OBEYP 

CONVERT 


OBEYC 

OBEYX 

WRICP 
XJMP 
FixeHAN 

CNV6 

CNV12 

CNV12A 

TPRINTl 


BLANKIT 

EJECT 


LABEL 

EOF 

WRT 

BKP 

OUTPUT 

DWRITE 

PRNTCM 

PPZERO 

WAITR 

PRINT 

MACSIZE 

SETPR 

SENDPPS 

PREOBEY 

OBEYT 

OBEYE 


is the main loop which asks the operator what he wants 
to do and transfers to the appropriate routine to do it. 
is the routine which processes requests to dump PP's. 
is the routine to convert the address of CM or ECS which 
the operator wants to dump. It is used by OBEYC and 
OBEYX- 

is the routine which processes requests to dump central 
memory. 

is the routine which processes requests to dump Extended 
Core Storage. 

writes the ECS read program to CM. 
writes the exchange jump package. 

sets up each PP with an idle loop in preparation for 
dumping. 

converts six bits to octal display or printer code, 
converts two six bit quantities to octal, 
calls CNV12 and accumulates a bit sum. 
keeps track of the number of zero lines and turns off 
the print after two successive zero lines until a non¬ 
zero line is to be printed, 
sets the dump output line to blanks. 

causes a page eject on printing. If this routine is called 
and output is to tape, a "1" is put in the first character 
position of the next line to be written on the tape. 
Processes requests for labels to be written on tape, 
writes an end of file on the tape, 
handles the physical 1/0 for tape, 
backspaces the tape one record. 

makes the switch between tape or printer fox dump output, 
handles the buffering of the dump output to tape, 
handles the conversion of four CM words to form a print 
line. 

gets the bytes of the contents of PP zero which was 

stored in CM at the beginning of deadstart. 

waits for the printer to be ready for 1/0. 

prints on the printer. 

determines the size of central memory. 

sets the printer channel in printer I/O instructions. 

sends the dump loop to each PP. 

does the initial setup for dump. 

handles the change from printer to tape for dump output, 
handles the change from the assumed printer channel and 
equipment numbers. 


^>^■2 EST - Process Equipment Changes 

EST is the name of a segment of the deadstart deck CONTROL. It is used 
only if the operator desires to make one or more changes to the equipment 
configuration as indicated on the system tape, GED reads it from the 
system tape, sends it to PPl, and starts it executing. Until EST is done, 
CED does nothing more than drive the display. 


4-18 


October 1969 



SCOPE 


The contents of the equipment status table (EST) are formatted and 
displayed on the left screen. The right screen provides a sunimary of 
the allowable keyboard entries. When an entry has been entered, the 
appropriate changes are made to the EST and, if necessary, to other 
tables. The display of the EST is then formed again and the operator 
makes another entry. This sequence is repeated until the operator in¬ 
dicates that he has made all desired changes- He does this by entering 
a lone carriage return. EST then notifies CED of its completion. 

A detailed description of all type-ins is not included here: the SCOPE 
Operator's Guide should be consulted for this. 

The following describes how tables are modified: 

1. Only the EST is modified if the change deals entirely with non 
allocatable devices, or If an allocatable entry is being changed 
only to the extent of modifying status bits. 

2. If a change involves removing an allocatable device entry, all 
RBR^s corresponding to that EST entry are cleared- DST entries are 
not cleared. This type of change results from a request to clear 
out an EST entry or from a request to replace an allocatable device 
entry with an entry for a different device. 

3. When a change requires adding an allocatable device to the EST, an 

RBR is built. In order that this can be done, there must be sufficient 
space in the RBR area for one RBR. If there is not space, the type - 
in is treated as an error. The left screen display always shows 
how many RBR^s can be formed in the available space. An RBR can 
always be inserted if the operator requests that the new entry be 
inserted in the EST so as to replace another allocatable entry, since 
the tables for the entry being removed are deleted as described in 
2 above. 

A DST entry is added unless there is already one present for the 
same controller. That is, a similar DST will be identical with 
respect to driver name, channel number, and equipment number. 

The following equipment tables are used by EST. They are generated by 
calling macros which are defined in the common deck DSLCOM, They are 
used for building EST, DST, and RBR tables and for identifying devices 
as 3000-6000 type and allocatable - non-allocatable. 


DEWAMES 

DRIVERS 

DEVTYPES 

DEVSIZE 

DEVALLOC 

CLASS 


contains 

contains 

contains 

devices. 

contains 

device- 

contains 

contains 

known to 


device mnemonics for allocatable devices, 
the driver names of allocatable devices, 
the 6-bit device type codes for allocatable 

the number of record blocks on each allocatable 

the allocation style of each allocatable device, 
the hardware mnemonic for all types of devices 
the system and a code as follows: 
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0 - 3000 allocatable 

1 - 6000 allocatable 

2 - 3000 non-allocatable 

3 - 6000 non-allocatable 

If a hardware mnemonic is encountered which is not in 

this table, it is assumed to be of type 3000 non-allocatable. 

4.4.3 P - Deadstart Pre-address 6603-11 (Option 10124) 

Each 6603-11 sector consists of 504B bytes; the last two bytes are 
reserved for addressing. The P routine pre-addresses the disk by clearing 
the entire surface and writing an RB number and physical sector address 
in the address bytes for use during repositioning. 
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When the pre-address option is selected, CED loads the P routine into 
PPl where it is immediately executed. During execution, operator com¬ 
munication is maintained through GED display drivers in PPO and operator 
input returns via central memory. 

This routine is a stand-alone utility dead-start function. When it is 
completed, another dead-start must be performed. 


4.4.4 1 ^ 

IRP is loaded by CED to drive tapes and rotating mass storage (fiMS) for 
deadstarting. 

lEP is loaded by GED when the operator selects deadstart options I 
(initialize), N (normal) and R (recovery); it is not loaded when options 
D (dump), and P (pre-address 6603-11) are selected. 

IRP consists of three logical parts: 

1. Tape drivers and the display format routine from CED. 

2. The tape 1/0 control routine. 

3. The KMS (Rotating Mass Storage) I/O control routine. 

GED loads IRP into PPl and transfers control to it- IBP copies the tape 
drivers and display format routine, and the BMS I/O control routine, along 
with common utility routines into PP2. PPl and PP2 can now work inde¬ 
pendently, fulfilling requests put into their respective message buffers 
as described below. 


4.4, 4,1 IRP - Tape Routine 

Deadstart system tape READ, REWIND and UNLOAD functions are provided 
by the IRP tape routine in PPl. 

Status Communication 


During deadstart, the PP communication area is used differently than 
during normal operations. The last byte of the PPl input register is 
used for status communication during deadstart. If this byte is zero, 
a request is waiting in the message buffer; if non-zero, there is no 
request waiting. 

IRCP makes a request of IRP by placing the request into word one of the 
message buffer and setting the last byte of the PPl input register to 
zero. IRP senses the "request-waiting" status, executes the request, 
and resets the input register byte to non-zero (awaiting request) status. 

The activity of the IRP tape routine is finally terminated when the in¬ 
put register byte is set to 77B. At this time, the deadstart subroutine 
STL will be loaded and control transferred to it. 


October 1969 


4-20 



3'iOD8 


'ffM i./o\ < n i>^ u lil ,if *• vT'>c Ml tic M ^^*r%i TCii^* 

v.»- •“ ill' >• X*^ !^*. (lf*Jfc»ih'rfiin £ r 1 I' !i-r6ri’^' *iU 

br^ 0*1*' n' •'a < ij?* u^r* aiu n * uof ^'^:>ln»‘ii‘ 

»d / erifiJji'^ ; Mlfi * 

*!l :ri ni4r(w ., 

. ? i* :rro} i^,7 ^ -i^OSpi^iiOj 


^1 

• I I - * i •! ijntjk 3 ‘-i Vit 9 • 13h * ^ ✓*' ^W 

IfU j ir.,; 

t 

J .rf t?.;o tj>*i Tr:r*,irMA ^ 'j *• rl 

(i .^>fiv /.i j! * • .'^ - # . ’ Lt’m 4 ^ HI - I s . i I rt f ' 

,tr-! t -tl'if -*11 • -I -I r»?e*ibLXf a-«»|^ ^ I. II ‘ ‘JJMI'i “ 

♦llfil «•/ *•% * • e dc: < I* •!> 

-•IS iir. :j I !<f:# i Jis.irr l^r i . *$dj i 4. 4 * iTh ^f?i I ^ f 

. "'i fus. fjii di^T 

**-. i-,J^*^.:? 0\l • .V**"f'* 

-44»; - ' 'If ^ I , • naiu >if*i , --f . 4 «T)i. 

sn^l* , «r M ; 111, ,, I I* ‘‘n 

• ^Lfii .'liiiV V .1 fir*. M.r i'i‘i • M " ;.iri .-ih^i 1 iiiv- 

I ijcf Ml . 1 * M.#V! . • 14 IJ >*ii it.'*. ^/; f f i I j *1 

, V*j i * r* *.i*♦• * 1 1 M» I* tT n )r 


,ftlji*>>i u<,^rT j 1 >; I 

* 'b * IQ 3 . £nii * 1 ::• ri :*1 r l-r*, J#.'W34 , .i^.iiH •»‘:^o.'T m**iti ifeLi» 4 C 

**^4 fxi -T t T f«i » 4 >x aril %' 

toi l_ If It 3 M 

-bin •*« !>/ tsltr: • * n *Al 

; 1 o jrC't TO ^nc I b(Tr:v • ^riitc^k 

'• ?T -:> Vd • ‘ ► ib *^iJj m* * U , it. ^ : • U it '" 

h M-r*.? , > r. •( , 4ivr';’M(r uri*! n ^nJ-, ^ ^ t 

• •*a 10 .>iTO b** MX "n f. HJid vM . ^*t * ^ /«- *^ , • “ . pVp**' t 4r*l 

• 1. H iin t*r?ljJjke l at 

* . Mip'V ^4;) 4j*i/:i>« '%nl jrct r ' .‘»t«- 

^ ***♦ ' r4nl^»^«a. 1 4.11; ruin n *aivd •^il- *• 

‘-ru* -iiU iL**j» • >:5bnt<rn%i /J^'li.iili *^1 l:»ii»»7 •iKjt * *»'< * d r •^i.vf:n. *.. 

*i^f i*jn-fJu9 g;j J; ajfi2 !• ' <• (I • *f*r *•) 

1 ‘*^3 -?i‘j’ .31,. biilitol (5*^* .!'• 


‘i*jdo3:)r 




SCOPE 


Format of Tape Request in PPl Message Buffer 


Word 

One 


tdord 

Count 

a 

!^Cn FliJA ^ 

□ or 

EST No.” 

Code and 
Status 

ST 

^7 

m 

33 

11 


** EST No- Is to be entered when a request for a tape unit 
is different from that of the preceding request, 
{Current version ignores this field). 


Code and Status 


The Code and Status field has three parts! 



15 bits 





order 

level 

error 

code/reply 


TI 7 M D 


1. ^-b^t level number 


Rightmost byte of 
word one in PPl 
message buffer. 


a. Level number will be returned when an end-of-record 
occurred at a reading. 

b. Level number of the preceding logical record will be 
returned for a backspace logical record. 

c- Level number must be specified for writing a logical 
record or a E0F««. 


MM Not available 


5. 3-bit Error Code 


M = order unacceptable. 

Three conditions will hang the system with relevant 
messages on the display! 

a- Uncorrectable parity errors, 
b. Uncorrectable lost datai and 
c- Failure to connect device. 

3. 5-bit Order Code/Reply 


Order 

Code 

Reply 

Function/Status 

Read 

□□ 

01 

No EOR/EOF occurred. 



□ 3 

EOR occurred. 



05 

End-of-File occurred. 



□ 7 

Tape Hark {End-of-FileJ read. 

111 r i 

ID 

11 

To write a full length record. 


13 

13 

To write a logical record. 


14 

15 

To write an EOF. 
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Backspace** 

PRU 

20 

21 

To backspace one PRU 

Backspace** 
a logical 
record 

22 

23 

To backspace a 
logical recordp 

Rewind 

30 

31 

To rewind to the load point. 

Unload 

34 

35 

To rewind and unload. , 


** Not available. 


Execution of Orders 
1. Read (00) 

Reading stops at a short record, tape mark, or when the remaining 
word count has been reduced to less than lOOOB. When execution 
of the request is completed, information will be returned to PPl 
message buffer word one as follows: 



59 

47 

41 


23 

11 0 

Word 

Remaining i 
Word Count 


r 



Code and 
Status 

1 

0 

1 CM LWA+1* 

_1_ 


0 or 

EST No. 


* CM LWA+l indicates the CM location containing the level 
number if the record is a short record. 


4.4.4*2 IBP - RMS Control 


Control resides in PP2 and processes all requests for mass storage 
I/O during dead start. RMS Control makes use of the drivers 5CP - 5CT 
as overlays to drive the appropriate device. 

Status Communication 

When RMS control Is activated, it uses the PP2 communication area to 
exchange information with IRCP and other requesting routines. The last 
byte of PP2 input register contains status information, zero indicates 
a request is waiting. 
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PPE Communication Area 


Status 


Request 


Lrror 

Status 



Input Register 
Output Register 


flessage 

Buffer 


Routines requesting RliS control activity place their request 
in words one and two of PPE message buffer and zero the last 
byte of the input register* RMS control senses the '^request 
waiting'' status of the byten executes the request and indicates 
completion by placing status information in the byte- 

RPIS control activities are terminated when the input register 
byte is set to ??B. At this timen PPE enters into an idling 
loop in which *it seeks a ''two'' at CH location zero* 


Types of Requests -GUord One of Request! 


There are four kinds of requests: Read and Write for each 
of type □ and 1* 

Type □ - The request refers to an RBT chain* 

Type 1 - There is no reference to an RBT chain and the 
request has RB number and EST number instead 
of it* 


Type 0 



ss 

4? 

3S Eb 

E3 

11 

3 i 

_0 

Pirst RBT 

Ordinal 

Current 

RBT 

Ordinal 

RBT r 

Word j 

Count 

Current 

PRU 

Number 

0 

1 r 

I “ 1 
— 


RB byte Count T 


□ 


□ = Read 
14 = Write 


t 

T 
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At the completion of a request■« current PRU number will be 
updated to point to the last PRL)+1« For type □ requests 
current RBT/RB pointer may also be updated. For order DM 
■Curite with RBT>t end-of“information PRU No- held in first 
RBT word pair will be updated. 


CM Buffer Address and Length -Clilord Two of Request} 

Common to all kinds of requestsn word two has a pointer to 
the CM buffer and its assigned length. At the termination 
of the request! these fields will holdi the address + 1 of 
last word filled by the request! the remaining length of 
assigned area-i the number of PRUT'S in the RB and current 
RBR Ordinal. 


Word 2 
Request 



51 

47 

41 


y_, 

11 □ 

Length 

PRU 

H * 

; RB 

—X -, 

D 

1 

[ CM 
J_ 

1 

First Word Address 

_t_ 


^'^RB ord 1 


First RB byte 


Word S 
Return 



51 

47 

41 


S3 IS 

11 5 0 

Length 

PRU 

1 

M 1 

\RB 

1 

_1_ 

□ 

\ 

ten 

J_ 

1 

Last Word Address +1 

_^_ 

rbsize-i|Y 
__ /\ 

RBR t 
Ord_.j/\ 

- 

P 



•* Length has two fields 

RB {bit D - bit 3> gives number of full RB‘*s to be processed-i 
PRU {bit 4 - bit 11> gives additional length in number 
of PRU'*s. 

For Request with PRU = 7777B-I this field must have 
relevant information. 

nmm This field {bit 4 - bit 11> gives the count -1 of PRU'’s 
in the RB. 


Status Information 


Kinds of status information put in the last byte of input 
registers are: 

1. 1 = Specified number of PRU'*s have been processed without 

errors. 

2. 41 = {RMS driver overlay not found 

{Request in format error. 

3. SI = Specified device not available. 
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4 . 11 = Permanent parity error or lost data* 

S* OS = Recovered parity error or lost data* CThis status 
bit Cbit 2> can appear combined with other status 
information■> 

ti • D3 = {READ {DO} ended with End-of-Information. 

{WRITE {04} ended with current RBR becoming full 
{READ {10} or WRITE {14} ended with the end-of- 
current RB* 

For errors with code 21 t 11 and OSi additional information will 
be available in word 3i 4i and 5 of message buffer as explained 
in the following. 

Error Information {for status code 21t 11 and 05} 


Word 3 

Word 4 

Word 5 

ST 47 35 23 11 □ 






Device 

Status 

Converter 

Status 

X 



X 

PRU 

Number 

Retry 

Count 

Hardware Address 
Reqister Contents 

isa 

BB 


Directories for RMS Drivers 


One-word directories for each of RilS to be used at dead- 
start time are assembled before RPIS Control is to be used* 

Their starting address is defined as DIRECT. 

The end of directories is signaled by zero word. 

The format is: 


53_ 4135 2 ^_ 11 _0 

I * I ^ Pill A rM 


- 1- 

Overlay Name 1 0 

J FUA in CM of Routine 

0 j Location of Routine 

Length of 

_1_ !_ 

1 t Name , 

Routine 


When a request is given to the RhS Control ■» RMS Control searches 
the necessary driver overlay from the directories if it is 
not currently loadedT and loads it using information on the 
directory* 


RUS Driver Overlays 

REIS driver overlays are assembled as segments of CONTROL. 
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They are assembled from common decks of UPDATE library 
{C0nDECK> with a special assembly option for RUS Control- 

A symbol RHSC is defined in the RflS Control for an assembly 
option to get correct driver overlays* 

Device names and corresponding COMDECK names and overlay 
names are; 


Device 

Mnemonics 

COMDECK 

RMS Control 
Overlay 

{ ISP > 
-cover lay> 

bbOB 

AA 

RMSA 

SCP 

BSP 

bbBfi 

AB 

RMSB 

SCfl 

3SC3 

bb03-II 

AC 

RMSC 

SCT 

3ST 

6bS 

AD 

RMSD 

SCR 

3SR 

aSM 

AP 

RMSP 

scs 

3SS 


Execution of Orders 


Order □□ -CType 0> 

READ WITH RBT 

Reading starts at the current RBR/RB/PRU*< specified. 
Reading ends at; 

a* a device error Cother than recovered parity errorsJ 
b* the end of RBT chain CPRU preceding EOI PRU> 
c. the end of specified No- of PRU-'s 

Switches from one device to another will be done within 
RflS Control - 

**li)hen D^PRU^ No- of PRU''s in the RB. 
starting PRU is in the current RB. 
when No. of PRU-'s in the RB S PRU ■C< 777?B> 
current PRU is the first PPU -C=D> of the next RB- 


Order 0*4 -CType 0> 

bIRITE UITH RBT 

1* First RBT Ordinal ^ □ 
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a. PRU = 7777B 

No RB is assigned for the new RBR specified in the 
request. RPISC will search the specified RBR for 
free RB*«*« and if found toggle it and store the RBR 
No- and RB No- to the current byte of the RBT word 
pair- No actual writing will be done- 

Then RMSC sets 

PRU No- = 0 

■CNumber of PRU’'s in RB> -1 in byte of the 
request word pair. 

b- PRU f 7777B 

Writing starts at the current RBR/RB/PRU*« specified- 
lilriting ends at? 

1- a device error {other than recovered parity errors> 

2- the end of available RB'*s in the RBR 
3. the end of specified No- of PRU-’s 

MM When tne device is titiD3/tit)D3IIn only outer zones will be 
used* 

E - First RBT Ordinal = D 
a. PRU = 7777B 

Lack of First RBT ordinal means no RBT word pair is 
assigned yet- RfIS Control will get an RBT word pair 
from the empty chain and save it in the request 
format as the first RBT ordinal. Then last byte of 
word 2 of request will be put to the second byte of 
the word pair {as the RBR ordinal and First RB byte 
address}. So-« this information must be there when 
this type of request is to be issued. After thatT 
the request will be executed as case {la.} above- 

RHS Control sets 

1- Current RBT ordinal = first RBT ordinal 
B- Current RB byte position = specified by the 
request. 


Order 10 {Type 1} 
READ DIRECT 


Reading starts at the current R8R/RB/PRU specified- 
Reading ends ati 

1. a device error {other than recovered parity errors} 

E. the end of current RB 

3- the end of specified No- of PRU-'s 
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Order m {Type 1> 

URITE DIRECT 
1. PRU = 7777B 

The specified RB bit of the RBR will be set and the PRU 
will be set to 0, The No. of PRU-'s in the RB-1 is 
returned. 

No actual writing will be done. 

3. PRU ^ 7777B 

Writing starts at the current RBR/RB/PRU specified. 
Writing ends atj 

a. a device error Cother than recovered parity errors! 

b. the end of current RB 

c- the end of specified No. of PRUT'S 

At the termination of a requestT the request will be returned 
with updated information: 

RBR/RB/PRU will point the next PRU to be processed. 

No. of PRU'*s will show the remaining PRU‘‘s to be processed 
when the processing ended with an error condition. 

CM FWA will point the address to be used next. 


More specifically: 

1. No change will be made when no processing has been done: 

PRU = 7777B and no available RB exists in the RBR. 

•<l>river overlay not found. 

N^evice not available. 

♦♦Condition -Cb! or Cc! Cfor any type! exists at the 
beginning. 

►♦If PRU = 7777B Request will be modified and RB will be toggled 
before these errors are checked. 

£. At a device errori the end status will show as if the 
current PRU {with error! has been processed-i i.e.-i 
current PRU = PRU with error + l-i but CM address and the 
remaining PRU count will not be updated for the last 
PRU. 

3. At condition {b! the current PRU will be the last PRU No- 

+ 1 . 

for order 00 PRU = EOI in the RBT first word pairn 
for orders 04i lOi 14 PRU = No- of PRU-'s in the RB. 
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4.5.0 IRCP 

This section describes in more detail the main functions of IRCF that 
were introduced in Section 4.2.8.2. The listing should be consulted 
for detailed descriptions of all entry and exit conditions. 


4.5.1 


Preliminary IRCP Tasks 

IRCP first performs a few miscellaneous tasks that are easier to do here 
than in CED. For the most part, they have to be done before any of the 
major functions take place: 

1. Central memory size (and ECS size in some cases) is saved. 

2. For all RBR's of devices of fewer than 2048 record blocks, the un¬ 
used bits are set* 

3. The RBT area from the previous deadstart is saved for use by recovery. 

4. The entire R£T area is initialized to a single empty chain. 


The remainder of this section describes the major IRCP functions. See 
Section 4.2.8.2 for the order in which these functions are performed. 


4.5.2 


Freloadlns 


The preloading and loading logic is much simpler than that of the pre¬ 
vious version of deadstart. The reasons for this are: 


1. The central processor has complete control, while the PPU's simply 
carry out requests. The RMS control routine in PP2 contains all 
logic required to drive all standard allocatable devices. 

2. Because of the way central memory is handled, preloading and loading 
make direct use of the RBT and RBR areas. Previously it was neces¬ 
sary to place a special RBT chain on the first RB of the system de¬ 
vice for use by loading. CMR was not loaded until preloading was 
complete. When loading was complete, another step had to be taken 
to build the RBT chain and set RBR bits for the system file. 


During preloading, one PRU is read at a time from the system tape into 
one of the tape buffers, TBUFO or TBUFl. The data Is then formatted 
into allocatable device PRU's, stored Into one of the RMS buffers, 
EMSBUFO or HMSBUFl, and output to the device when the buffer contains 
one record block worth of data. 


4.5.2.1 Tape Input 

The system tape is rewound both at the start and at the end of pre- 
loading. 
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A tape PRU is read by issuing a request to the tape I/O routine in PPl, 
Only the first request issued (for each reel if a multi-reel system) 
requires preloader to wait for completion. For all subsequent requests, 
control passes directly to the processing of data in the other tape 
buffer. When it comes time to examine the results of the request, the 
following Is done: 

1. End*of*reel status Is tested. If present, the tape is rewound, and 

a message is sent to the operator telling him to mount (or dial in) 

the next reel. After the types GO, the request is repeated. 

2. End-of-file status is examined. If present, flags are set to cause 

preloader to terminate the next RMS buffer without waiting for a full 
record block. 

3. Error conditions are not checked by preloader because they are checked 
by the tape routine In PPl. 

4. If the tape PRU just read is the start of a logical record (if the 
previous PRU was short), the display is changed to show the name of 
the program currently being read from the tape* 

4.5*2.2 Device Output 

Once the input operation is completed for one of the tape buffers, the 
process of adding to one of the output buffers takes place. This is 
accomplished by the subroutine PLPRU, which is also responsible for out- 
putting the buffer. Each time PLPRU is called, one PRU of data is placed 
in the output buffer. The size of a PRU, which is traditionally 64 CM 
words of data, Is defined by the DSLGOM symbol (Section 6.0),RMSPRU, 

The following decisions affect the manner in which PLPRU is called and, 
hence, the logical record structure of the system file: 

1. If there is more data in the tape buffer, and it is at least as much 

as a device PRU, PLPlttJ Is called to place a full PRU in the buffer. 

2. If there is more data in the tape buffer, and it is less than a de¬ 

vice PRU, PLPRU is Called to place the remainder of the data in the 
buffer. This produces a short PRU and, thus, the end of a Logical 
record* 

3. If the remaining word count of the tape buffer is zero, and if the 
tape record was not short, then this is not the end of a logical re¬ 
cord. The processing of this tape buffer is complete. 

4* If the remaining word count is zero, and if this was a short tape 
record, then this Is the end of a logical record. However, the last 

PRU placed In the output buffer will have been a full one. There¬ 

fore, PLPRU Is called to output a zero-length PRU. This is also 
done when the logical end-of-flle is encountered on the tape- 

Note that the above decisions make the assumption that the tape PRU 
size is an exact multiple of the device PRU size. Otherwise, in Case 
2 above, a short tape record could not be assumed. 
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At the same time as the transfer across buffers is taking place, the 
other tape buffer is being read into by PPl, and the other BUS buffer 
is being output to the system device by PP2, With this double buffering 
process, the speed of preloading is limited only by the maximum rate 
of transfer to/from the slower of the two devices involved# 


4#5#2*3 Completion of Preloading 

There is very little cleaning up to be done at the end of the preloading 
process, since both the RBT chain and the RBR bits for the system file 
have been set up by the RMS routine. Only the following is done: 

1. PLWAITR is called to wait for the last RMS request to complete* 

It is Important that this be done before modifying the RBT’s because 
there is no Interlock on any of the tables during deadstart time. 

2. The device type and the start address of the system file are stored 
in the FNT entry for SYSTEM* 

3. The unfilled special fields in the system file RBT chain are con^leted. 
These consist of the random bit, the end-of-information PRU number, 
and the last RBT ordinal and byte number- 

4* The tape is rewound. 

5. The display Is modified to indicate that preloading is complete. 

4*5*2*4 Preloading Subroutines 

4.5.2.4.I PLDEV 

This routine is called to perform initialization whenever a new system 
device Is needed for the first time. Normally, this is necessary only 
once at the start of preloading. Subsequent devices are required only 
if the previous device overflows- The following is done: 

1. The EST ordinal for the next system device is picked up. If there 
are no more system devices specified or if five have already been 
picked up, deadstart terminates with an error message. 

2. The display is modified to show the current system device being 
used for preloading* 

3. The initial RMS request for the new system device is made- This 
request does not perform any I/O, but instead it allows the RMS 
routine to set fields In the RBT chain to Indicate the switching 
devices. 


4.5.2.4*2 PLPRU 

This routine places data in the output buffers and issues RMS requests 
to write on the system device* Each time It Is called, the equivalent 
of one PRU of data is placed In the buffer* The number of data words 
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to go In the PRU Is passed on entry, and may be from zero to the size 
* full PRU. The result appears as follows; 

START 


STAR1M-1 


START+N+l 


START+RMSPRUfl 


where N = Number of CM words of data in PRU. 

OAN iRMSPRU 

CK. 12-blt checksum of all data words. 

This is the first byte actually written to the device by 
the driver. 

WC * Number of data bytes in PRU (=5N) 

L = Level number. This is present only in short PRU's (N^EMSPRU). 
It is equal to 17B for the EOF PRU and zero for all other 
short PRU's. (For the EOF PRU it will be in word STARTfl, 
since it is a zero-length PRU.) 

After the PRU has been placed in the buffer, a check is made to see if 
the buffer now contains a full record block of information or if the 
PRU Just stored was the EOF PRU (zero length and level 17), In either 
case, it is time to dump the buffer. First, PLWAITR is called to wait 
for completion of the last RMS request, then pointers ate switched to 
indicate that the buffer just filled is now I/O active and the other 
buffer free for storing new data, and finally mS control is called 
to begin another output request. PLPRU then exits while the request 
is still being processed. 


4.5.2.4.3 PLMSGl 

This routine sinqsly makes a call to the display routine OPCCM to display 
the preloading message. It is called at the start of preloading and 
each time the program name or device information to be displayed is 
modified. 
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4.5-2.4.4 PLWAITR 

This routine waits for the current EMS request to complete and then 
checks for error conditions. The conditions checked are* 

1. EMS control found the request to be illegal, either because of 

a non-existant function code or the necessary driver was not found 
in the directory in CM. Neither of these conditions should occur. 

2* Device reject- 

3. Lost data (parity errors are not detected during writing). 

4* 5.2.4.5 PLTAPEF 

This routine is called to issue either a rewind or unload request to 
the system tape. At the present time, the tape is never unloaded by 
deadstart. 


4.5.3 System Loading 

The system loading phase is the last main task of deadstart before the 
system routines take control of the computer. The necessary tasks are 
performed by the routine LOAD in IRCP and, finally, by STL, STL per¬ 
forms those tasks which can only be done in a peripheral processor 
and primarily involve starting up the other peripheral processors. 

At the beginning of loading, the following is already done: 

1- All information on mass-storage is already set up. 

2. CMR is already set up except for a few values which must be stored 
by LOAD. If this was a recovery deadstart, the recovery process 
has already occurred. All RBT^s are stored in their final location. 

3* PP*s 0, 1, and 2 are still a display driver, tape driver, and RMS 
driver, respectively- However, the use of PPl as a tape driver 
ended when preloading completed- 

From this, LOAD has to accomplish the following: 

1. All remaining pertinent information has to be placed in central 
memory. This primarily involves setting up the library directory, 
which is not a part of CMR. 

2. The appropriate system routine must be sent to each PP and given 
control. 


4.5.3.1 Types of Loading 

Loading is performed in one of three possible ways. The first is always 
used unless a recovery is taking place in which case, any one of the 
three methods might be used: 
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It The entire systen file le reed from the device on which it resides. 
The resident llbrery Is built eccordlng to the Program Name Table 
on the system file. This restores the system to the state It was in 
before any EDITLlB's were run, In case this la a recovery. 

2. The last copy of the library directory saved by EDITLIB (file 
SSSSSST) la read Into the directory area* This has the effect 

of leaving the system as It was with all EDITLlB's except Che most 
recent. 

3. The Entry Point Table and Program Name Table are left as they 
existed prior to dead-start. Only those CM resident programs 
which have to be restored (because they are no longer Intact In 
CM) are read from the appropriate file. This file Is either SYSTEM 
or the EDlTLlB-preduced file, SSSSSSU. This type of lead causes 
the system to be restored as It existed with all EDITLIB's. 


4.5.3.2 LOAD 1/0 


The I/O performed by LOAD consists of input only, and is accoDpllshed 
by Issuing requests to RMS control in FP2. The exact method of reading 
the files SYSTEM, SSSSSST, or SSSSSSU varies with the type of loading 
being performed* 

For the first type (Section 4.5.3.1), the file SYSTEM Is read from 
beginning to end. As each PRU Is encountered. It Is examined to see 
if It is the start of a logical record, and, if so, the action performed 
for the remainder of that logical record depends on 1) the name and/or 
2) the part of the system file currently being read. This procedure 
is also used for the second and third types on the system file through 
DSD. 

The second and third types of loading do not Involve reading the entire 
system file. Only certain records have to be read. This Is done by 
setting up a request for BMS to read from a particular location In a 
file. 

The following subroutines are used for all of the types of loading. 
Other, more specialised, routines are described later. 

1. BDNXIBB 

This routine calls BMS to read a record block. The fields In the 
request iriilch tell where on the file to read are not modified by 
BDNXTRB. They must be set up before BDNXTRB Is called. For the 
first type of loading, this needs to be done only once, since 
SYSTEM Is read seqxtentlally, and BMS returns the request updated 
to the point where reading stopped. 

BDN3CTRB waits until the request Is coo^leted. If the BBB ordinal 
In the ccoq)leted request Is different than the previous one, then 
the routine 6BTDBV Is called to store values that change as a re¬ 
sult of device switching. BMS errors are also detected by BDNXTRB. 
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2. CHNGREQ 

This is called by RDNXTRB to make the required settings in the 
RMS request prior to issuing the request. The FWA to read is set 
to CMBUFFER, and the desired read length is set to one record block. 

3. GETDEV 

This is called by RDNXTRB whenever the input operation switches 
to a different device. The EBR ordinal, RB size, DST ordinal, EST 
ordinal, and EST address are saved by this routine. DEVINFO is 
called to set up the display line for the new device. RDNXTRB is 
initialized so that it will always call GETDEV the first time. 

4. CHKEND 

This routine determines when the current RB is exhausted and time 
to read another RB. It does this by bumping the PRU number and 
comparing with the maximum. 

5. GETPARAM 

This is called to fetch the header bytes from the start of the 
next PRU to be processed. These include the byte count and the 
PRU checksum. The fetch pointer for the RB is also advanced by 
one so as to skip over the CM word containing the header bytes. 

The format of each PRU after being read to CM appears in section 
4.5.2.4.2. 


4.5.3.3 Loading Procedure 

1. The subroutine SETREQ is called to set up the initial RMS request 
to read starting at the beginning of SYSTEM. Then RDNXTRB is 
called to read the first record block. 

2. The fetching of data from the input area is accomplished by first 
calling the routine CHKEND and then calling GETPARAM. By this pro¬ 
cess, the fetch pointer from the input area is updated to the next 
PRU, and, when necessary, the next RB is read. Except for the 
special processing of types 2 and 3 of loading, control returns 

to this point after each PRU has been processed. 

3. If the current PRU is the end of the system file (zero-length, level 
17), the routine ENDFILE (step 9) is entered. This only occurs 
here during type 1 of loading. 

4. If the current PRU is the start of STL, the store pointer is set 
so the record will be stored at STLBUF. Then the routine PROCESS? 
is called. PROCESS? is used to store STL, MTR, DSD, the Entry Point 
Table, and the Program Name Table in their respective locations 

in CM. It sets a flag (MOVEFLAG) so that the data will be moved 
and then calls CHKSUM. Before exiting, PROCESSP sets a flag to 
indicate whether or not the PRU was short. 
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CIKSIM is the main data moving routine for the type I loading and 
also for types two and three through the processing of DSD. It 
does the following: 

A. Picks up the PRU byte count and converts It to a CM word count. 

6* If the data Is to be stored in CM (HOVEFLAG — 0)* the PRU is 
checksunsoed and, at the same tloie, moved to the area designated 
by the store pointer, STOREPT. The confuted checksum Is com¬ 
pared with the checksum In the PRU, and If they disagree, an 
error halt occurs. 

C. If the data la not to be stored in CM, (MOVEFLAG — 1), only 
the checksumming Is performed* This occurs for disk-resident 
programs. 

The same process as descsrlbed above Is performed for MTR and DSD. 

HTR Is stored at MTRBUF, and DSD Is stored at DSDBUF. 

5. If the current PRU Is part of one of the records not used at all 
during loading, the routine IGNORE Is entered. IQIORE acts much 
like PROCESS?, except It sets MOVEFLAG so that no data will be 
stored in CM. The records of this type Include all dead-start 
records except those processed by PSOCESSP. 

6. After DSD has been processed, different branches are taken for each 
type of loading. If a recovery to "back up one EDITLIB" has been 
requested, processing continues at step 10. If the running system 
Is to be recovered, processing continues at step 17. For the other 
types of recovery and for any intial or normal dead-start,processing 
continues at step 7 to perform a type 1 load. 

7. The Entj^r Point Table (EPT) and Program Name Table (PNT) are pro¬ 
cessed in the same way as STL, MTR, and DSD. However, it should 
be noted that certain assumptions are made about the order of the 
remaining records on the system file: 

A. The Entry Point Table imediately follows DSD. 

B. The Program Name Table Immediately follows the Entry Point Table. 

C. The library programs begin Inaedlately after the Program Name 
Table, and they are in the exact order as designated In the 
Program Name Table. 

8. The remainder of the system file consists of the library programs. 
Each program is processed as follows: 

A. For all PRU's except the first, control goes to step F. 

B. The next PNT entry Is picked up from CM, the name Is placed 
in the loading message, and OPCOM Is called so as to display 
the name of the current program. 


4-36 


March 1969 



SCOPE 


C. If the current program is the first non-PP program, a pointer 
to this PKT entry is stored in the word immediately before the 
start of the PNT. 


D. The mass-storage address of the program is inserted into word 
2 of the PNT entry as follows: 


Bits 0-11 
Bits 12 - 1 ^ 
Bits 15-23 
Bits 24-35 
Bits 36-41 


PRU number 
EBT byte 
RBT ordinal 
RBT address 
DST ordinal 


E. If the program is to be disk resident (as indicated in the PNT 
entry), MOVEFLAG is set equal to one so that CHRSIM will not 
move the program to CM, If the program is CM resident, MOVEFLAG 
is set equal to zero so that the moving will take place. Also, 
if CM resident, the current value of the store pointer is placed 
in bits 24-41 of word 2 of the PNT entry. Word 2 thus contains 
the following for CM resident programs: 


Bits 0-11 
Bits 12-14 
Bits 15-23 
flits 24-41 


PRU number 
RBT byte 
RBT ordinal 
Address in CM 


F, The routine CHKSUM is called to dispose of the data in the PRU 
as described above. Finally, a flag is set indicating whether 
or not this was a short PRU. 


9. The terminating procedure of LOAD is at ENDFILE and is entered for 
all types of loading. It does the following: 

A. The LWA+1 of the library is stored in P.LIB. 

B. The LWA+1 of the library is rounded up to the nearest lOOB 
and is stored in each control point area in two places: 

1) RA of the exchange package; and 2) The RA field in W,CPSTAT, 

C. PPO is signalled to stop driving the display. This is done 

by storing a 12B in CM location zero. It is necessary to wait 
for PPO to pick up this signal because timing problems occur 
when STL gets too far along before PPO gets out of its main 
display loop. 

D. PPl is signalled to load and begin execution of STL. PP2 is 
signalled to stop driving RMS control and to wait for its PP 
number to appear in CM location zero. PP's 3 through 9 have 
been doing this since early in the dead-start process. 

E. If the BNL ECS code is assembled, it is entered at this point. 
Its functions are fully described in the BNL ECS section of 
the IMS. 

F. The remainder of the loading process is the responsibility of 
STL, so IRCP stops. The procedure followed by STL is described 
in detail in section 4.2.9. 
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10. If a recovery was selected so as to restore the system as It 
existed prior to the last ccmpleted EDITLIB, the type 2 loading 
procedure Is used. To accomplish this, the only loading performed 
Is that of the file SSSSSST. This is the copy of the library 
directory as It was before the last EDITLIB. To find the starting 
address of SSSSSST, the routine SSSFNT Is called. This routine 

Is used for both type 2 and type 3 loads to search the FliT for 
an entry with a given name and of type COMMON. 

11. If there is found to be no file SSSSSST, then no EDITLIB's have 
taken place. Control returns to step 7 to perform a type 1 
load. 

12. Using the values in the first word of the FST for SSSSSST, the 
I!HS request Is set up so as to read from the beginning of SSSSSST. 

13. The store address is set equal to the FWA of the library directory. 
This value Is obtained from P.LIB. 

14. The routine LOADREC Is called to perform the loading of SSSSSST. 
This routine is used for both types 2 and 3 loads. It does the 
following' 

A. Routine CHK.END and GETPASAM are called to handle the Input 

of data. This Is the same Input process as performed at step 
2. Note that the RMS request is already set up so as to In¬ 
dicate from where to read. 

B. If this Is the first PRU of the record, the display Is updated 

to show the name of this record. Also, the fetch pointer Is 

advanced so as to skip the header words which are not to be 
stored in CM. 

C. The data in the PRU Is moved to CM, and both the fetch and 
store addresses are updated. 

D. Steps A through C are repeated until a short PRU has been 
processed. 

15. At this point, everything in the library directory Is set up as 

desired. However, there is one problem area which has to be con¬ 
sidered. The PNT contains RBT addresses for all disk-resident 
programs. These assume that the RBT chains for SYSTEM and SSSSSSU 

are In a certain location. However, since this was a recovery, 

it Is quite possible that they are now In a different location 
than before, since Recovery moves all RBT chains to be saved up 
from the save area. Any given RBT chain may end up In a different 
location because of other chains for scratch files which were 
located higher In CM, and which are discarded. It is quite 
possible for this to happen to SSSSSSU. 

To take care of this. It Is now necessary to determine the RBT 
address for each program by using 1} the RBT ordinal for the 
program, and 2) the first RBT address as given In the FST entry 
for the respective file. 
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16* To terminate the loading process^ control now transfers to the 
routine ENDFILE at step 9, 

17. If a recovery was selected so as to leave the system as it was 

«fter all EDITLIB^s> It is almost possible to not have to do any¬ 
thing about setting up the library directory area* This Is be¬ 
cause the library directory as Is now desired was in CM at the time 
of dead-start* However, it is likely that the CM resident pro¬ 
grams extend past the point where dead-start uses for buffer 
areas during label processing and preloading. Therefore, It is 
necessary to read in all programs which are not still intact in 
CM- This Is method 3 of loading. 

If the PNT is so large that it extends past the point described 
above, then this type of loading cannot be performed, and an error 
halt occurs. However, for 65K and 131iC users, the danger of this 
ever occuring Is forever overcome by altering certain symbols in 
DSLCOH. (See section 4-3) 

18* Each PNT entry is examined. Step 19 is performed only for those 
programs which are CM resident and extend beyond the area which 
dead-start has used for a buffer (TBUFO, location 15700B). Actually, 
step 19 could be performed for CM resident programs, but since 
reading of the system file in this manner is much slower than 
with type 1 of loading, it is done only when necessary- 

19- The routine SSSFNT is called to find the FNT/FST entry for either 
SYSTEM or SSSSSSU depending on which file the program resides. 

Using the first RET address in the FST and the RBT ordinal, EBT 
byte, and PRU niimber in the PNT entry, the RMS request is set up 
so as to point to the start of the program- The routine LOADREC 
is now called to read the program and move it to CM- 

20. Steps 18 and 19 are repeated for each PNT entry. When this is 

completed, control goes to step 5, and the remainder of the loading 
process is identical to type 2. 


4.5.4 DEADSTART RECOVERY 


Recovery is called to recover files following a system failure. It 
searches the FNT and returns the system to an ^^initial state”, i.e., 
all the jobs in the input queue are left there (except when the no 
rerun bit is set) and all jobs running at control points are rewound 
and placed back in the input queue. All files in the output queue are 
left there and all files in the process of printing and punching are 
rewound and put back in the output queue- All common files are dis¬ 
associated from control point and put back in the common pool and all 
local files are released. Local dayfile FNT entries are initialized- 
The system dayfile and error file buffers are restored- 

Initially, RECOVERY ascertains whether to restore only the system file, 
only other files (not the system file), or all the files, Then, Re- 
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covery checks the RBT channel to see if It was reserved at the time of 
the hangup. If it was, then the message RECOVEEK RISKY is displayed 
on the left screen. The operator can type a CO If he wishes to con¬ 
tinue. Recovery then puts a + before the name of the systemso that 
all successive dayflles will reflect the fact that at least one recovery 
has taken place. The, the entries in the FNT are restored (excluding 
the entries for the subdirectories and RBTC which have already been re¬ 
stored by the permanent file portion of IRCF. The ON/OFF bit Is re¬ 
stored for the entries In the Equipment Status Table and private packs 
are set to an unloaded status. The dayflle and error file buffers are 
restored. RESPOND files are recovered in the following manner: If 
the file has a disposition code of 2000-, then It should have Its entry 
in the FNT zeroed out but should retain its RBT chain. If the file 
has the name RSP,SYS then the active bit in the second word of the FNT 
entry should be checked to see whether RESPOND was active at the time 
recovery was initiated. If It was active, then the recover bit in the 
FNT entry will be set and the RBT chain will be restored. Checkpoint 
and locked files are then recovered. Recovery proceeds by searching 
through the PNT table and by performing the necessary action on each 
file. When a file should be saved, its RBT chain will be restored 
and the appropriate bits set in the RBR's. 

At the conclusion, Recovery will go to PRELOAD if the system file has not 
been restored. Then it will exit normally. Since RECOVERY is a sub¬ 
routine, Che exit is to its return Jump call. 


4.5.5 Label and Permanent File Processing 

4.5.5.1 General 


The label and permanent file portion ofdead-start resides in IRCF and 
always performs Its functions before preloading, loading, and recovery. 
It is responsible for determining which record blocks on each device 
are already allocated, either as part of permanent information (that 
which survives across dead-starts) or as flaws. To so indicate to the 
remainder of the dead-start process and to the running system, the 
RBR bits for all such record blocks are set at this time. It should 
be noted again the the fresh copy of CMR has already been loaded at 
this time. 

Labels are put on every allocatable device in order to be able to de- 
texmlne which device contains the Permanent File Directory (PFD) and 
Record Block Catalog (RBTC). The device containg this information is 
only commonly known as the primary permanent file device. Note that 
the actual permanent files themselves may reside on any device in the 
configuration. Labels also carry information telling which record 
blocks are flawed. 

The PFD and RBTC contain everything necessary to recover all permanent 
files at dead-start time. However, much of the Information they con¬ 
tain is not used by dead-start. The specific formats of these tables 
may be obtained from the permanent file documentation. 
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During an initial-type dead-starts Labels are written on all allocatable 
devices except those which are turned off^ and an empty PFD and RBTC 
are written on the device designated as the primary permanent file device* 
All of this is done under close operator control* The various type-ins 
are described in the operator's guide* 

During every type of dead-start in which IRCP is used (initial, normal 
or recovery), every device label is read, flaw information is moved to 
CMR, and the PFD and RBTC are read and all central memory tables required 
for permanent files are built. 

A general description of all the major routines used for label and permanent 
file processing follows. Note that all functions related to permanent 
files need be performed only if it is Intended to use permanent files- 
The assembly of such code is dependent on the value of the symbol IP.PFM. 


.4.5.5.2 LF - Main Routine 


This is the routine called at the end of the preliminary IRCP processing 
to perform all of the label and permanent file processing* The following 
procedure takes place for all standard allocatable devices provided they 
do not have the ON/OFF bit set* Devices which are off will be processed, 
however, if the LBL bit is set in the EST (bit 57). The LBL bit will be 
set only as a result of using the LBL type-in while making equipment 
changes. The LBL bit is always cleared at this point. Label processing 
is never performed on ECS- The devices are processed in the order they 
appear in the EST. 

1. If this is an Initialization-type dead-start, a label is written on 
the device- If necessary, the permanent file tables are also written- 
All of these functions are accomplished by calling the routine IDEV. 

2- RDLBL is called to read the device label- The label has to be read 
successfully or else the operator will be asked what to do. The 
specific operator options for each error condition may be found by 
consulting the listing of IRCP. In general, the options include 
trying again, writing a new label (step 1), or deleting the device 
from the system. 

3. A check is made to see if the device contains a private pack. This 
is ascertained by a field in the label. If it is a private pack, 
the operator is informed. It has to be assumed that it was left 
mounted on the device by mistake, and that it is really not desired 
to have its contents destroyed- 

4. The flaw bits in the label flaw table are placed in the appropriate 
RBR in central memory. 

3- If the label indicates that this is the primary permanent file device, 
the routine PFB is called to read and process the PFD and RBTC. 

After the above steps have been performed on all devices, a check is made 
to see if the primairy permanent file device was encountered- If not, the 
operator is Informed. If he types GO, processing continues. 


October 1969 


4-41 



SCOPE 


and the routine LF exits. This is entirely proper if the configuration 
had been initialized without a primary permanent file device (and hence, 
no permanent files)* However, this check is made to safeguard against 
the case where, for some reason, the primary permanent file device was 
not processed, but the other devices, which can certainly contain part 
of the permanent files, had been processed. If this were to happen, 
there is no way to tell which record blocks on these other devices con¬ 
tain permanent files, since this information is obtained from the RBTC* 


4.5.5.3 IDEV - Initialize a Device 


This routine handles label writing for one device and then, if necessary, 
gets an Inital empty FFD and RBTG written. During an inltializati. on- 
type dead-start, It is called by LF for every device and is also called 
by LF If certain error conditions occur where the operator has specified 
that a new label be written on a particular device. The following takes 
place: 

1, If the operator has responded to the write option (step 8 In this 
sequence) for a previous device by typing NONE, then none of the 
IDEV functions need to be performed* The exit is taken immediately. 

2. It Is desired to know whether or not there is already a label on 
the device* The routine RDLBL is called to try to find a label. 

3* If a label was found, and the label is that of a private pack, 

the operator is informed. He may either bypass the initialization 
procedure for this device, or have a non-private label written, 

4* If the operator has responded to the write option (step 8) for a 
previous device ty typing ALL, then the label options display is 
bypassed in its entirety. Processing advances directly to step 8c* 

5* The label options display is issued. It contains the following: 

a* Information to identify the device. (See description of 
DEVINFO). 

b. A message that tells whether or not the device already has a 
label. If it does have a label, the RB and PRU number of the 
label are given. 

c. Instructions for changing the variable fields in the label. 

This includes the default information which will be put in the 
label if no changes are specified* If a label was found on 
the device, the default information is obtained from the cor¬ 
responding fields in that label. 

d. Instructions for use of the write options. When the operator 
specifies one of these, IDEV completes the processing for this 
device, 

e. A display of the contents of the entire flaw table. Again, 
this is obtained from the existing label, if present. 
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When the operator has made an entry, the entry is identified and 
processed as described in the following steps. If any kind of 
error is detected, the word *^ignored^^ will appear at the bottom 
of the left screen* This will disappear as soon as a good entry 
has been made. 

7* Label field entries cause the appropriate Information to be 

changed both in the label buffer and in the display* Any number 
of entries of this type may be made* They allow the followings 

a* Changing the date carried on the label* 

b. Changing the visual identification carried in the label. 

c. Indicating whether or not this is the primary permanent file 
file device. 

d* Setting or clearing flaw bits. 

8. There are four possible write control options In which any one of 
them signals the end of input for this label. They are as follows; 

a. SK - The operator does not want to write a new label on this 
device* IDEV simply exits* 

b. NONE - The operator wants label writing to be bypassed on this 
device, and on all devices yet to be processed* A flag is set 
and IDEV exits. This is the flag which is checked in step 1 
above. This has the same effect as typing SK here and for all 
remaining devices* 

c* WR * The operator wants the label, as the display now shows 
it, to be written. This involves the following steps; 

1) If this device has been designated as a primary permanent 
file device, but there has already been such a device 
specified, the operator is told that this device must not 
be the primary permanent file device* There simply cannot 
be more than one. If the operator indicates for processing 
to continue, then this device will not be a primary per¬ 
manent file device. 

li) Flaw bits as indicated in the label area are transferred 
to the RBR in central memory. 

iii) The routine WRLBL is called to write the label on the de¬ 
vice* If an error occurs, the operator is asked to respond 
in the same manner as with label reading in LF. However, 
there is one option here that is different than with label 
reading: designating that the label be written on the next 
record block. If this option is selected, a flaw bit is 
automatically set in the flaw table to indicate as unusable 
the record block on which the label write was unsuccessful. 

iv) If this is indicated as being the primary permanent file 
device, the routine PFA is called to write the empty PFD 
and R£TG* 
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d. ALL - The operator wants the label written on this device, ac¬ 
cording to the options he has set, if any. In addition, he 
wants a label to be written on all remaining devices without 
any more typelns required on his part. This yields exactly 
the same results as if he had responded to the display for 
each remaining device by only entering WR. To process the 
entry of ALL, the flag which is examined in step 4 is set. 

Then the processing is Identical to that for the HR option. 

4.3.5.4 RDLBL - Read Label 


This routine is called to find and read device labels. The subroutine 
EHFRU is called to perform the actual setting up and issuing of requests 
to SIS control. HDLBL handles the logic for searching the device for 
a label. 

The following information Is supplied to BSLBL when It is entered: 

1. EST ordinal of the device 

2. The number of record blocks to search before giving up. 

3. The record block to search first. Succeeding record blocks, 

If necessary, are picked from the next available in the RBR. 

Two s3^bols which are defined in DSLCOH (Section 6.0) are of special 
Interest here* RBLIM is defined as the maximum number of record blocks 
to be searched on any one call to HDLBL. PRULIH is the maximum number 
of PRU<s which will be searched In each record block before giving up 
on that record block. The values of these may be modified to suit an 
installation's desires, but for any reliable device, both should be 
defined equal to one. 

The following conditions are required for a successful read: 

1. The RHS read request must be conpleted without errors. 

2. The expected label ID must be found at the start of the label. 

3* The date fiild must be present, and must be at least as recent 
as the minimum allowable date. This is to avoid possible con¬ 
flict with some type of label written by somebody other than 
dead-start. All labels written by dead-start (lOEV) meet 
this condition. 

4. The checksum must be correct. 


4.5.5.5 WRLBL - Write Label 


This routine handles the writing of labels on devices. When called, 
this routine is told the device and the record block number on wich 
to write the label. . Then entire label contents except for the checksum 
are expected to be set up in the label buffer (LBLADR). The following 
procedure is used to make sure a good label is written: 
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1, The checksum of all the label Information is computed and 
stored in the label. 

2- RWPRU is called to issue an fiMS request to write the label 
on the device at a certain PRU. 

3* If RMS control returns an error status, then it is concluded 
that a label cannot be successfully written on this PRU. A 
call is made to RWPRU to write the same PRU, but this time 
a buffer of all zeroes is written. This is to prevent RDLBL 
from possibly mistaking this PRU for a good label. 

4. If the designated limit of PRU^s to try (PRULIM) has not been 
reached, step 2 is repeated. Otherwise, WRLBL exits with an 
error indicator. WRLBL must be called again in order for the 
label write to be attempted on another record block. 

5. If there was no error status in step 3, then RWPRU is called 
to read the label. If any error status is returned, or if 
the data read does not con^are with the data written, then 
the above error procedure is taken; otherwise, the normal 
exit is taken. 


4.5.5.6 PFA - PFD and RBTC Initialization 


The routine PFA writes an empty Permanent File Directory (PFD) and 
Record Block Catalog (RBTC) on a device. It is called by IDEV during 
processing of the device designated by the operator as the primary 
permanent file device. This requires the following steps for both 
the PFD and the RBTC: 

1. The number of record blocks needed to contain a PFD (RBTC) of the 
required length is computed* The following values from CMR are 
used in this calculation: 

a. Byte C.SDTL of P.PFMl - the number of subdirectories in the 
PFD. 

b. Byte C.SDL of P.PFM2 - the number of entries in each sub¬ 
directory. 

c. Byte C.RBTCL of P.PFM2 - the number of PRUs/16 in the RBTC* 

2. Thr routine GPFRB is called as many times as the number of RB^s 
computed in step 1. This routine finds the next free RB and 
writes out that RB completely zeroed out. It repeats this process 
if necessary due to a write error. It also adds the RB number 

to a chain which will be written at the start of the first RB. 

3. The first RB of the PFD(RBTC) is written again, but now containing 
the appropriate header and the list of RB numbers formed in step 
2 . 

4. If a write error occurred in step 3, it is necessary to set up 
one more zero-filled RB and then write the'hedder information on 
what was originally the second RB of the PFD (RBTC). The first 
(bad) KB is recorded as a flaw. 
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5. The pointer to the start of the PFD (RBTC) is Inserted in the 
label Information. This consists of the first RB and PRU numbers. 
The PRU number Is always zero^ since both the PFD and RBTC always 
start at the beginning of an RB. Note that the contents of the 
label output buffer has not been disturbed since the label of this 
device was written by IDEV. 

6. After both the PFD and RBTC have been set up by the above stepSi 
the device label is rewritten so that it will contain the PFD and 
RBTC pointers which were not known when the label was first written. 

7. PFA exits to IDEV. No additional information has to be placed 
in the PFD or RBTC at dead>8tart time. This is done at the time 
permanent flies are cataloged. 


4.5.5.7 PFB - PFD and RBTC Checking 

PFB is called by LF after the label has been read on the primary per¬ 
manent file device. It is called on every dead-start of type normal^ 
initialization, or recovery because its tasks must be performed if 
permanent files are to be preserved. The following information in 
CMR is set up: 

1. FNT entries for each subdirectory of the PFD and one FNT entry for 
the RBTC. 

2. One RBT chain each for the PFD and the RBTC. 

3. RBR bits for all record blocks containing permanent information. 

4. Subdirectory Table (SDT) entries giving the niimber of entries In 
each subdirectory. 

This Information Is set up by doing the following: 

1. The first RB of the PFD is read and the RB chain for the entire 
PFD is obtained. From this, an RBT chain is built in CM for the 
PFD. All corresponding RBR bits are set at this time. 

2. An FNT/FST entry is scored for subdirectory zero. Subdirectory 
zero contains only the RB chain and is used only by dead-start. 
Therefore, the next step Is not performed for It. 

3. The remainder of the PFD is read and the number of active per¬ 
manent file entries in each subdirectory is stored in the appro¬ 
priate slot in the SDT. Also an FNT/FST entry is built for each 
subdirectory* 

4. Step 1 is repeated for Che RBTC. 

5. The FNT/FST entry for the RBTC is stored in CM. 
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6. The entire RBTC is read* The RBT chains for all active permanent 
files (part of the EBTC) are examined, and all RB^s allocated to 
permanent files are so Indicated by having the appropriate bit set 
in the RBR tables* During the process of setting RBR bits for 
permanent information, both here and in step 1, a check is made 
whenever a bit is set to see if it was already set. If so, there 
is a problem somewhere. A message is displayed which shows the 
RBR and RB number with which this occurred. If the operator 
wishes to continue, he may do so by typing GO- 

The following subroutines are used by PFB to perform the reading of 

the FFD and RBTC. 

1. PFBREAD reads one record block by calling READRB- It is told 

which RB to read. See section 5.6 for the description of READRB- 

2* PFBRRH is called to read one RB of either the PFD or RBTC. It 
determines which RB to read by using the appropriate RBT chain 
which by now, is already placed in CM, Once the RB number is ob¬ 
tained, the routine PFBREAD is called. 

3, NXTWORD is used while scanning through the RBTC, It fetches the 
next word from the buffer into which one RB of the RBTC has been 
read. It returns the word and a status to indicate if the word 
is either the start of an RBTC entry, the end of the filled portion 
of the RBTC, or neither. Whenever the buffer is found to be ex¬ 
hausted, the routine PFBRRR is called to read the next RB. 


4,5.6 IRCP General Subroutines 


4.5*6.1 GETRBR 

Searches the RBR area to find the RBR corresponding to a particular 
EST entry* Both the RBR ordinal and address are returned* 


4.5*6*2 GETWDPR 

Allocates space for and sets up an RBT word pair for an RBT chain. 

The empty chain is adjusted accordingly, and, if this is not the first 
word pair for the chain, the chain link field in the previous word 
pair is set to point to the new word pair. 

The RBR ordinal, byte, and primary allocation type fields are set to 
the appropriate values- All other fields are set to zero* 

Return is made with the RBT address of the new word pair. 


4.5.6.3 CKCHAIK 

Checks the length of the empty chain. If it is less than lOOB words, 
it is increased by lOOB words* 
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4.5.6.4 WAITGO 

Checks to see if the operator Response was GO. This routine is in¬ 
tended to be called immediately after a call was made to OFCOU to 
return alphanumeric data. 

4.5.6.5 SqUANK 

Sets zero characters to blanks for Insertion into displays. 

4.5.6.6 DEVINFO 

Sets up pertinent Information about a particular device for display 
purposes. The information consists of the BST ordinal, device name, 
channel number, equipment nxanber, and unit number. Nearly every 
message directly related to a device contains the Information pro¬ 
duced by this routine. 

4.5.6.7 DEVERE 

Sets up the error Information returned by SHS control about a par¬ 
ticular device. A display is formatted from the Information and 
consists of the RBR number, RB number, PRU number, device status, 
converter status, and hardware address register. 

4.5.6.8 nSDBlT 

Is given a record block number and returns the corresponding bit 
position and address In the RBR of that record block. 

4.5.6.9 GETRB 

Finds the next available record block In an RBR. 

4.5.6.10 SETRB 

Sets the bit in an RBR for a given record block number. 

4.5.6.11 WRITERB 

Writes one record block of information to a given device on a given 
record block. Since this routine is primarily Intended for writing 
of permanent file information, the record block Is checked by having 
the routine READRB read It back. WRITERB is not used by the pre- 
loader. 


4.5.6.12 READRB 

Reads one record block. On entry, the device, record block, and CM 
address are specified. 
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4*5.6.13 


4.5.6.14 


4.5.6.15 


4.5.6.16 


4.5.6.17 


4.5.6.18 


4.5-7 


4.5.8 


RWPRU and RWRB 

Sets up and issues RMS requests to read or write full record blocks 
or single PRU^s. This is a single routine with two entry points. 


REJ 

Displays a message to indicate the device last attempted to access 
has rejected a function- This is more likely to occur as a result of 
there being no such devices configured as such. Unfortunately, in 
many cases where a non-existent device is referenced, this routine 
will never get called because the I/O driver will hang on the channel 
and will never be able to return the error indicator. 


DATEFJ 

Converts a YYDDD Julian date to an MMDDYY date for use by the device 
label routines- 


DATETJ 

Converts an MMDDYY date to a YYDDD Julian date for use by the device 
label routines. 


CNVTDTB 

Converts a display coded decimal number to binary- 

CNVTBTD 

Converts a binary number to display coded decimal. Note that similar 
routines exist In the OPCOM portion of IRCP for converting from and 
to octal display. These are CNVTBTO and CNVTOTB. 


OFCOM » Operator Display Package 

The IRCP portion of OPCOM is called in order to process OPCOM macros. 
The OPCOM description in section 4.8 describes it in more detail. 


BNL ECS Code 


After dead-start loading (section 4.5.3) is completed, the BNL ECS 
code is executed. There is also BNL ECS code in STL which is used 
to drive the display. The assembly of this code is conditional upon 
the symbol IP.ECNOM being non-zero. 

The BNL ECS code accepts information from the ^operator as to whether 
ECS is to be used or not, and if so, how it is to be allocated. For 
a detailed description, refer to the BNL ECS portion of the IMS. 


March 1969 


4-49 



SCOPE 


4.6.0 Dead-Start Conmon Decks 

The following connnon decks are used by one or more of the dead-start 
routines: 

1. IPARAUS - Installation Parameter Definitions 

This is called by all of the dead-start routines: CEA* COITRCL, 
IRCP, and STL. 

2. DSLCCM - Dead-start Definitions 

This coiBuon deck contains definitions of symbols used exclusively 
by the dead-start routines. Included are central memory addresses 
of buffer areas, device related information such as PRU sizes, 
symbols controlling the assembly of debugging code, and other 
similar information. Several macros also are in DSLCOM which 
have to do with information about the different device types* 

They are used to generate the various tables the routines used, 
and, thus, keep the routines independent of device changes. 

DSCLOM is called by CONTROU, IRCP, and STL. 

3. DSMAC - Operator Conmunlcatlon Macros 

This common deck contains the definitions of all the macros used 
by OPGOH. More details are given in the OPCOM section. It is 
called by CONTROL and IRCP. 

4. ECSCOM - BNL ECS Symbol Definitions 

This deck is called by IRCP and STL for use by the BNL ECS code. 

It is described in detail In the IMS section for BNL ECS. 

5. SMSA, RMSB, BMSC, 5MSO, BMSP. 

These are called by the dead start drivers (5CP, etc.) and the 
stack processor overlays (3SP, etc.) and contain all of the code 
used in coanon by the two types of driver overlays. 


4.7.0 Hardware Aspects of Dead Start 


4.7.1 Introduction 


The dead start process requires that a short program (up to 12 FPU 
instructions) be set up on the matrix of toggle switches on the dead 
start panel. When the dead start switch is toggled, this dead start 
program is transmitted to PPO's memory and executed. This program 
reads the first record (CEA) from the system tape and transfers control 
to it. When CEA has finished execution, control is transferred back 
to the dead start (panel) program to read the next record (CED) from 
the system tape. From this point CED and other system dead start 
programs read the remaining records on the system tape and initiate 
system execution as described elsewhere. 
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4*7.2 The IAM Instruction 


A detailed understanding of the dead start loading process requires 
some familiarity with the functioning of the lAM instruction. The 
lAM instruction is a 24-bit instruction: the d portion of the instruction 
holds the channel number and the m portion of the Instruction contains 
the address in peripheral processor memory where the first data word 

is to be stored. The A register is assumed to contain the number of 

words to be read. The functioning of the 1AM instruction is show in 
figure 4.7.1. Note the following points: 

During execution of the IAM instruction, the contents of the P 
register are stored in location 0, and the P register used to hold 

the memory address for the next word to be stored. At the time 

the contents of the P register are stored, P holds the address of 
the second word (m portion) of the 1AM instruction- Before 
exiting the instruction, the contents of location 0 are read, In¬ 
cremented by one, and placed in the P register to provide the 
address of the next instruction. 

The lAM instruction tests the word count in the A register to see 
if it has been reduced to one: if so, (A) is reduced by one and 
the instruction exited- Therefore, if the IAM instruction is 
entered with the contents of the A register equal to zero, the 
word count is effectively 77777B. 

The 1AM instruction may be exited in one of two ways: (1) because 
the word count has been reduced to zero or (2) because the channel 
has become Inactive. If the word count has not been reduced to 
zero and the channel is active, exit will not take place even though 
no data is being read: the processor will idle in trip 4, waiting 
for the channel to become full. 


4.7.3 The Dead Start Sequence 

When the dead start switch is toggled, the following sequence is 
initiated; 

The Master Clear signal is generated. 

The A register of each peripheral processor is set to lOOOOB: the 
P register of each peripheral processor is set to zero. 

The K register of each peripheral processor is set to 712 (trip 4 
of an lAM instruction). 

All channels are set to empty and active. 

All peripheral processors are connected to their respective 
channels (i.e., PPO to channel 0, PPl to channel 1, etc.) by 
setting the appropriate channel number in each processor's Q 
register- 
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Operation Code 
Channel Number 



READ CONTENTS OF 0000, ADD 
1, AND PLACE IN P REGISTER 
CLEAR K REGISTER 
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The first synchronizer on each channel is selected: the first 
unit on that synchronizer is seiected* 

The dead start synchronizer is selected on channel 0, 

The program on the dead start panel is transferred to PPO memory: 
Firsts a zero byte is transmitted (stored in location 0); next, 
the 12 bytes from the panel switches are transmitted (stored in 
location 1-14); finally, another zero byte is transmitted (stored 
in location 15)* 

The dead start synchronizer disconnects channel 0, initiating the 
execution of the dead start program* 

Periphecal processor zero treats the data sent by the dead start syn¬ 
chronizer as it would data arriving from any other controller. When 
the dead start synchronizer disconnects from channel zero, peripheral 
processor zero exits from the lAM instruction. In exiting, the contents 
of location 0 are incremented by 1 and used as the address of the next 
instruction* Since this location was cleared to 0 by the dead start 
process, the address of the next instruction is 0001: this location 
holds the first instruction of the program sent by the dead start 
synchronizer from the dead start panel. 


4.7.4 The Dead Start Program 

A typical dead start panel program for a tape on channel 12 or 13 is 
shown In Figure 4,7*2, This program performs the necessary function 
issuing, activating, and input to read the first record of the system 
tape into PPO starting at location 13B, (ISTotice that the settings of 
words 13 and 14 of the panel are immaterial.) When this record, which 
contains CEA, has been read the controller disconnects the channel 
upon detecting the end-of-record gap and PPO exits from the 1AM in¬ 
struction. Following the lAM PPO executes the contents of word 13 
which is the first word of CEA. 

A typical dead start panel program for a tape on channel 1-11 is 
shown in Figure 4*7*3. It does the same as above with one exception* 
To free the tape channel XX for use, words 13 and 14 are sent to 
words 0 and 1 of FPXX (actually the entire contents of PPO is sent 
to PPXX since (A) ^ 0). Disconnecting the channel causes PPXX to 
input on channel 12 instead of channel XX. Channel XX is now free 
to use in reading the system tape. 


^•7*5 System Dead Start Programs 

The first dead start program read from the system tape is CEA. The 
first word of CEA, loaded at 13B, is a header containing the name 
of the program itself. This header word Is actually executed following 
exit from the lAM as indicated above. But notice that word 13 will 
contain the first two characters (in display code) of the program 
name, or 0303. Interpreted as an instruction this is UJN 5 and so 
control transfers to word 20 where the body of CEA begins. 
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DEAD START PANEL PROGRAM 
(Tape Channel = 12 or 13) 


SCOPE 



Figure 4.7.2 
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Tape Channel UU — Tape Unit 

Equipment Number of Tape Controller S = PPO Save Switch 

CMR Skip Count 




DEAD START PANEL PROGRAM 


SCOPE 



Figure 4.7.3 
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Tape Channel 

Equipment Number of Tape Controller UU = Tape Unit 

CMR Skip Count S = PPO Save Switch 
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When CEA completes its function (explained elsewhere) control is 
transferred to word 6 (remember the dead start panel program is still 
intact) to read the next record from the system tape* This next re¬ 
cord^ which contains CED, is read starting at word 13B and control is 
transferred to GED in the same manner* From this point the dead start 
process is directed by CED and other system dead start programs* Con¬ 
trol never returns to the dead start panel program. 


4.7*6 Channel Usage During Dead Start 

Remember that after the dead start switch is toggled PPl-9 are left 
executing lAM instructions on their respective channels* It is nec¬ 
essary to free these channels for use in I/O and to do so in such a 
manner that the PF*s are not lost forever. The basic technique is to 
pass a small program to each PP which scans a location in CM for some 
signal and Inputs further information upon receipt of the appropriate 
signal. 

This process proceeds as follows: Upon receipt of a signal, the re¬ 
ceiving PP activates the channel and executes an 1AM. (The hardware 
sets up the PP»s in this condition initially.) The sending PP detects 
an active channel, indicating that the other PP is ready, and executes 
an 0AM on the channel. When all data has been output, the sending PP 
disconnects the channel, causing the receiving PP to exit from the 1AM 
and begin executing the new code. 

The first application of this technique is the freeing of channels at 
the beginning of CED by the subroutine FRECHAN. This is necessary be¬ 
cause at Dead-Start time all PP^s are connected to their corresponding 
channels and therefore PPO is not free to use them* For example, sup¬ 
pose the display console is on channel 8 and PPO wants to display a 
message. The problem is that FP8 is trying to read on channel 8 and if 
PPO tries to use it the PP^s will hang each other. To keep this from 
happening, FKECHAN sends a little idle loop to each PP on its corre¬ 
sponding channel and then disconnects the channel causing the PP to 
execute its idle loop (which just reads central memory) and then all 
channels are free for use by PPO. 

The first thing FRECHAN does is to release the tape unit so that It 
can use the tape channel without interference from the tape unit* Be¬ 
fore the next part Is explained, the situation with the tape channel 
at Dead-Start time must be explained. If the tape channel is 12B or 
13B then PPO can read the tape without worrying about the other FP*s 
since there are only 10 PP^s and 12 channels, and channels 12B and 
13B are not connected to any PP^s. However, if the tape channel is 
1--11B then Dead-Start must arrange it so that the corresponding PP 
reads some other channel when it read CEA and GED on the tape channel. 
The other channel it chooses is one of the free ones, 12B. For 
example, suppose the tape channel was 6. When the Dead-Start button 
is pushed, PP6 begins to read channel 6. Now, PPO cannot read CEA 
from the tape on channel 6 because it would hang up with FP6. There¬ 
fore, che Dead-Start panel causes PP6 to start reading on channel 12B 
so that PPO can read on channel 6. Now, with this background, the 
code between FREGHAN6 and FEECHAN2 can be detailed* It is necessary 
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to arrive at FRECHAN2 with each PP reading on its own channel* This 
will already be the case if the tape channel was 12B or I3B but will 
not be the case if the tape channel was 1-*11B (remember if the tape 
channel was 6, the Dead-Start panel left PP6 reading channel 12B, not 
6). Therefore^ this code looks at the tape channel and if it is 1-llB, 
sends out the code from LITTLE TO ENDLIT on channel 12B to cause the 
PP to begin reading its own channel again* Therefore, FRECHAN2 is 
always arrived at with each P? reading its own channel and nobody read¬ 
ing channels 12B ox 13B, Channels 12B and i3B are tnen disconnected 
if they are not already disconnected. 

Channels l^llB should be disconnected but not without first sending 
out a little program to each PP to execute, so it is signalled to be¬ 
gin input again when it is required to do another job (such as later 
accept PP-resident)* However, since it may be desirable later to dump 
these PP's, the little program cannot be too big or it will erase in¬ 
formation the operator might want to dump* The smallest program which 
can be sent them is one to read in one CM word* 

The CM words 7767B - 7777B are chosen as the words that the PP^s will 
read- PPl will read 7767B, PP2 will read 777OB, etc. These words will 
contain the idle program so that each PP can read the program right in 
over Itself and continue to execute it until a change is made to the 
program in the CM word* Therefore, the original contents of 7767B * 
7777B are saved and the following little five byte program is put in 
each: 

LDD 0 
CRD 1 
SBN 1 
NJl^ *-1 
UJN *-4 

Then the following program is sent over each channel to each PF; 

LDC XXXX 
STD 0 
CRD 1 
UJN 

where XXXX = 7767B for PPL and 7770B for PP2, etc* 

The program sent over the channel will cause the address of the appro¬ 
priate CM word to be stored in location 0 in the PP which will later 
be used to tell the PP which word to read. It is also used as a de¬ 
lay count in reading CM so that the PP*s do not clog the read pyramid* 
This program will be sent to each PP over its corresponding channel 
and then the channel will be disconnected, causing the PP to execute 
the program and read its corresponding CM word* This will in turn 
cause the PP^s to continue reading the CM word* When it is time for 
the PP^s to begin inputting again, the contents of the CM word are 
changed to an input instruction. Also each channel is disconnected 
as the little program is sent out to each PP, meaning that all channels 
are now disconnected and PPO can use any of them it wishes to read 
tape and display on the console. Thus, FRECHAN has now freed up all 
of the channels. 
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After determining that no dump is required, CED executes BEGINPT. This 
subroutine is used to cause PPl - PP8 to exit from the little idle 
loops described in the discussion of subroutine FRECHAN and to cause 
these PP’s to begin inputting on their own channel in the same manner 
that they were doing at the beginning of CED by virtue of the Dead- 
Start hardware. Later, SENLOOP will send out a bigger idle loop to 
each PP. After putting each new sequence of code in the flag cells 
C7767B - 7777B), BEGINPT waits until each channel has gone active 
(meaning that each PP has accepted its code from the flag cells and 
is now Inputting on its own channel), and then restores the original 
contents of the flag cells which were saved at TABTCH by the subroutine 
FRECHAN. 

Remember in the discussion of FRECHAN, it was stated that the idle 
loop must be small so as not to overlay cells in case of a dump. Since 
the dump has not been selected, it is now desirable to provide a bigger 
loop that will only look at cell 0 in CM and free the other cells 
(7767B - 7777B) for use for other things. Therefore, SENLOOP sends 
out the loop which appears in LOOP through ENDLOOP to each PP. This 
loop is bigger but now it does not matter if a few more cells in each 
PP are wiped out. The loop causes each PP to look for its number in 
CM location 0, 

From this point CM location 0 is used to signal PP's to input on 
channel 0. This technique is used in the following cases: 

1. By CED to send P or IRP to PPl. 

2. By IRP to send RMS control to PP2. 

3. By STL to send PPRES to PP2-8, MTR to PPO, and DSD to PP9. 


A-58 


March 1969 



SCOPE 


OPCOM—The Operator Communication Package 

Operator communications at deadstart are handled by several 
programs and a set of macros- A general characteristic of 
the communication'“s package is the uniform interface which 
it presents to the user in a PP or a CP* The same macros 
may be used to perform communications in both the PP and 
the CP. The macros and routines take care of the various 
conditions and situations which may occur- 

There are three logical parts to the communication pack¬ 
age J 

the macros which generate messages and calls to the 
display routines! 

the OPCOM routine -Cone version for the PPt one for the 
CP> which builds the hardware display^ 

- the display driver package which takes the output from 
OPCOM and displays it on the console CRT- 

life will explain each of these parts in turn- 


M-fl.l The Macros 

The macros fall into three groups: 

the message generation macrosi 
the message delimitor macrosi 
the OPCOM call macro- 


M-fl-l-l Message Generation 

The message generator macros are used to generate co¬ 
ordinates and text for the display- The general form of 
a message is: 


IB Bits even number of char- IB bits 
Co-ordinate acters TEXT MESSAGE 

TERMINATOR 

The co-ordinate is a twelve bit quantity which defines 
the position on the screen of the first character. The 
first six bits are treated as the Y-co-ordinate and the 
second six bits are treated as the X-co-ordinate. These 
co-ordinates are not the physical co-ordinates which are 
sent to the console. They are for the Y-co-ordinatei the 
number of lines down from the top of the screen and for 
the X-co-ordinate1 the number of characters over from the 
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left side of the screen. These co-ordinates arc translated 
Into the actual screen co-ordinates by OPCOH- The screen 
co-ordinate generated depends upon the character size in 
effect at the time that the message Is processed -Csee 
the message dellmitor macros>. 

The text Is any number of non-zero bytes of character data 
which has no character of display code value of bOB or 
greater present. The text is processed a byte at a time 
by the OPCOfI package. Depending upon the type of message 
{explained below>-) the OPCOM package will examine each 
byte of text for a pair of dollar signs which serve 

as flags or special dellmitors. A single dollar sign in 
a byte will be Ignored. A pair of dollar signs which 
occur-I the first In the last character of a byte and the 
second in the first character of the next byte will be 
Ignored. Only a byte of dollar sign will be meaningful 
as dellmitors. For the convenience of the programmer two 
modes of text generation are provided—the scanned mode 
and the unscanned mode. 

The unscanned mode generates text which is Identical to 
the message as it appears In the macro call- A single 
doll ar sign or pair of dollar signs occuring In ajoining 
bytes will not be altered. In the scanned mode each pair 
of dollar signs 1s adjusted to occur In a byte if it does 
not by inserting a blank into the generated message before 
the dollar signs. A single dollar sign is replaced by two 
dollar signs and handled as above. The scanned mode re¬ 
quires considerable more assembly time. Accordingly! the 
programmer may turn the scan off and on by the use of the 
SHODE macro {see delimiter macros>. 

The message terminator is one or more bytes of zero. 

The following macros generate messages: 

TEXT {message text> generates a message Identical to 
message text . The text is not scanned. 

STEXT {message text> generates an edited or scanned 
message from message text. 

flStSTEXT {message text> is used to generate a message in 
which the display generated from this message has been 
edited by replacing all dollar signs from a fill text area. 
This fill is used each time the message Is generated and 
simplifies the insertion of small amounts of variable text 
data Into the message. 

flSTEXT {message text> is used to generate questions. 

Dollar signs are not replaced from fill text. 

OPTEXT {message text I* is used to generate options for the 
operator- The first set of dollar signs In the message 
delimits the end of the option name which must be ten 
characters or less- The text which follows the first set 
of dollar signs is optional and would generally be used to 
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explain the option to the operator. The entire message 
is displayed. {For a more complete explanation of options 
see the OPCOH macro.} 

At the end oF each message the X-co~ordinate is set to 
the left margin Cthe value of the SET symbol .^TABX} and 
the Y co-ordinate is upped by one to create a new line* 

The next message generated will use these co-ordinates-, 
unless they are changed with positioning macros. 

If the message text area is replaced by a name prefixed 
with a single dollar sign-, the OPCOli package will use the 
co-ordinates of this message but the text from the message 
found at name . This is a simple form of indirect address— 
i ng. 


M.fi.l.E Message Delimitors 

The message delimiter macros are used to control the 
positioning-, scanning-, screen selection and character 
size of messages generated by the text macros. 

SnODE X is the scanning control macro- If X is '’ON''-, the 
scanning is turned oni if X. "is '’OFF'’-, the scanning is 
turned off. Any other value turns the scanning off. The 
scanning mode is off until turned on. 

TABX _X controls the positioning of the text on a single 
line. If X is numeric-, the following text i s to start 
at the Xth character of the line. If ^ is numeric pre¬ 
ceded by a dollar sign-, the text is to start at the Xth 
character of the last line. {Remember that the line 
number is advanced after each message. To tab on the 
line last generated requires the dollar sign form•I 

PTABX X sets the left margin for all following text. If 
X_ is zero is assumed. 

POSTXT Xi ^ set the text position to _X and X* ^ is 

it is set to zero. If Y is the current Y position 

is used. 

The screen selection and character size are specified for 
a group of messages which are headed by a list header 
macro end terminated by a bit end macro* Besides the 
screen and character size selection-, each group of messages 
also is a message group-, a question group or an option 
group. Each group must be of only one type of message. 

The following are the list header macros; 

XXXLST a-ib is the general form of the macros. The 
parameters a and b are SMALL-. MEDIUM-. LARGE-, RIGHT 
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or LEFT in any order or combination* The XXX is 
OPT for an option listi HS6 for a message bit and 
AST for a question list* 

ENDLST terminates a particular list -Cof any type>. 

Only messages and delimitor macros {other than 
XXXLST and EN1>LST> should appear between a list 
header and its matching list terminator* 

For each type of list-* there are initial position! character 
size! and screen selection assumptions* For all list types 
the character size is assumed medium* For nSGLST the 
screen selection is righti for ASTLST and OPTLST the screen 
selection is left* For hSGLST the initial position is 
the top of the screen* For OPTLST it is in the middle of 
the screen. For ASTLST it is one third down the screen. 


4.a. 1.3 QPCOri Call Macro 


The OPCOfI call macro controls what message groups are to 
be d1splayed 1 the type of operator input and the address 
of data area to be used to replace dollar signs in MSGTEXT. 
The form of the call isi 

name OPCOfI return type-i group list-? fill parameter 
where name is optional* 

Return type defines what type of input is expected from 
the operator. The following types are defined! 

^ requests that the OPCOfI package returns the first 
word address of keyboard input and the length* In 
the PP the length is returnecf as a byte count in a 
direct cell called BLTH* The address is returned 
in the A register* In the CP the length is returned 
in Xa and the address in Al* The input buffer is 
six words {bO characters> in length and is blank 
{SSB> filled* 

N. requests that the operator octal input be con¬ 
verted to binary and the value returned. In the PP 
the value is returned in the A register. In the 
CP the value is returned in XI. The length is 
returned as in If the input was not numeric•» 
a negative value is returned. 

^ requests that the OPCOfI package return the ordinal 
of the option specified by the operator. The operator 
must type in one of the option names specified by 
all OPTLST■'s and OPTEXT^'s or a carriage return only* 
Each option is numbered! from one! as it is processed* 
The carriage return alone is always option zero- 
Uhen the operator types something and terminates it 
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with a carriage returm the input is matched to the 
list of options. If it docs not match t the input 
is displayed again with an error message. If it 
doesT the ordinal is returned in the A register for 
the PF o.' for the CP. 


In the above casesi the display remains up until the 
operator finishes keying in input. In the X, display, the 
display remains up until the caller replaces it with a 
new display. The operator input is expected, required or 
allowed. 

^be group list specifies what message lists are to be 
displayed for this call. The form of the list is: 

■Ca, b, ..., ZI where b, Z are each the 

address of a message list header. 

^be f_ill parameter consists of a fill address and a fill 
byte count in the following form: 

{fill address, byte count>• 

A maximum of byte count bytes are taken from the area 
starting with fill addr^ess which is considered to be a 
continuous stream of bytes. If more bytes than byte 
count are required, blanks are used. These bytes arc 
used to replace dollar signs in hSGTEXT messages. 


4.3*2 The OPCOM i^outine 

There are two OPCOM routines—one for the CP and one for 
the PP. To the programmer both routines are identical 
with respect to input and the call, liie will refer to 
these two routines collectively as OPCOM. The primary 
purpose of OPCOM is to generate a display buffer in a 
form suitable for a display driver. It does not do the 
actual displaying. The functions of OPCOM are: 

“ Generation of console display function byte 
“ Translation of line and character co-ordinates to 
physical co-ordinates 

Replacement of dollar sign bytes in MSG TEXT messages 
— Determination of allowable options 
— Transmission of buffer to display driver 

- Analysis of input if necessary to determine what 
option was selected 

- Conversion of numeric input 

The PP OPCOM is also responsible for the determination of 
where the display driver is. If the call for the display 
is made in PP zero, the display buffer is built in the 
high addresses of PP zero and the display driver is called 
directly. If the call is from any other PP or from the 
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CPt the display buffer is built in CM and a controlling 
program in PP zero reads the buffer to PP zero and calls 
the display drivers. 


4.fl«3 The Display Driver 

The display driver is divided into three parts—the key¬ 
board monitorn the CRT driver and the controlling routine 
which calls the first two and handles the communication 
with other PP-'s and the CP. 

The keyboard monitor reads in the characters typed by the 
operator. If they are control characters such as backspace 
or blankouti it takes the appropriate action. If they 
are text charactersi it assembles these characters into a 
buffer which is displayed at the bottom of the left 
screen. If the control character is a carriage returni it 
returns a flag to the caller. The keyboard monitor also 
takes care of single word displays and alterations to 
memory- If the operator types six or less octal digits 
followed by an equal sign at the beginning of the bufferi 
the keyboard monitor will display that word of central 
memory with the address specified by the six or less 
octal digits. If the operator follows this by one or 
more octal digits twhich may be separated by non octal 
digits>i the keyboard monitor will store the right most 
twenty or less octal digits into the word left filled with 
binary zeros. 

The display driver is called to write a display buffer to 
the console CRT. The buffer consists of oneor more message 
groups of the following formi 



Function Co-ordinates Terminator 

and Text 

The function specifies screen and character size. It is 
sent directly to the console CRT. 

The co”ordinates and text are sent to the console CRT as 
data until the terminator is encountered- The terminator 
is one or more bytes of zero which signal the driver that 
a new function follows the last zero byte of the terminator- 
If the function is all onesi the driver returns to the 
caller. 

The controlling routine calls the driver and keyboard 
monitor to drive the display. It is also responsible for 
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communications with other processors* It receives a 
flag word which contains^ 

a display flag which is on when the display is oni 
an input flag which signals that input from the operator 
is to be passed back to the calling processori 
a byte count of input to be redisplayed upon an error* 
This is used to return the byte count of input to the 
calleri 

“ a buffer flag which is on if the display driver has not 
read the buffer and off if it has read the buffer, 
an error flag. 

When the operator completes his inputi the display and 
input flags are turned off and the control word in CM is 
reset. 

There is an alternate controlling routine when the display 
call is made in PP zero. 


4 • D Dead-Start Debugging Aids 

The following debugging aids are available for use with 
the dead-start routines: 

1* One-word central memory display 

2. IRCP central processor breakpoint routine 

3* Device read/write routine 


^•'1*1 One-word Central Memory Display 

Throughout the time in which the display driver is 
executing in PPOi it is possible to examine and/or change 
the contents of any single location in central memory. 

The manner in which this works is shown by the following 
example. 

The operator types: 
a = 


Where a is 1-b octal digits designating a CM address. 
The display driver recognizes this as a special form 
of typa-inn even when other operator input is being 
received -Coctal digits followed immediately by the 
equal signl* Once this form is recognizedn PPQ dis¬ 
plays the contents of this location as follows at 
the bottom of the left screen: 


a = 


c 


March 1969 


4-65 



SCOPE 


tilhere c is SO octal digits. This value is updated 
dynamically as the contents of this word changes. 

If the operator now types a CRt the a = portion of 
the display disappears! but the contents remain! 
and thus other type-ins may be made while still 
observing the contents of the word. If insteadi the 
operator wishes to change the contents of this 
wordt he may-i after entering the = signn enter from 
1 to 50 octal digits. This is displayed as follows! 

c 

a - n 

Where c is the same 50 octal digits as before■« rep¬ 
resenting the actual contents of the wordi and n is 
1-50 octal digits entered by the operator. If the 
operator now types a CRt the value represented by n 
is right-justified! and is then stored in CM. Ndwt 
only the top line remains on the screeni but it shows 
the contents of the word after the storing takes 
place. Again! if the carriage return is typed 
immediately after the equal signi no storing takes 
place. 

The blankout key and backspace key can both be used 
for their normal functions. 


^.^.5 IRCP Central Processor Breakpoint Routine 

This routine can be used for console debugging of IRCP 
by setting breakpoints-i examining the contents of the 
registers and of central memory! and by changing the 
contents of central memory. Its use is described in 
detail in the listing of IRCP. 

The code for the breakpoint routine is assembled only if 
the value of the symbol BREAKPT is non-zero. The symbol 
is defined in 1>SLC0I1. Host of the code is in IRCP and 
some is in CONTROL. The computer must have the central 
exchange jump instruction -CXJ} in order that the break¬ 
point routine can be used. CONTROL! STL! and IRCP must be 
reassembled. 

4.“1.3 Pevice Read/liirite Roution 

A routine called DEBUG is available in IRCP to read {dump> 
and write selected portions of any device. It is assembled 
only if the PSLCOH symbol XOPTION has a non-zero value 

The routine is entereo by selecting a dead-start option 
of l.X when the large display of all the dead-start options 
appears. This causes CEO to give control to IRCP with 
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everything set up in the same way as if an initial-, normal-, 
or recovery dead-start were being performed. IRCP transfers 
immediately to I^CBUG. None of the usual preliminary func¬ 
tions such as label processing are performed. 

The operator entries are apparent as the routine is used. 

The operator is first asked to enter the EST ordinal of 
the device to be referenced. Once enteredi this can not 
be changed without dead-starting again. Then one of the 
following features of the routine is selected. This is 
also permanent-, once selected: 

1 - Erase one RB 

2 - Dump one RB 

3 - Dump one PRU 

After one of the above is selectedi the main loop of the 
routine is entered. Each option is processed as follows: 

Option l: The operator is asked to enter an RB number 
Then a buffer the length of an entire RB is 
filled with a preset value. The buffer is then 
written to the selected RB by using RdS con¬ 
trol. This process is then repeated until 
the operator dead-starts again. 

Option 2: The operator is asked to enter an RB number. 

RMS is then called to read the RB into CM. The 
input area is designated as starting at RilSBUFl 
■C4BSD0B>. This process may be repeated as 
many times as the operator wishes or until CM 
is exhausted! for which no checking takes 
place. Each successive RB selected is read 
starting at the LUA-t-l of the previous read 
rounded up to the next IDOB. The area between 
reads is filled with all ones for easy obser¬ 
vation. Also-i to aid in identif i cat ion-, the 
word immediately preceeding each read is set 
with the following: 

Bits D“ll = PRU number 

Bits 12-23 = RB number 

Bits = Zero 

As should be apparent by nowi it is necessary 
to use dead-start dump to get this output. 

After each read is completed-, a message is 
displayed which indicates where the last read 
began• 

Option 3: This operates in the same manner as Option 2 
except for the following differences: 
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1- The operator is asked to enter both an RB 
number and then a PRU number. 

B. The header information described above appears 
at the start of each PRU-i whereas t in option 
2 it appears only at the start of each RB. For 

this same reasoni in option Ei the PRU number 

will always be equal to zero. 

3. Cn is used up much less rapidly-i since only 
one PRU at a time is placed in CM. Actually-i 

due to the header in format! on-i the PRU header 

bytesT and the rounding up as described abovei 
each PRU dump uses a total of 2D0B CM words. 
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5.0 MTR - SCOPE SYSTEM MONITOR 


MTR is loaded into PPU zero at dead-start time and remains there for 
the duration of system execution. 

The primary task of MTR is to control and coordinate system activities 
in order to avoid any conflicts between the various processors, 

MTR will for instance 

. control the execution of CPU programs 

- assign jobs to pool peripheral processors 

• allocate central memory storage (and eventually ECS) 
to various control points 

. reserve and assign data channels and equipment 
. periodically evaluate control point priorities 
. maintain the system clock and accounting 

All of HTR^s tasks are sensed during its course through the MTR main 
loop. From there, five different modules can be entered; the chart on 
page 5-2 shows this module organization and indicates in which section 
of this chapter the module description can be found. 


5.1 BASIC DEFINITIONS 


Control Point Status 


Byte C.CPSTAT of word W-CPSTAT in the control point area contains the 
status of assignment of the central processor to the control point. 

The format of this byte is the following; 


11 


5_4 


w 

X 


D 

Y I 

M 


- bits 6 to 11 are used internally by MTR 
for the CPU assignment in a multiple 
CPU configuration 

- bits 4 and 5 are the control point status bits 

- bits 0 to 3 are the secondary status bits 

At any given time, a control point is in one of the following three 
statuses: 

1. Zero status or Z status (Status bits: ¥=X=0} 

A control point is in Z status if it has no requirements for the CPU. 
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5. Recall status or X status {Status bits: IJ=D, X=l> 

A control point is in the recall status if it has re¬ 
linquished the central processor while waiting for a 
peripheral task to be completed. 

3. Uaitinq status or U status {Status bits: U=1 t X=D} 

A control point is in the waiting status if it currently 
has need for the CPU. 

A control point in the lil status is said to be active or running 
if it has currently control of a central processor. The 
control point area address of an active control point is 
recorded in the CUR pointer area^ word T.STATCPt byte 3 
for CPUBt byte 4 for CPUA. {If zero-, the processor is 
idling>. 


Secondary status bits: 

•• A control point is said delegated when it can only become 
active in a specific CPU and no other program can receive 
control of this CPU as long as the delegation persists. In 
this case the secondary status bit-. D-. is set in the 
control point status. 

- A control point in the X status is said to be in periodic recall 
if it has relinquished the CPU for a certain time period. 

It is said in automatic recall if it has relinquished the 
CPU until a certain status is set complete by some peripheral 
task. 

A control point in automatic recall is characterized by 
the secondary status bit Y set in its status byte. 

- fITR may decide to suspend temporarily a control point in 
order to move its storage. In this case-, the secondary 
status bit H will be set. 


CPU Status 


Honitor maintains in PPD memory a IS-bit status for the 
central processor{s>. 

This status can be: 

777? if this processor does not exist {tSOO flTR 

running on a tj4DD> 

ODbD if this processor is turned off 

Q04D if the processor is on 

QOHH if this processor is delegated to a specific 

control point. 

In the last two cases-, the central processor status is 
identical to the status of the control points eligible for 
assignment of this CPU. 
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In a single processor machinei the CPU status can only be 
QDMD {111 status!. 

The status of the CPU{s> Is recorded In the CMR oointer arean 
word T.STATCPt byte C.STATCP. This byte contains the b right 
bits of both CPUCs! status in the forms 


CPU s 

CPU A 

status 

status 


Examples For a titDD or bMQQ the contents of C.STATCP is 77HD. 
For a bSDO with CPU B delegated the contents is 


Control Point Activity 

Three different acti</ity counts are maintained by MTR for 
every control points 

1. The General Activity Count which contains 1 
. for each PPU assigned 

. for each outstanding request for a PP jobi with 
or without time delay 

- for each uncompleted stack request Cat this control 
point! 

S. The Pseudo-Activity Count which can only be incremented 
or decremented via the UTR function M.RACT. 

3. The PP Delay Count which contains I for each outstanding 
PP job requested whose time delay has not yet expired. 


Monitor considers that there is no activity at a control 
point if the sum of the General Activity Count and the 
Pseudo-Activity Count is zero. 

The PP Delay Count is only maintained to allow a PP routine 
like IRO to differentiate outstanding requests with delay 
from the others. 

Note ? 

All the activity counts are maintained in PPO memoryi they are 
not stored or updated in central memory. 


S.5 MAIN LOOP AND MAIN CONTROL 


In its main loop-* Monitor 

scars the output registers of the assigned PPU'*s 


5-4 


March 1969 



SCOPE 


- scans the relative location one -CRA+l} of the 
active control point{s> 

- calls the following four control routines: 

AVC - Advance Clock 

ACP - Advance Control Point 
PDS - Process Delay Stack 
PRC - Priority Recomputation 

The sequence of operations is the following! 

!• Test if PPU is assigned and a request is in its output 
register. If not jump to step 3. 

2. Process the PPU request {PPn> 

Advance the clock -CAVO 

Process eventual CPU request{s> {AVCPU> 

3. If all PPU''s have not been processed! go back to step 1 
for the next PPU. 

M. Process delay stack •CPDS> 

Process CPU request{s> ■CAVCPU> 

Recompute priority sublevels {PRO 
Advance the clock CAVO 
Advance a control point {ACP> 

5. End of the loop. Jump back to step 1 and start with PPUl 


S.2.1 Output Register Scanning 

In the main loop the code necessary to scan a PPU output 
register is repeated for each PPU. 

Each sequence is eight words long which is the safpe length 
as the PP communication area in central memory. This 
equality of length permits addressing of words within a 
sequence for a specific PPUt by using the output register 
address of this PPU. 

There are two words within the sequence which are frequently 
modified: 

** the first instruction is 

UJN **+fi if the PP is not assigned 
LDC if the PP is assigned 

•* the last instruction LJfl PPM is modified if a PPU 
request processing routine makes a direct return 
jump to the main loop. 


S.2.2 Advance Clock 


This routine must be entered at least every ^ milliseconds. 
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Therefore it is entered after the processing of any PPL) or 
CPU request. 


Its function 
display code 
at T*MSC and 


is to maintain the real 
clock stored in the CHR 
T.CLK. 


time clock and the 
pointer area respectively 


5.a.3 Advance Control Point 

This routine is entered once every pass through the main 
loop. It analyzes the status and the activity of the con¬ 
trol points Cone control point every time> and will: 

- call lAJ at a control point if no activity remains at 
this control point 

- decrement the recall delay if the control point is in 
periodic recall CX status! 

- set the error flag F.ERHANG if no activity remains at a 
control point in automatic recall -CX+Y status! 

set the error flag F.ERTL if the time limit flag is set 
at the control point- 


5-2-4 Process Delay Stack 

This routine is entered once every pass through the main 
loop. It scans the queue of PP job requests issued with 
a time delay and initiates the peripheral jobs whose delay 
has expired. 


S.E.S Recompute Priority Sublevel 

Every -CIP.CPD+b! milliseconds-i MTR re-evaluates the 
priority sublevel of the control points who have a non- 
fixed or non-zero priority. 

An installation may specify several parameters for the 
scheduling algorithm used in computing priorities. 

a! IP.MPR designates the maximum priority level which may 
be assigned to a job- This is the largest number which 
a user may specify as priority on his job card- Possible 
values of IP-HPR range from D to 7777^. The value of 
IP.flPR determines the number of bits used for the level 
■Chighorder portion of priority!* 

b!' IP.LVF indicates the lowest fixed priority level. The 
sublevel of any priority whose level is greater than or 
equal to IP-LFV will not be recomputed. 
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c> IP.CPDt as mentioned previously-t defines the interval 

between priority recomputation of jobs at control points- 
•CJobs with a fixed priority level are not affected by 
this recomputation-> 

d> IP.OSU is a weight factor applied to the old priority 
sublevel during priority recomputation. The weight 
used is gIP-OSW-ii possible values range from 0 to b- 
Thusi the rate at which a priority sublevel changes 
when the character of the job changes t may be controlled. 

To re-evaluate sublevels-j HTR maintains at each control 
point the cumulated milliseconds of CPU time tallied at 
the control point- This sum is reset to zero each time a 
priority level or sublevel change occurs- If CPT is this 
sum and: 

T = 2»«*«CIP.CPl>+b> 

[tl = 2 »*hIP.(>SU 

N = Number of bits in the sublevel 
A = 2NM{iP.CPD+tj-N> 

S^= old sublevel 

then the new sublevel becomes: 

T-CPT + i:y_i,>NS^ 

S = _A_1 

U 

S.3 CPU REaUEST PROCESSING 

riTR distinguishes two types of central programs: 

System programs which run at control point N-CP+1 with 
RA = 0-j FL = 377777B and a priority of 7777. These pro¬ 
grams cannot make requests through RA+l- They always 
terminate with a jump to zero Clocation counter P = 0> 

- Problem programs which run at control point 1 through 
N.CP. These programs communicate with fITR via RA + l: 
fITR scans periodically the contents of word RA+l of the 
active program-CsJ. If it becomes non-zero-i MTR will 
consider it as a CPU request and process it before 
clearing RA+l. 

The first three characters of RA+l give the request type: if 

END - End central program ~ 

the control point is put in the Zero status 
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ABT - Abort control point - 

the error flag is set to F.ERCP at the control point 
and the control point is put in the Zero status. 

RCL - Enter recall status - 

l“if the automatic recall bit is not set-i the control 
point is put in the X status and a periodic recall 
delay is initialized 

E-if the automatic recall bit {bit MD> is set and the 
parameter address {bits Q-lb> points to an incomplete 
status {bit D not set>i the control point is put in 
the X+y status 

3-if the automatic recall bit is set and the parameter 
address points to a complete statusi the request 
is considered as a no-operation- 
TIM - Supply time or date - 

Depending on the value of the parameter transmitted in 
RA+1 {bits SM-3S>i MTR will return at the location 
specified in bits O-lb the following information: 
parameter value 0 elapsed CPU time {liI.CPTIME> 

1 {T-DATE} see CMR pointer area 
H {T.CLO V 

3 {T.JDATE> w ^ V 9 

M {T.MSO V ^ ^ 

if else - MTR assumes it is a PP program call _ 

In this case-* the first character must be alphabetic. 

MTR will take the contents of -RA+li clear bits 3b-31 and 
Mil insert the control number-i consider this as a PPU 
input register image and assign a PPU. If the auto¬ 
matic recall bit is set and the parameter address points 
to an incomplete status-i the control point is put in 
the X+Y status. 

If the automatic recall bit is set and the parameter 
address points to a status already completei the con¬ 
trol point is aborted {error flag F.ERRCL> 


During the process of central processor requestsi the 
following error flags can be set: 

F.ERAR - Arithmetic error 

Error detected when the location counter P is zero 
for a problem program 
F.ERCP - Control point aborted 

Error flag set in answer of a ABT request 
F.ERPCE - PP call error 

Error detected when a PP program call does not 
begin with an alphabetical character or when an 
invalid parameter is transmitted {address not in 
the control point FL for instance> 

F.ERRCL - Automatic recall error 


Error detected when a PP program call is issued 
with the automatic recall bit set and the parameter 
address transmitted points to a status already 
complete. 
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Ilihen a valid request with auto-recall bit and a 
status address is issuedi HTR sets the control 
point in the X+Y status. Later oni every time the 
general activity count of this control point is 
reducedi HTR will check the status and put the con¬ 
trol point in the lil status if the completion bit 
is set. 

For this purpose when such a request is detected 
in RA+li HTR records the status address by writing 
the complete request from RA+l into word U.CPAR of 
the control point area. 


S.4 PPU .RgflUEST PROCESSING 

All PPU requests are made by placing the number of the 
request {H.xxxx> in byte zero of the PPU output register- 
Parameters for the various requests are supplied to HTR via 
bytes 1-M of the output register and/or the PPU message 
buffer. Upon completion of the requesti HTR replies by 
setting byte □ of the output register to zero and gives the 
response back to the requesting PPU in the remaining bytes of 
the output register or the message buffer. 

If HTR detects that the format of the request is badn it 
sets the high order bit of byte □ of the appropriate PPU 
output register. This hangs the PPUi because HTR will 
ignore any request with this bit set. An appropriate message: 
PPn NAHcp BAD HTR REi3UEST is inserted in HIRE’S message buf¬ 
fer and will be displayed at the bottom of the right screen 
in flashing characters. 
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The following table lists all current MTR function codes and the 
associated mnemonics. 


01 

H.DFM 


02 

H.RCH 


03 

Reserved for 

GDC 

04 

M.PPTIME 


05 

M. STEF 


06 

M.ICE 


07 

M.8BTST0 


10 

M.RSTOR 


11 

Reserved for 

GDC 

12 

M.DPP 


13 

M.ABORT 


14 

M.NTIME 


15 

H.RCP 


16 

M.DCP 


17 

M. PAUSE 


20 

M.RPP 


21 

M.RCLCP 


22 

H.REQP 


23 

H.DEQP 


24 

M.BPRI 


25 

M.SEM 


26 

H.SEQ 


27 

M.RACT 


30 

M.SEF 


31 

M.RTAPE 


32 

M.DTAPE 


33 

M.ESTZ 


34 

M.EREQS 


35 

M.CGPA 


36 

M.GPUST 


37 

M.RPJ 


40-47 

Reserved for 

Installations 

50-77 

Reserved for 

GDC 


In the following pages, a complete description of the contents of the 
output register and the function parameters is given for each request. 
Those bits or bytes which are Irrelevant to the function are denoted 
by *'s. 

(The requests are listed in the alphabetical order of their SCPTEXT 
mnemonics.) 
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M.ABORT - ABORT CONTROL POINT 

( 0013 ,****,****,****,****) 

The job associated with the requesting PPU is terminated. The re¬ 
questing processor is responsible for an explanatory message in 
the dayfile. 

The operation of this function is identical with function M.DPP 
except that the error flag in the control point area is set to 
F.ERPP(3) to note the abort function. 


M.CCPA - CHANGE CONTROL POINT ASSIGNMENT 
(0035,****,****,***C,***N) 

The requesting PPU is released from its current control point 
assignment in the same manner as if it had Issued an M.DPP function, 
but its input register is not cleared. The PPU is then assigned 
to control point N with the new control point number inserted in 
Its input register. 

If C is non-zero, the activity count of control point C will be 
reduced by ore(this option should only by used by stack processor). 


M.CPUST - CHANGE CPU STATUS (6500 ONLY) 

(0036,***X,****,****,***N) 


Option li N is non-zero. 

The request Is ignored if a CPU is OFF or delegated. If 
this is not the case, CPU X(X=lor2)is delegated 
to control point niimber N. No other control point may 
use a CPU delegated to control point N. 


Option 2: N = 0, X = 0 

If either CPU is off or delegated, it is returned to 
the ON status. This does not affect a CPU that was 
locked off at deadstart load time. 


Option 3: N = 0, X=lor2 

CPU X is turned off. If one of the CPUs was delegated, 
the delegation Is cancelled. 


M.DCP - DROP CENTRAL PROGRAM 
(0016****,****,****,****) 

Execution of the central processor job at control poiht is stopped. 
The control point status is set to Z (zero status)* the secondary 
status Is not altered. 

The control point status bits prior to M.DCP are returned in byte 1 
of the output register of the requesting PPU, 
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M.DEQP - DROP EQUIPMENT 
(0023,OOEE,**** j**** 

MTR drops equipment ordinal EE from the control point and updates 
the EST entry to Indicate that this equipment Is free for reassign¬ 
ment. There is no check by MTR to ensure that the dropped equip¬ 
ment was assigned to this control point. The parameter N gives the 
control point number to be considered if the requesting PP is attached 
to control point zero, otherwise it is irrevelant. 


M.DEM - PROCESS DAYFILE MESSAGE 
(0001,FFFF.MMMM,****,****) 


The dayfile flag bits FFFF determine (when set) the following 
message handling: 


bit 0 
bit 1 
bit 2 
bit 3 
bit 4 
bit 5 


Do not send to B display 

Do not send to the control point dayfile 

Do not send to system dayfile (No A display) 

Flag as an accounting message 
Send to hardware error file 

Do not insert the job name in the system dayfile 


The parameter MMMM gives the last word address of the message in 
the PP message buffer or gives a dump index when a dayfile dump 
is requested. 


The possible value of the dayfile dump index is: 

0 for a system dayfile dump 

I through N.CP for a control point dayfile dump 
N.CP+l for a hardware error file dun?> 


M.DPP - DROP PP 

( 0012 ,****,****,**** ^****) 

MTR clears the PP control point assignment (the PP status word and 
the PP input register are cleared). 


M.DTAPE - TURN EQUIPMENT OFF 
(0032,OOEE,****,****,****) 

OTR will turn the equipment EE logically off by setting the on/off 
lockout bit in the relevant EST entry. 
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M.EREQS - ENTER REQUEST STACK 
(0034,*—*,OOAA,SSSS,00BB) 

( (C*RQSFS)H“SSSS)*'2 is the address of a CM word pair in the common 
request stack. The requesting PP has the responsibility to search 
for an empty entry in the stack and to communicate this word pair 
location in the SSSS field- 

If MTR detects that the specified word pair is already in use, it 
will refuse the request by setting byte 1 of the output register 
to 0001 and clearing byte 0, 

If the word pair is available, the stack request is taken from the 
PP message buffer and stored in the available word pair. The entry 
count of the appropriate device status entry and the control point 
activity count are increased by one. Finally, the entire output 
register of the requesting PP is set to zero to indicate that the 
request has been completed. 

If AA = 0, control is returned to the PP normally- 

If AA = 77B the request will be reissued for the device BE, i.e., 

MTR will update the appropriate device status table and control 
point activity counts, without inserting a new entry in the 
common request stack. (If AA is not 77, the last byte of the 
output register is ignored) 

If AA is not 0 or 77, the requesting PP is available for reassign¬ 
ment. It Is released in the same manner as if a M.DPP 
request were issued- 
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M.ESTZ - UPDATE EST Z BYTE 
(0033,OOEE,**ZZ,**** ) 

This function alters the status field (bits 48-59 in the EST entry 
for any allocatable devicei MTR makes the requested change only 
if it is legal in relation to the existing status. 

EE is the EST ordinal of the device and ZZ is the right half of the 
status byte (bits 48-53) in the EST entry. MTR will respond to 
the request by copying the new status into bits 24-29 of the output 
register. Comparison with the request will show whether the request 
was granted. 

The possible values of ZZ are: 

OOB = Public with no active files; at control point 0 

lOB = Public with one or more active files; at control point 0 

20B = Private with no active files; at control point 0 

2pB = Private with no active files; at control point p 0 

30B = Private with an active file; at control point 0 

3pB = Private with an active file; at control point p 0 

40B = Logically unloaded; at control point 0 

With the M.ESTZ function, only the changes indicated by X in table 
below can be made (the value of p cannot change, except to become 
zero). 


from/to 

00 

10 

20 

2p 

30 

3p 

40 

00 

X 

X 

X 

X 



X 

10 

X 







20 

X 


X 

X 

X 

X 

X 

2p 



X 

X 

X 

X 

X 

30 



X 

X 

X 

X 

X 

3p 



X 

X 

X 

X 


40 

X 


X 

X 

X 

X 

X 
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M.ICE - INITIATE CENTRAL EXECUTIVE 

(0006,****,****,****jllll) 

The parameter III! identifies a central memory resident program 
which will be started by MTR upon recognition of this request. This 
system program will run at control point zero (RA =0, FL = 377777B, 
priority = 7777B) and terminate by a jump to zero. 

The M.ICE request is delayed if a system program is already active; 
MTR initiates only one system program at a time. 

M.NTIME - ENTER NEW TIME LIMIT 
( 0014, TTTT, T****, ****, TWt+N ) 

A central processor job time limit of TTTTT seconds is entered at 
the control point. Any previous time limit is superseded. 

If the requesting PPU is assigned to control point zero, the para¬ 
meter N will give the Number of the control point to be considered; 
in any other case this parameter is irrelevant. 

M.PAUSE- PAUSE FOR STORAGE RELOCATION 
(0017 ,*■***,**•** j****j****j 

This function tells the monitor that the PPU will not make any CM 
references within the field length of the associated control point 
until the function is completed. This permits monitor to move 
central storage for the control point; the function will not be 
completed as long as the storage move flag Is set at the control 
point. The requesting PPU should check the reference address for 
the control point after completion of this function to determine 
if central storage for its job has been moved. (See PP Resident 
function R.PAUSE.) 

M.PPTIME - ASSIGN PPU TIME 
(0004,****,****,*★** j****) 

MTR adds the current time minus the PPU starting time, to the 
accumulated PPU time In the control point area (word W.PPTIME). 
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M.RACT - REQUEST CONTROL POINT ACTIVITY 
(0027****,****) 

This request allows a PPU to know the various activity counts of 
control point N at a given time (N cannot be zero). If the para¬ 
meter IIII is non-zero, the pseudo-activity count will be incre¬ 
mented or decremented by the constant IIII (after sign extension). 
The reply of monitor is made via the PPU output register: 

Byte 1: control point status byte 

Byte 2: general activity count 

Byte 3: count of outstanding delayed PP requests 
Byte 4: pseudo-activity count 

M.RBTSTO - REDUCE RBT STORAGE 
(0007,SSSS,****,****,****) 

MTR sets SSSS*100B as the new RBT starting address. 

M.RCH - REQUEST CHANNEL 
(0002 ,BBAA,DDCC,**** ,RRRR) 

AA = 1st choice channel number 
BB = 2nd choice channel number 
CC = 3rd choice channel nianber 
DD = 4th choice channel number 
RRRR = 0000 Request Immediate reply 

RRRR 0000 No reply until a requested channel has been reserved. 

When channel zero is requested, It must be field AA. When BB, CC 
or DD is zero, it is assumed that this is not a channel request and 
that there are no alternate choices beyond it* 

If none of the requested channels is available and an immediate 
reply is requested, MTR will set bytes 0 and 4 of the PPU output 
register to zero. 

When a channel is granted, the number of that channel will be re¬ 
turned in the PPU output register byte 1 (location of AA), Byte 4 
will be set to a non-zero value, 

M,RCLCP - RECALL CENTRAL PROGRAM 

(0021 ,****, **** ^**** ) 

This request has only an effect if the central program associated 
with the requesting PPU is In the recall status and no error flag is 
set at the control point. In this case the status of the control 
point is set to waiting (W). 

In any other case the status of the control point is not altered. 
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M*RGP - REQUEST CENTRAL PROCESSOR 

( 0015 ,^*^* ^i!t***) 

This request is ignored under the following conditions: 
a- The requesting PPU is assigned to control point zero 
h* The error flag is set for the control point 
c. The job is already in the waiting status 

If none of the above conditions exist, MTR will set the job in - 

a, the automatic recall status (X+Y) if the auto-recall pointer 
still points to an incomplete status 

b. the waiting status (W) in any other case- 

M.REM - ASSIGN ERROR EXIT MODE 
(0025 ,MMMM ,**** j 

MTR assigns the value MMMM to the exit mode field in the 
control point exchange package area* (The control point cannot 
be in the waiting status-) 

M.REQP ^ REQUEST EQUIPMENT 
(0022 3 eEEE,**** 

The parameter EEEE consists of two display-coded characters: 
if numeric it gives an EST ordinal, 
if alphabetic it defines an equipment type- 

MTR will search the Equipment Status Table (EST) to locate the 
appropriate EST entry* This entry is updated to reflect the assign¬ 
ment to the control point of the requesting PPU or to control point 
N if the PPU is assigned to control point zero. Finally, MTR places 
the assigned equipment ordinal in the first byte of the PPU message 
buffer. 

If the equipment is not available, a zero byte is returned. 
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M.RPJ - REQUEST PERIPHERAL JOB 

(0037,DDDD,DDDD,****,****) 

This function requests that another PPU program be initiated after 
a specified time delay. The first word of the requesting PPU message 
buffer contains the input register image of the new PPU program. 

The time delay is DDDD DDDD*250 microseconds. (This time is rounded 
upward to the next larger millisecond.) 

If the time delay is zero and no PPU is available, the request is 

entered in the PP job queue. If no space is available in the PP job 

queue buffer of MTR, the entire request remains pending until a queue 
entry becomes free. 

M.RPP - REQUEST PPU 
(0020,**** ,**** j**** j****) 

This function requests immediate initiation of another PPU program. 

The first word of the request! ng PPU message buffer contains the input 

register image of the new PPU including the control point number to 

which it should be assigned. The input register address of the assigned 
PPU is placed in the first byte of the requesting PPU message buffer. 

A zero byte is returned and the request is rejected if no PPU is currently 
available. 

MwRPRI - REQUEST PRIORITY 
(0024,PPPP,****,**** 

Assign priority PPPP to the control point of the requesting PPU if 
it is not control point zero. The parameter N gives the control point 
number to be considered If the requesting PPU is assigned to control 
point zero. In any other case the value of N is irrelevant. 
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M.RSTOR * REQUEST STORAGE 
(0010, CCCC ,XXXX, OOTT ) 

Option 1 TT = 00 Cti request only 
=01 ECS request only 
=02 CM and ECS request 

Assign CCCC hundred octal words of central memory and/or 
XXXX thousand octal words of extended core storage to the 
control point of the requesting PPU* 

Monitor replies to this request by setting CCCC and/or XXXX 
to the values actually assigned to the control point and 
by setting byte 0 to zero* These values should be compared 
with the original values requested to determine whether 
these requests have been honored or not. A request for 
more storage is rejected if not enough storage is available 
or if a storage move is already in progress* A request for 
less storage is always honored immediately. If TT = 02, 

MTR can honor a part of the request, without honoring the 
other. 

Option 2 TT = 10 RBT storage request 

CCCC*100B is the address of the lowest word in central 
memory requested by the stack processor as limit of the 
RBT storage area. 

Monitor replies with the address actually allocated in CCCC. 

M.RTAPE - TURN EQUIPMENT ON 
(00311OOEE ,**** j**** 

Monitor will clear the on/off lockout bit for equipment EE in the 
equipment status table (EST). 

^M.SEF ^ SET ERROR FLAG 
(0030,***N,EEEE,**** ^k±kk) 

Monitor will drop the central program at control point N by putting 
the program in the zero status, and set the er^or flag to the value 
EEEE. 
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M.SEQ - ASSIGN JOB SEQUENCE NUMBER 
(0026 ^*"*'*^ J 

Monitor returns in byte 1 of the PPU output register a job sequence 
number (in display code)* 

M.STEP - MONITOR STEP CONTROL 

( 0005 ,*^*^ j**** ^- A - A-A-A 

This control is Initiated by a keyboard request. MTR sets an internal 
step control flag and at each subsequent request MTR pauses for 
console keyboard Input* A space from the keyboard causes MTR to 
process the request. A period from the keyboard causes MTR to process 
the request and clear the step control flag to resume high speed 
operation. 

If N = 0 all PPU requests are stepped- If N is non-zero, control 
point N is the only one to be placed in step mode: only the requests 
Issue by the PPU*s assigned to control point N will be stepped. 
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5.5 PIEnORY ALLOCATION - STORAGE HOVE 


The storage associated with each control point is contiguous 
and assigned in the same sequence as the control point numbers. 

Extended core storage is allocated in exactly the same way 
as central memory storage. 

Low CM core is permanently assigned to control point zero -CCflR}. 
High CM core is reserved for RBT storage. 

The storage associated with each control point consists of 
two typesi either of which may have a value zeroJ 
a> allocated storage defined by the reference address and 
field length of the control point. 
b> unallocated storage residing between the allocated portions 
of two consecutive control points. It is associated 
with the lower of the two control points but may be 
transferred to neighboring control points by moving any 
intervening allocated storage 

Monitor maintains in PPD memory two tables containing the 
sizes of allocated and unallocated storage -CCM and ECS> for 
every control point fO through N.CPI 

A request for reduced field length will have the effect of 
transferring a portion of the storage from the allocated 
to the unallocated blocki no storage is moved. 

A request for an increased field length when the total 
storage associated with the control point is adequate! will 
result in a transfer of unallocated storage to allocated 
storage and will not cause any storage move to take place- 

If it is necessary to take unallocated storage from the 
other control pointsi there will be a scan of control points 
above and below the requesting control point. This scan 
will locate the combination of blocks of unallocated storage 
which result in moving the least storage. 

In any case! when a control point reference address and/or 
field length has to be modified! MTR will: 

1. Suspend this control point by setting the M status and 
the storage move flag. 

B. Wait for all PPU-'s assigned to this control point to 
pause {for CM move only> 

3. If a move is necessary! initiate the system exchange 
package and start the storage move program. 

M. After completion of the move! modify the control point 
reference address and/or field length 
S. Resume the control point by clearing the M status. 
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Notes? 


1. In case of a request for control point zero or a 
request for extended core storagei the storage 
move flag is not set at the control point and 
step 2 -Ciliait for pause> is bypassed* 

B. A PPU is considered as pausing if its output 
register contains a fl*RST0R or fl*PAUSE request 
or if it is hung with a bad MTR request Isee S.4> 
3* If an ECS parity error is detected during an ECS 
move-I flTR will abort the requesting control point 
and the control point being moved if it is not 
intact anymore. MTR will reject any further 
request for more ECS storage. 


S.t CPU ASSIGNMENT 


To facilitate CPU assignment! MTR maintains in PPD memory 
two tables with one entry per control point: 

the list of the status of all control points CO through 
N.CP-«-l> 

the list of the priorities of the corresponding control 
points -Cpriority □ for control point zeron priority 7777 
for N-CP+1> 

At any given timen the CPU is allocated to the highest priority 
control point whose status matches the CPU status. 

The CPU assignment routines are entered when? 

A - A control point enters the lil status or the priority of a 
control point in U status is modified. In this case 
MTR checks that the control point status matches a 
processor status and the control point will be initiated 
if its priority is higher or equals the priority of the 
active control point. 

B - An active control point leaves the U status. 

In this case MTR searches the control point tables in 
order to find the highest priority control point whose 
status matches the status of the processor. This control 
point is then initiated -Cif it is control point zero-i the 
idle program will be initiated>. 

A control point may enter the bl status when it returns from 
recall status or when a M.RCP request is issued. MTR tries 
to bring a control point out of recall every time the general 
activity count of this control point is decremented-) i-e.-i 
after a M.DPP or M.CCPA request. In this casei the control 
point is put in the li) status if it was in periodic recall 
-Cx}-) or if it was in automatic recall -CX-^Y> and the recall 
pointer points to a complete status. In any case-i a control 
point leaves the recall status if a M.RCLCP request is 
issued or if the time delay of a periodic recall is elapsed. 
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A control point may leave the U status after: 

- a n.DCP-. n.ABORT-, H-SEF peripheral request 

- a normal or abnormal termination of the central program 
-CENO or ABT in RA-(-l> 

a RCL or a PP program call with the automatic recall bit 
set-, requested in RA-t-l. 

Exchange package management 

To transfer control form one control point to another-, HTR 
executes a double exchange jump from the running program 
to the idle program-, then from the idle program to the program 
to be started. While any control point is running-, the 
exchange package area in its control point area will contain 
the idle exchange package. An exchange jump to that control 
point will cause the central processor to re-enter its 
idle loop and will replace the exchange package in its own 
control point area. A second exchange jump to initiate the 
execution of another program will replace its exchange package 
with the idle exchange package. This procedure will keep the 
exchange package for each control point in its own control 
point area except while that program is in execution. 


5.7 PPU ASSIGNtlENT 

If N.PPU is the number of peripheral processors-, there are 
N.PPU-E pool processors whose assignment is controlled by 
MTR. -CriTR is residing in PPU zero-, DSD in PPU number N.PPU-1»> 

HTR assigns a PPU by writing a peripheral job name with a 
control point number in its input register. This is done in 
the following cases: 

a - to satisfy a PP program call issued by a control pro¬ 
gram -CRA-*-! request! 

b - to answer a PPU request for another PP job -CH.RPP or 
fI.RPJ requestsi 

c - to initiate a stack processor when an I/O request is 
issued for a mass-storage device to which no stack 
processor is currently assigned. 

d - to call the PP program lAul to a control point when all 
control point activity has ceased. 


S.7.1 PPU Status Table 


In order to control the PPU assignments-, HTR keeps in its 
memory a PPU status table containing an extended -Cfl bytes! 
PPU status word for each PPU. 

A - If the PPU is assigned the format of the word is 


CPAD 


T.PPSx 


UNUSED 


PPFLAG 


PPSEC 


ppnsEC 


March 1969 






SCOPE 


where CPAD Is the control point area address of the 

control point to which the PPL) is assigned 
T.PPSx is the CflR address of the PPU status word 
PPFLAS is a flag telling if the PPU contains a 
stack processor or not 

PPSEC and PPP1SEC contain the PP starting time 
expressed in seconds and milliseconds. 

The five first bytes form the CM word written into T.PPSx 
when PPUx has been assigned. 

B - If the PPU is not assignedi it belongs to the chain of 
unassigned or available PPUs. 

The direct cell PPIA points to the beginning of the 
chain. The fact that the PPU status entry has the 
same length as the PPU communication area-, permits 
an easy chaining by using the PP input register 
addresses. 

The link is done in byte S of the PPU status entry: it 

contains either the input register address of the 

next available PPU or zero if no more PPUs are available. 

The following diagram showing a chain of three available 
PPUs explains this linking structure. 


■CPPIA> = 

PPQ address' 

( 

X + bD 
I 

t 

X ^ IltD 


X + 13Q 


ID r- 



End of 
Chain 


Note: There may be one unassigned PPU which is not a 
member of the available PPU chain. This is the 
case when no PPU is assigned to a stack processor-t 
MTR reserving one PPU for ISP. 


S.7.B PP Queue 


MTR maintains three different queues: 

- a queue of PP jobs which cannot be currently initiated 
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because no PPUs are available. This overlaod queue is in 
fact a chain of PP input register images. 

— a queue of PP jobs which have to be initiated after a cer¬ 
tain time delay. This queuen also called delay stackT is 
time-ordered chain of PP input register images. 

- an empty queue which is the chain of all unused entries 
in the PP queue. 

These three chains are all using entries of a single PP 
queue. There are 2^ entriesi each entry is fl bytes long* 
Three pointers define the beginning of each queue; 

NPPfl for the PP job queue 
NACT for the PP delay stack 
EMPTY for the empty chain 

The link is always done by an address in byte 5 -Czero means 
end of chain>. The first two bytes are reserved for the 
mature time in the delay stackn for the PPFLAG -CISP} in the 
PP job queue. The five remaining bytes contain the PP input 
register image. 

The following diagram shows an example of a PP job queue 
-CE entries>T a PP delay stack Cl entry} and an empty chain- 


NPP(3-? 


PPFLAG 


PP input register 


] 

NACT- 

Time 

cooo 

PP input register 

r 

-----—-- 

<x ^ 

LPPfl- 


PPFLAG 

□ 000 

PP input register 



EMPTY-> 


A 

— 1 - 




I 

Note; LPPfl is a pointer to the last entry of the PP job 
queue. This pointer is necessary because-i when 
the time delay expires t a member of the delay stack 
will be transferred to the bottom of the PP job 
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b.D General 


The display console is controlled by a display programi OSDt 
which permanently resides in peripheral processor T- DSD 
displays a variety of information concerning the status of 
the systemn including displays of the dayfilei jobs waiting 
to be executed or printedi etc. DSD permits selected 
portions of central memory to be displayed and modified if 
desired. In addition to its display function! DSD processes 
keyboard entries from the operator* Operator functions 
include dropping jobs from control pointsn bringing jobs 
from the library to a control point■» assigning equipment-i 
and selection of displays. DSD also dumps dayfile buffers 
when requested by MTR. 

The main components of the display console are the two 
cathode ray tubes and the keyboard. By issuing the appro¬ 
priate function codes to the display console controller! 
displays of lb! BSi or bM characters per line may be selected 
on either the right or left screens. A dot mode display is 
also available! although only the character mode display is 
used by the operating system* The display area can be con¬ 
sidered to be composed of a grid of points! SIE by SIB points 
in size. A display can be initiated at any point in the dis¬ 
play area by issuing the corrdinates of that point. A 
vertical! or y! coordinate is sent to the controller in the 
low-order nine bits of a byte in which the high-order octal 
digit is a 7. Similarly a horizontal! or xt coordinate is 
sent to the controller in the low-order nine bits of a byte 
in which the high-order octal digit is a b- If the display 
console controller receives a byte in which the high—order 
octal digit is neither a b or a ?! it is assumed that this 
byte contains two display code characters- 

To display a line of information on the screen! an x and a y 
coordinate are sent to the controller via the appropriate 
output instructions "COAN or OAMI. These coordinates define 
the location of the lower left corner of the first character 
to be displayed. The information to be displayed is then 
sent to the controller via an OAfI instruction. As each chai 
acter is displayed! the x coordinate is automatically incre¬ 
mented* To display another linei the x and y coordinates 
should be reinitialized. A coordinate of x = DDQ defines the 
left-most boundary of the display area’! a coordinate of y = 

77b defines the upper boundary of the display area! and a 
coordinate of V = QOD defines the lower boundary. 

The display should be regenerated between ^D and SO times per 
second to avoid flicker. Vertical spacing of the lines should 
be S/H of the horizontal spacing* 
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Before describing the internal structure of OSD in detail, 
the hardware considerations and design decisions will be 
discussed* 


Hardware 


The btlB does not have a buffer controller, hence the dis¬ 
plays must be repainted MD-5B times per second to maintain 
suitable intensity- 

Space 

The major decision was to structure DSD as resident code 
{0“S700B>, and a group of overlays for the displays and 
commands which are loaded into PPT for execution- To 
conserve space in DSD, most of the dayfile processing code 
was put into IITR, who processes dayfile messages at a 
faster rate, and the A display was moved out of PPT'‘s memory 
and back into CM- Putting the A display in PPT''s memory 
had many drawbacks; the most complained about was the shrink¬ 
ing size of the A display as CDC and the users added code 
to DSD- 

In the implementation, the code was written so as to reduce 
the size of resident DSD and push the code into the overlays 
whenever possible- Examples are: the structure of the 
command syntax table Cat CUDTBLl, the display overlay link 
table -Cat DOTBLl, the code for the memory display address 
change commands CCn,nnnnn.}, etc- 

Speed 


Uhile it is true that DSD wastes a fair amount of time doing 
nothing when some of the simple displays are up, other dis¬ 
plays, such as the memory displays, tend to flicker if the 
code is not fast enough- For this reason, the octal to 
display code conversion routines are table driven. 

Other examples are the code for the A display and the H 
display which will flicker under certain extreme conditions. 
For these displays most of the code is in line and very 
little checking is done- 

Protection of the Scopes 


System maladies usually show up on the scopes in one form 
or another. Extreme system malfunctions may disrupt some 
of the displays and disable command processing- The follow¬ 
ing algorithms are implemented: 

a- Reading up the T- symbols up at deadstart time from CflR and 
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not referencing them when the system is running* An ex¬ 
ception to this rule is T-LIB* If it gets clobbered-, one 
should deadstart. 

b. Using counted loops to protect agains a DEAD MTR or clobbered 
pointers- 


b « 1 


Overlay Structure and Organization of Memory 

DSO and all the overlays that are loaded into PPT are assembled 
as one program by using the SEGMENT pseudo op* This makes the 
addresses of the resident subroutines available to the overlays* 
For simplicity-, all of the overlay names begin with P* The 
listing of the display overlays-. SDA - 6DZ follows the listing 
of the resident code* The overlays fiOl - come last* At 

present-, the overlay flDT is unused* 


The diagram on the right shows the organi- □ 
zation of PP'l''s memory after deadstart 
initialization is completed* The dead¬ 
start initialization code is overlayed iqqb 

by the command overlay and right screen 
buffers* 

The resident code runs from IDOB to approxi¬ 
mately S7DDB* It is followed by the code 
for primary initialization-, the DATE display 
and the left screen buffer* The primary 
initialization is executed once at deadstart 
and then the space is used to load in the 
command overlay flDt. which processes the DATE 
entry. The DATE display occupies the space 
that will be used for the right screen buf¬ 
fer* Because the resident code is assembled 
before the sizes of the overlays are knowni 
one must insert a BSS statement after the 57006 
primary initialization to ensure that the 
overlay SDt> does not overlap the DATE dis¬ 
play. 

The constraints upon the sizes of the code 
are s 

C[1DBUF■^CBUFSIZE•^•Z^«DBUFSIZE 7777B 
{resident code + buffers fit into the PPU> 
LENGTH {aDb> 330B 

{Code to process the date command does not 
overlap the DATE display.> 

Lli)A of DATE display FUA of Left screen buf¬ 
fer* 

In addition the size the display buffers 
should not exceed bOlB* The reason for the 


Direct 




Main Loop 
Tables 

Keyboard Entry 
Processing 

Resident Sub¬ 
routines Display^ 

Overlay Loader 

Resident Commands! 


Command Overlay 
Buffer 


Right Screen 
Buffer 


Left Screen 
Buffer 


Unused 
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constraint lies in the macros used to relocate the H type 
instructions. One who looks at the REOEF macro will see that 
the actual constraint is somewhat weaker. 

As implied in the above sentences! all the buffer sizes and 
origins are determined at assembly time and will change when 
DSD is modified. 

Programmers who are making extensive modifications to DSD 
should monitor the values of the appropriate symbols {listed 
on the next page> and make adjustments as necessary. 
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The following symbols are of interest to the programmer: 


CriDBUF 

CBUFSIZE 

DBUFSIZE 

LSBUF 

RSBUF 

ENDDSD 

SPLEFT 


End of resident DSDr origin of the command 
overlay buffer- 

Size of the command overlay buffer. 

w ^ w display overlay buffers. 

Origin of the left screen display overlay 
buffer. 

Origin of the right screen display overlay 
buffer. 

LUA+1 of DSD 

Space left for additions and patchs 


For the convenience of people modifying DSD these symbols 
and their values are listed right before the end card. 

h .E Making ones wav through the listing 

As a convenience to the author and people modifying DSD and 
DISf TITLE cards are spread through out the listing. The 
second page of the listing contains an approximate table 
of contents which may be used as a guide to people who are 
searching for any piece of code that falls in some particular 
subdivision. 


bj.B General Logic Flow 


DSD is loaded into PPT at deadstart time starting at location 
b* As its first order of business» it jumps to the initiali¬ 
zation routine located at the end of the resident code* Here 
it reads up various constants and pointers from central 
memory resident and stores them in its memory. After perform¬ 
ing the primary initializationr it loads the Z display in 
the left screen buffer, sets the '^DATE^ display for the 
right screen, sets the characters '^DATE'’ in the keyboard 
buffer and jumps to the main loop. After the operator has 
successfully entered the date, the B display is brought up 
on the right screen. 

The main loop consists of a series of return jumps to the 
main subroutines, followed by an ''entry point'' to the main 
loop. 

Ide will discuss this section of code first* 

Because certain functions which DSD has to perform may take 
longer than the time allotted for one pass through the 
master loop, provisions must be made to exit from the sub¬ 
routine to the main loop ito maintain the displays! and return 
to the subroutine* Subroutines which must do this ars the 
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overlay loaderf and in generalr those which interact with the 
system* 

For this purposer we introduce the ^incomplete system 
transaction flag^ -CISTlt a direct cell* and an entry point 
in the main loop; HDLOV; to save the return address. 

A subroutine which executes a RJil to the main loop CflDLOV} 
is responsible for first saving any information of interest 
in a safe places setting the wait system flag -CUSl if a 
message is to be displayed Ce.g. ^liJAIT SYSTEM DISK'’>( and 
then executing the return jump. 

The subroutine should also be written in such a way so that 
no harm will be done if one doesn''t return to it- This will 
happen if the clear or backspace key is depressed. The code 
is: 

MDL - BEGINNING OF THE MAIN LOOP 

Main Loop code 

LDD 1ST 

ZJN MDL loop if no incomplete transaction 
SOI 1ST 1ST = Q 

LJM M 

MILOV E«U M-1 

« AOD 1ST 1ST = 1 

UJN MDL loop 

Other things that should be noticed in connection with this 
are that the keyboard entry processor will accept only the 
clear or backspace key when 1ST is setr and that execution 
of the command will be terminated if they are depressed. 

Main loop subroutines. 

MDC - Monitor the display channel. 

MIC is called once per cycle* Its chief functions consist 
of ensuring that another PP program -Ce.g. IIS> mav obtain 
the display channel under appropriate conditionsjand calling 
AVC to adjust the display cycle time for constant intensity. 
DSD will drop the display channel if the svstom is not in 
step moder the display equipment is*assigned and the equip¬ 
ment hold flag is not set. 

AVC - Adjust display period. 

This subroutine is called from MDC to adjust the display 
period for constant intensity- This is also necessary to 
achieve a constant rate for messages that are flashed. The 
algorithm is read the milli-secmd clock that MTR updates, 
compare it to its value last time through the main loop, 
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delay by calling PDR to process any dayfile requests and 
loop until ED milli-seconds have passed- To prevent the 
display ■From disappearing in the case that flTR is deadi a 
count is set and the subroutine exits after 300 times. 

OOS - Display One Screen 

DOS is called twice from the main loopr once to display 
each screen- It gets its argument in the A register 
{screen index and function codel* Functions per'Formed by 
DOS are to activate the cahnnelr save the function code 
and the screen indexr output the name of the display and 
control point that it is relative tOr call the various 
subroutines in the screen display table {SDTBLl and disconnect 
the channel. 

On entry to any subroutine in SDTBLr the following condi¬ 
tions hold! the display channel is active and set for small 
character sizer SI holds the screen index {even or orddir 
BA holds the display overlay load address - 77B {for the dis¬ 
play overlaysli RCP holds the number of the control point 
that the display is relative to. 

SI and BA are read only outside of DOSr RCP may be reset 
by a display overlay. 

PDR - process dayfile requests- 

PDR is called from the main loop and main loop subroutines 
{DOSt AVC and HDCJ to enter stack requests for dayfile buf¬ 
fers that have to be dumped to disk. riTR processes dayfile 
message requests from the pool PP^'s- When a message cannot 
fit in the dayfile buffer. HTR sets bit 6 of byte 1 of the 
PP''s output register and lets the PP hang until DSD clears 
the bit. 

In PDRf DSD scans the output registers of the pool PPU-'s 
looking for dayfile functions {rn..DFn!}‘ that have the bit 
set. When it finds one it fills out the remainder of the 
dayfile buffer with words of the form VFD bO/SL+* {treated 
as no space by the printer driver! and attemp'ts to enter a 
stack request to have the buffer dumped. It is is success-- 
ful. then it resets the FET and clears the communica-bion bit. 
Note that one always dumps full PRUT'S and that I1TR will 
not resume processing of the dayfile request until the FNT 
status goes inactive* 
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b.M PKI - Process Keyboard Input 

PKI is called only from the main loop of DSD. Its function is to input 
characters from the keyboard and process them- 

As each character is received from the keyboardi it is checked for a 
match in the special character and command tables. Special characters! 
such as backspace-i are processed immediately while others are added to 
the string and the command tables are searched to see if the accumu¬ 
lated entry matches any of the formats in the command table. If there 
is no match-* then the last character inputted is deleted from the string 
and the message ''^ILLEGAL ENTRY® is flashed above the keyboard entry line- 
lilhen enough characters have been entered so that DSD recognizes the 
accumulated entry as unique-* then remaining portions of the entry will 
be filled in by the keyboard entry processor. 

Let us consider an example of the operator assigning a tape. 

The operator types in ''’5.® and DSD inputs the characters! notes that 
there are about MD commands which start off in this manner -Cit narrows 
its search range! and waits for further input. When the operator types 
in ®A®t DSD notes that there is now only one command in the table that 
is of the form n.A and that is ®n.ASSIGN uu.®-> so it fills in the letters 
®SSIGN®. If at this time the operator continues to type in the rest of 
the word ASSIGN-* then the other characters will be rejected because DSD 
is expecting the EST ordinal -Ca number! to be entered next. When the 
operator has entered two octal digits -Cat least one! DSD notes that the 
next character is a period-i which is ®a constant® and it fills it in. 
Since there are no more characters after this-i PKI sets the entry 
complete flag IKEC! and the keyboard echo line is displayed. Only when 
the entry is echoed may the operator press the carriage return or repeat 
mode key. When this is done-i the subroutine EXC will be entered to 
transfer control to appropriate command processor. The command 
processor will then check the command for legality and execute it if it 
is legal! otherwise it will jump to one of the error exits- 

ble will now discuss the subroutines in detail. 


PKI 


Inputs a character from the keyboard-* saves it In PC and checks the in¬ 
complete transaction flag. If it is set Cwe are in the process of load¬ 
ing a disk resident overlay or such! then it jumos to lEXC where we 
check for a clear or backspace typin-* either of which will terminate 
execution of the command. Otherwise we check the special character 
tables for a match. Note that one may define special first characters 
of higher priority then the normal first characters by storing an 
address into HP.FCT. This is presently done in the N display-* and the 
code in it illustrates the technique. In the case of display overlays-* 
the location will be set to zero when the display is overlaid. 

Note that if we find a match in the special character tablesn the sub¬ 
routine S8T immediately jumps to the appropriate processor* 
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If the character does not match any of those in the special character 
tables-! then ue check the central program mode flag -CKPri}! which is 
part of the ='*s key table. Uhen in central program modeT we simply 
add the character to the string since it was not a special character; 
check^for buffer overflow; and exit. In the case of the operator 
entering too many characters! we delete the character and set the in¬ 
valid entry flag -CKEII. 

Whenever KEI is set-i the message that starts at address in KEI will 
flashed above the keyboard entry line* The flag is cleared in DOS. 

The code starting at PICI3 is the heart of interpretative entry process¬ 
ing. It consists of checking the various flagsi searching the command 
format tablei filling in the entry if it is uniquei etc. 

The best way to form an understanding of the code is to find out how 
the direct cells are used and how the tables are structured. 

The keyboard buffer^K8B)holds the inputted characters! one per byte! 
right justified. It is always terminated by at least one zero byte. 

Its length should never exceed MT unless one makes T.CPOfl^ 172B and 
reassembles fITR! DSD and TDn. The direct cell KS {keyboard start! 
always holds the address of the keyboard buffer. KI points to first 
empty byte in buffer when we are not in PKI. In PKl! the pointer will 
point to the last character entered. 

KtIL! if non-zero! holds the address of a message to be displayed above 
and on the left of the keyboard entry. It is set when a command pro¬ 
cessor jumps to one of the error exits. KUn is the unique match flag. 
It will be set to address of the command format when there is a unique 
match. 

KEC is the keyboard entry complete flag and it will be set raon-zero 
when the keyboard entry is complete. It signifies that the entry is 
complete and that the operator may now depress the carriage return or 

repeat mode key. KEC is inspected in the keyboard display subroutine 

and if non-zero! the keyboard display is echoed. If in the process of 
executing a command! a command processor jumps to an error exit! KEC 
will be cleared. 

KST is the scan terminated flag and is set; along with KEC; to signify 
that the entry is complete and that the operator may append any 
messages that he wishes to the keyboard entry. 

^is the first match flag! when non—zero! it holds the address of 
the first match in the command format table. 

Temporaries used by the keyboard processing routines aret 

PC - holds the inputted character 

'^F'l -■ holds the number of the character in the command 

format that we are checking +1 fin CKE and UPO 
KTA - holds the starting address of the format that we 

are looking at. 

KflF - is the command match flag and is non-zero when 

we have found one match in the command format 
table - 
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KP - a local pointer to a character in the keyboard 
buffer {used In CKE-i PKI and UPC>. 


CKE - Check Keyboard Entry 


This subroutine is called by PKI to check for a match of a command 
format to the accumulated keyboard entry. It exits with {A> = D if 
the accumulated keyboard entry matches the command format. 

In all cases on exiti KP will point to the first unmatched charac¬ 
ter in the keyboard buffer and KFI will be set to the first 
unmatched character in the format string. Both of these quantities 
must be set if we wish to fill in the keyboard entry. The 
subroutine consists of a main control loop that compares characters^ 
and b sections of code for the special format characters. For 
example! when we encounter a 71B in the format! we go to COD where 
we check for an octal field of up to n octal digits where n is 
specified by the next character in the format. 

The subroutine UPC is called by the keyboard processing subroutines 
to unpack the next character from the format string. 


Special Character Processing 


Keys such as carriage return! backspace! etc. which require 
immediate action! are processed specially. They are checked for by 
calls to SBT from PKI. If a match is found in SBTt then it 
immediately jumps to the appropriate routine. In most cases! the 
processing is fairly simple and the comments in the listing should 
be sufficient. 


Command Execution 


All commands are executed by a return jump to EXC which decides 
what overlay the command is in! loads it if necessary! and jumps to 
the appropriate address. For control point commands! the control 
point number is saved in DCPN and the job name word read into T? - 
Cn+Bi and the first byte is left in the A register for testing by 
command processors. 

Unlike the display overlays! the command overlays are loaded at only 
one place. 
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They are structured as follows: 


The first byte of the overlay holds the 
address of the jump table. The second 
byte of the overlay holds the third 
letter of the name of the overlay left 
justified. After thisr code to execute 
the commands appearsi followed by the 
jump table-* which holds the address of 
the entry points for the commands in 
the overlay. 

When the protected mode option is 
selected^ there may be up to 321> 
commands in an overlay. The commands 
are identified in the command format table 
by an ordinal {number of the command in 
the overlay}-* and the name of the overlay 
that they are in. 

Command exits are listed on the page 
before EXC. 

Processors that cannot complete their 
function may save necessary information 
in a safe place and do a RJh to MDLOV. 

Subroutines-! etc* for command processing! 


ChCBUFj 


address of jump table 


name of overlay {left 
.justified} 


Code for the command 
processors 


|_A{^r^s_s tay^__ 


4s 


end of the overlay 


SCB - Sets the clear bit at the control point whose number is in 
DCPN. 


The next three subroutines have similar entry and exit conditions. 

C&R - Converts a string of octal digits from display code to a 
binary number. 

ACL - Assembles a string of characters left justified. At mosti 10 
characters will be assembled {packed 5 to a byte}. 

ASN - Assembles any string of characters between A and “1 left justi¬ 
fied. Up to IQ characters will be assembled. 

SriF - Send monitor function. This routine is equivalent to R.flTR in 
pp resident. It will wait approximately 1“} milliseconds for the 
function to be accepted before jumping to an error exit and posting 
the message fiTR DEA5. 

“ Similar to R.DCH in pp resident! except that no check is made 
to see if DSD has the channel it is dropping. 

CNB - Clear n bytes. A general subroutine to clear n contiguous 
bytes. This subroutine exists because occasionally a wayward PP will 
destroy the contents of location zero.*" To call this subroutine-i one 
should use the CNB macro {see listing for calling sequence}. Note 
that this subroutine uses T1 and T5 as temporary storage. 

**DSD no longer reads up the contents of zero to clear S bytes. 
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RCH - Request channel. Requests the channel whose number Is in the 
A register! for DSD-'s use. 

RPP - Requests that a PPL) be assigned. On entry! the A register 
holds the address of the formatted call. Note that this subroutine! 
like the mounties! always gets its PPU unless the operator hits the 
clear key. Safe places to store the formatted call are above lOOB 
and the block of 5 direct cells starting at PPCR. 

CCP - Change control point. This subroutine is called when BSD 
has to write into the storage of a control point. Its function is to 
change to the control point and stay there if the storage move flag 
is not^set. Otherwise! it switches back to C.P.O.^ does an RJtl to 
the mainloopi and repeats the above process. 

DFC - Dayfile command. This subroutine is called after a command 
has been successfully executed to place the command in the dayfile. 

The method is assemble the command lO characters per word! left 
justified and place it in DSD''s communication area starting at ItaMB. 

It then calls to pick up the message and sends it to the dayfile- 

One must use another PPn for if DSD asked hTR to send the message to 
the dayfile and the message caused a buffer dump....we would have a 
messy situation. 

CPP - Call PP. This is the only subroutine in DSD to call a PPU to 
a control point. On entry! it expects the name of the program in the 
A register in the format CAB -CASC is the name of the program>! 

PPCR + B - PPCR + 4 should hold any parameters that are to be passed 
to PP {bits Q“3S of its input register}. T? should hold the first 
byte of the job name {this will be true for control point commands} 
which should be zero if the PPU program is to be called! and DCPN 
should hold the control point number. Note that this subroutine will 
jump to an error exit and post the message ILLEGAL ENTRY if T^ is non¬ 
zero. Uhen one wishes to call a PPU to a control point regardless, 
one should clear T? first. Examples of calls to CPP can be found in 
flD3. 


Exits of interest in the resident command processor code are: 


DROPl - Set error flag to f.EROD {operator drop} at the control 
point whose number is in DCPN and exit. 

G02D “ Dayfile a control point command. 
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^ *■ S Adding a Command 

Before attempting to add a command> one should first read 
through certain parts of the listing, for convenience these 
are reproduced in Table 1 the command syntax and address 
tables I Table 2 the explanation of the syntax language* 

Table 3 the comments at the end of EXC and Table M the comments 
before command overlay. These tables occur in the listing* 
approximately on pages 23-25* 35*55*133. 

Ue now concern ourselves with two problems^ where to add 
the code and what to add. 

First of all* one should add an entry to the command syntax 
tables of the form 


PROTECT -Coptionall 

LNKSYn CnOTBL {SYNTAX comment 

Kindly maintain the tables in alphabetical order. Please avoid 
adding control point commands to the table that begin with 
the letters A or X- 

The PROTECT statement should be placed before the command 
if it is only to be used when the keyboard is unlocked- 

LNKSYil is the name of the link symbol that appears on the 
^COfiriAND'^ statement. Note that a period is appended to the 
front of it. SYNTAX is a string of characters which comp¬ 
rise the syntax of the command- Consider the following 
example - 

The format ^'ENPR .I'FNAPIE?** S IOPS .after micro 

substitution occurs becomes: ^ENPR* ^A >F* ^lOP^-^ 

It specifies that ^ the letters ENPR followed by^a comma 
followed by at least one and at most 4 octal digits followed 
by a comma* followed by a filename {one letter followed 
by up to b letters or numbers}* followed by a comma* 
followed by one of the letters 1*0 or P followed by a period” 
is the syntax of the command- 

Now comes the problem of where to add the code to execute 
the command. The choices are as follows: 

1. Resident code - If the command is sufficiently important 
or frequently used. 

E- One of the overlays - pick one. Try to pick one so that 
the overlay fiDT is presently unused. To create this 
overlay, one may place the following statements after 
the ENDC statement in flBfi: 


TCIL=I 
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TITLE a])=i 

connANOs ^ 

LNKSYtl COnnAND. 
code 

Ljn EXIT.NN 

ENDC 


USER COnnANDS lop suchl 
•Ccommand overlay header macro! 
■Ccommand entry point! 

Cnormal command exit! 

{end of command overlay! 


3. Part of the code in an overlay and part of the coda in 
IHH. If the code is very longr then this is the route 
to go- Examples of code are the EVICT commandr the n-X 
LFNAnE and the dnsk pack commands. 


After deciding the format of the entryf where the cods 
to execute the command should go< etc. we come to the 
problem of coding the command. 

The code to execute the commands will not be described 
here because in most cases it is rather short and sub- 
juect to change. One should note that the philosophy 
is to push as much code off to other routines as poss¬ 
ible • 


The macros ''CnPTBL'’ and ^COrinAND.^ are used to make entries 
in the command syntax tables and to link up the command table 
entry to the command entry point respectively. 

The essential parts {error checkingr etc- removed! of the 
macros are: 

HACRO Cf1DT8LrLNKSYn» SYNTAX 
VfD IE/.LNKSYfl + PnES. 

DIS ,$-*'SYNTAX-»- $ 

PnES. SET 0 

ENDn 

MACRO COMMAND.,LN<SYn 
LOCAL A 

M form LIN< INFO FOR RESIDENT COMMAND TABLE 

.“►LNKSYM EflU CMDINDEX^IDQB+CMDID Generate linkage symbol 
CMDINDEX SET CMDINDEX+1 Advance command index 
A E(3U « Form generated symbol wi th address 

of the entry point 

CMDTBL MICRO 1, t CMDTBLj^A save symbol in string 
ENDM 


Form link to command 
Form command syntax 
Clear protected mode 
switch 


As an example suppose the command n.BLANIi appears in overlay 
fiD3. Then a statement of the form* 

N.BLANK COMMAND. will precede the code to execute the command 
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In the resident command table the statement 

N.BLANK CnSTBL < .BLANK.} 
will appear- 

The above statement will expand to 

VF» la/.N.BLANK+PnES. 

DIS $4.BLANK.$ 

The symbol_ ^.N.BLANK'' will take on the value DlBb which 
says that it is the second command -CDl+ll in the overlay 
flDB since BtS = 1R3 in display code. 

This process is reversible. Suppose we wished to find out 
what overlay the code to execute the command ^n-X LFNAriEtFL. 
is in. 

The process is as follows: first we find out the name of 
the entry in the COtlflAND format table. It is '’N-XEA^. 

Ue then look up the value of the symbol ''•N-XECi!'' in the 
reference map. Because the first character of all these 
symbols is a period they will always be the last symbols 
listed in the reference map- In this case its value is 
□□MEB which means it is the first command in the command 
overlay ai>7 since ME-33 = 7- One may then skip to the over¬ 
lay flD7 using the title cards on the upper left hand corner 
of the page to find one''s way. 

In general the value of the symbol is formatted as 

VFB 1/PB.S/INDEX,b/OVERLAYIN 
where PB is the protected mode bit. 1 if the command is 
accessable only when the keyboard is unlockedn else it is Q. 

INDEX is the number of the command in the overlay-1, and for 
resident commands it ranges from 1-37. 

OVERLAY IN is 0 for resident commands else it holds the letter 
of the overlay in display code that the command is in. 
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TABLE II 


KEYBOARD ENTRY PROCESSING UORKS IN AN INTPRETATIVE 
HANNER. AS EACH CHARACTER IS ENTERED FROM THE CONSOLE 
IT IS CHECKED AGAINST THE ENTIRE LIST OF POSSIBLE COn- 
riANDS. IF NO MATCH IS FOUND-, THEN THE CHARACTER IS 
REJECTED AND THE MESSAGE ^ILLEGAL ENTRY/ IS FLASHED ON 
THE CONSOLE- IF A MATCH IS FOUND-, THEN THE CHARACTER IS 
ADDED TO THE STRING AND THE SEARCH RANGE NARROWED. WHEN 
ENOUGH CHARACTERS HAVE BEEN ENTERED SO THAT THE COMMAND 
IS UNIflUE THE KEYBOARD ENTRY ROUTINE FILLS IN THE REST 
OF THE STRING UP TO A SPECIAL FORMAT CHARACTER. 

TABLE OF SPECIAL FORMAT CHARACTERS AND THEIR MEANINGS 


706 T < 11-6-S > 

71B i < > 

758 ^ { IB-D > 

73B y -C ll-6-7> 

7MB - -c a-s > 


CONTROL POINT NUMBER l^C^N-CP 

AN OCTAL FIELD Oi C 6:7 

ALWAYS FOLLOWED BY A FIELD COUNT 
NOTE THAT EMBEDDED BLANKS ARE ALLOWED 

ALPHABETIC FIELD AiCfeZ 

ALWAYS FOLLOWED BY A FIELD COUNT 

ALPHA/NUMERIC FIELD AfeCtT 
ALWAYS FOLLOWED BY A FIELD COUNT 

INTERVAL DELIMETER ^ XY MEANS C IS LEGAL 

IF XiC4.Y 


7SB Z -C-lB-a-5 > SET DELIMETER X-XYZ2 MEANS C IS LEGAL 

IF C BELONGS TO THE SET 

IF A PERIOD -C . > OCCURS IN THE SET AND THEIR IS A MATCH 
WITH IT-, THEN THE ENTRY IS CONSIDERED COMPLETE AND THE 
REST OF THE FORMAT IS IGNORED. 


7bB { IB-a-b > TERMINATE SCAN - THE ENTRY IS UNIQUE AND 

ANY STRING MAY FOLLOW. 

USED FOR COMMANDS THAT MAY BE COMMENTED. 
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TABLE III 


MN ENTRY CONDITIONS FOR COHIIAND EXECUTION nm 


A> ALL COnriANDS - KEYBOARD ENTRY IN THE KEYBOARD BUFFER-, 

KBB-, AND KI POINTS PAST THE LAST 
CHARACTER OF THE COUHAND. 

B> SYSTEM COMMANDS - NO ADDITIONAL INFORMATION 

C> C.P. COMMANDS - CONTROL POINT NUMBER IN DCPNi T? - CM+B 

HOLDS THE JOB NAME WORD AND {A> = {T7> 
ON ENTRY TO THE COMMAND. 

■CT7> SHOULD BE PRESERVED IF YOU WISH TO CALL A PP PROGRAM TO 
AN EMPTY C.P. . FOR FURTHER INFO SEE THE CPP SUBROUTINE 
AND CODE IN SDB. 


h-2D 
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TABLE IV 


SOPIE NOTES ON THE COriNANO OVERLAYS 


A> FOR A DESCRIPTION OF GENERAL ENTRY CONDITIONS SEE THE 
COnnENTS AFTER SUBROUTINE j^EXCj^. 

B> BECAUSE SPACE IN THE COMHAND OVERLAYS IS LIMITED ONE 
SHOULD CODE CAREFULLY. THE DIRECT CELLS ARl USED AS 
FOLLOWS: 

1 - 21B ARE GENERAL TEMPORARIES 
IN PARTICULAR, MTR REQUESTS GO IN CM - CM+^■, 

AB - AB+4 IS USED AS AN ASSEMBLY BUFFER BY CDR-, ASN AND ACL. 
THE IMAGE OF A PP^S INPUT REGISTER GOES IN PPCR - PPCR+4. 
THESE S DIRECT CELLS WILL BE PRESERVED IF A SUBROUTINE 
THAT THE CODE CALLS DOES A RJM TO THE MAIN LOOP. 

C> IF THE CODE YOU ARE WRITING IS VERY LARGE-, REMEMBER THAT 
THERE IS PLENTY OF SPACE IN IMH. 

D> REMEMBER TO SAVE flUANTITIES OF INTEREST, ETC. IN A SAFE 
PLACE BEFORE CALLING A SUBROUTINE THAT DOES AN RJM TO THE 
MAIN LOOP. 

E> REMEMBER THAT OVERLAYS IN DSD ARE NOT RELOADED. KEEP THIS 
IN MIND WHEN YOU WRITE CODE THAT MODIFIES ITSELF. 

FI ABOVE ALL, KEEP IN MIND THAT THE KEYBOARD ENTRY ROUTINE 
HAS PERFORMED A COMPLETE SYNTAX CHECK ON THE COMMAND AND 
IN MOST CASES IT IS NOT NECESSARY TO CHECK FOR TERMINATING 
PERIODS, ETC. 


March, 
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t.b The Displays 


Before attempting to add a display one should read the documentation on 
DOSt the description of display overlay structure and the macros used 
{Pages 7M-78>*i the listing of the basic display subroutines and macros 
{pages and the macrosi most of which are used in the display 

overlays {Pages lO-lP}. 

First of all one should change LSDN at DSD.2M7-> which is the number of 
the last sequential display +1 t so that entries will be made in DOTBL to 
link the display upn the size of the =''s key table increased! etc. Next 
one should add a statement to the Z display table ZDMS that describes 
the display. 

Assume we are adding the P display. The basic skelton of the display 
consists of the followingi 

TITLE P DISPLAY - THE FRAflZEL TABLE 

DISOVL P {specifies start of the overlay named SDP 

DISHDT P, arguments {provides link info for the display 

loader> 

# 

SPACE 3 

94 

** P display initialization {optional} 

M 

IN TP 


code 

LJfl LDOVXX exit to the display loader 

A 

M 

w + - f<^ey processing -Coptionall 

M 

H 

H 

« advance table address by M gunillas 

PUKPP . code is entered here 


code 


Ljn 

RMKS 

exit to clear out the key 

zzm 

DS^p 

display entry/exit line 


code to execute the display 

■f 

Return 
Subroutines 

ODBUFFER OVBUF lOD !□ byte buffer for the use of the P display 

M 

DEND {end of display overlay card forms relocation tables! etc-} 
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On entry to a display overlay, the display channel has been functioned 
for small character size. RCP holds the number of the control point 
that the display is relative to. etc. The direct cells are used as 
follows: 

□ is not used 

1-alB •CTl-AB+i4> are used as genera] temporaries. They may be used 
freely to hold pointers, loop counts etc. Host of the subroutines that 
are called by the display overlays {i]S. DM. OS. CNB. Zb. etc.J use 
T1-T3 as temporary storage, so one should be careful in using them. 

RCP. as mentioned before holds the number of the control that 

the display is relative to* It may be stored into if the -■'s key is 
not defined for the display* 

The cycle counter. CC. is a IS bit counter that is incremented by one 
each time around the main loop* It is inspected by subroutines that 
flash and pulse messages. 

XC. holds the constant bODOB. an X coordinate of 0. and is read only. 

YC is usually used to hold a Y coordinate, but may be used for other 
purposes. 

RF. the repeat flag is used as index for loop counts {count down> by 
the macros RDLP and R5LT- 


Other direct cells which may be of Interest to the displays are: 


NCPS 

holds 

DFBA 

- holds 

FNTA 

- holds 

LFNT 

- holds 

TEST 

holds 

LEST 

- holds 


the number of control points + 1 

{FUA of the dayfile buffer area> /1D6 
FlilA+M of the file name table 
the LUA+l of the FNT 
the FlilA of the CST 
the Lli)A+l of the EST 


The following should be kept in mind when writing a display overlay. 

The size of the overlay should not exceed bDlB {change the redef 
macro if it does>. The display must be repainted approximately SO 
times a second, hence the time it takes to generate a display should 
not exceed 10-15 milli-seconds- This is ample time in most cases. 

A quick test of the speed of the display can be made by bringing it up 
on both screens. 

When using medium character size, the characters should be regenerated 
twice to achieve the same intensity as small character size. 


Harch. lib*! 
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b • 7 LOV - The overlay loader 

LOV is called by EXC and LDOV to load command and display overlays 
In essence it is similar to R-OVL in pp resident. Because the 
time it takes to load a disk resident overlay is longer than 
display cycle timet the subroutine is phased. 

The first phase consists of saving the load address, checking 
for overlay in DSD; we exit with A = D if it is already in. 
and searching the library for the overlay. In the library search 
portion we inspect the first SSL entries for the overlay we are 
looking for. Putting a maximum limit on the search prevents 
DSD from hanging up in case the library pointer has been clobb- 
ered. If the overlay is CM resident, then we read it up and 
exit. for overlays that reside on a mass storage device we 
enter phase 5 of the overlay loading process. This consists 
of calling TDM to control point zero to load the overlay for us. 
and waiting until it is ready to transmit. TDM will signal 
that it is ready to transmit the overlay by clearing the second 
byte of its input register. After it does this, it will wait 
approximately 120 milliseconds -CL cycles around DSD''s loop} 
for a response. If there is no response from DSD in that time 
CDSD sets byte 2 to a 11 then it drops the ppu* 

Phase three of the overlay loader consists of setting up the 
display channel for TDM to transmit the overlay across it. wait¬ 
ing for TDM to start transmission and finally, inputting the 
overlay• 

One should note that in reading the overlay in from CM or 
inputting the overlay across channel the first S bytes of the 
overlay are dropped* This is because they contain header 
information which is duplicated in the second byte of the 
overlay. 

Also note that the overlays are not checksummed after they are 
read in. The reasons for not putting this feature in were: 
in the case of disk resident overlays it is unnecessary; in the 
case of CM resident overlays it doesn'*t really do any good 
since one will have to deadstart if the message ''6DX - BAD CHKSUM'' 
appeared on the console; and finally it would take approximately 
IDQB bytes of space to do the checksum properly. 

LDOV “ The display overlay loader 

LDOV is called to load and link up display overlays to DSD. 

The parts of the routines are: 

a. look up and save the name of the overlay that the display 
is in along with the ordinal to the link table. 

b. delink any table extensions, clear address of +- key routine, 
etc. 

c. call LDOV to load the overlay 

d. If the overlay has just been loaded into DSD-'s memory, then 
relocate it- 

e* Link the display to DSD* This consists of storing the 

addresses of the entry point in the SDTBL. the address of 

March-i ITLT 
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the +- key routine in PPlKAr the name of the display in 
LSX or RST. 

f. Finallyt if the display is to be initializedr then we jump 
to the initialization routine and exit. 

The two tables involved in loading a display overlay are OOTBLr 
which tells us the ordinal to th6 link table and the name of 
the overlay that the display is in. and the link table. Suppose 
we wish to bring the J display. At LOTBL IRJ we find that 
it is in the overlay flOA and the ordinal to the link table is 
IBB. After loading the overlay we extract the information from 
the link table which starts at the load address + IBB. The 
information there is 

vfd IB/name of display -Conly if ='*s key defined} 
vfd IB/ordinal to +- key routine or □ if none 
vfd IB/ordial to address of entry point 
vfd IB/ordinal to address of initialization routine 
or zero 

b,T The A Display 

The A display is a display of the system or control point 
dayfile buffers. First we will discuss the structure of buffers 
and FETs. The dayfile buffers are handled in a linear fashion 
by MTR who inserts messages at IN if there is room. When 
there is no room or a buffer dump is called for. MTR calls DSD 
to dump the buffer. DSD, before entering_a stack request 
to dump the buffer, fills the unused portion of the buffer 
from IN to LirilT—1 with words of the form bO/BL+ l . which are 
treated as a '^no space'^ code by the printers- 

The FETs for the dayfile buffers are one word affairs and are 
structured as follows! 1E/IN“FIRST. lB/LiniT”FIRST. 13/FIRST* 
T-DFB, IB/LiniT ON LAST DUtlP - FIRST. lE/D. 

The reason for not keeping relative quantities and not the 
absolute quantities in the FET is that T■DFB may be greater 
than ID.DDDB. The limit on the last dump is simply the value 
of IN at the time the buffer is dumped. 


FIRST -^ 

NEW MESSAGES // 

// '■ ^ 

IN -^ 



OLD messages//^' “ ' 

LiniT ON-♦ 

+ 

LAST DUnP 

+ 

LiniT- -- 

+ 
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To display the contents of the buffer in such a fashion 
that the older messages are displayed at the top of the screen 
and the newer messages at the bottom, one starts at INi skips 
past a partial message and calls that ''out''. One then displays 
the contents of the buffer from OUT to LIMIT {until we hit a 
word of the form !aD/EL+ a } and from FIRST to IN or the bottom 
of the screen. That is* if we hit the bottom of the screen before 
we hit OUT* then we ''roll the display®. The rolling effect 
is achieved by advancing OUT towards LIMIT by skipping past 
a message and moving the Y coordinate down a line. During the 
next 10 times through the display the Y coordinate is advanced 
by 1 until we reach the top. The rolling process continues 
until we hit IN before we reach the bottom of the screen. 

The ^bottom of the screen® is determined during deadstart initia* 
lization from the size of the buffer. The formula is Top Y 
coordinate - Bottom = Buffer size h lD/7, where 7 is the maximum 
number of words in a message. 

One should note that since MTR can add messages to the display 
at a rate faster than DSD can roil the display, the display 
may temporarily ''disappear'' under heavy dayfile message pro¬ 
cessing loads. 


The B Display 


This display shows the statuses of all the control points. The 
essence of the display is to read up information from the control 
point areas* convert it and display it. For each control point 
b lines of information are displayed* except for JANUS control 
points* which may have up to 7 lines of information displayed. 

The specs for the display are given in the listing and here we 
restrict ourselves to a discussion of the fourth and fifth 
lines of the display which are the B display message lines. 
liJords C.CPDFM - U.CPDFM+7 {3QB - 37B> of the control point area. 
The first line is S words long and the second 3. Dayfile mess¬ 
ages that go to the B display will be sent to this area* 
starting at U.CPDFM- 

The second message line is usually used by the PPU'‘s to send 
trouble messages to the operator* such as: ''MT XX REJECT®* 

''WAIT - DISK FULL®* etc. 

Messages going to either of the lines will be flashed* pulsed or 
intensified if the pause bit at the control point is set or the 
first character of the message is a $. 


The Central Memory Displays 


The central memory display are the simplest of the displays. 
They consist of H matrices of fl lines* where each line consists 
of the relative address of the word* the contents of the word 
{in octall and the BCD equivalent. 
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The main subroutine that drives all the 
display consists of giving the address 
word format subroutine and the address 
the words to be displayedf followed by 


displays is DCII. Each 
of the octal conversion 
of the table that gives 
RJM Dcn. 


The format of the address table is vfd BM/addresS( 2^/add^essF 
SM/addresSi 2M/address* 


The E and F displays are rather simple and will not be discussed 
here. 


The H Display 

The H display shows the files according to their type with some 
of their basic attributes of interest listed. For input files 
the time limit» field length* and priority is shown. For out¬ 
put files* the file size fin sectors! and the job priority is 
shown. 

At the top of the screen the available FNT count and the amount 
of space allotted for RBT storage is shown. 

The code consists of setting up the direct cells* outputting 
the headers* looping throjgh the FNT for files of the appropriate 
type and displaying the information until both columns are full. 


The K Display 


For a non-empty control point* with non-zero priority the K 
display is similar to B display for single control point except 
that the processor status is not displayed and the next BD 
upcoming control cards are displayed. For all other cases the 
FUA and LUA+1 of some of the system tables will be displayed. 
This display is table driven and the macro CHRPD is used to 
generate the table. 

The format of the table is M bytes per entry where each entry 

is of the form 

yfd SM/Name in display code 

vfd b/byte address of the pointer after executing a CRD CM 
instruction 

vfd b/P.Name address of word that holds the pointer 
vfd b/l+LUA flag -CLIiJA flag = □ if no LWA is to be displayed! 
vfd b/shift count for positioning pointers that are larger than 
12 bits. 

The arguments to the macro are 

Name - the name of the table 

SIZE - the size of the pointer in bits 

LUAF - if the LUA+1 of the table is to be dis 

played 


-TEST! 

< 12 ! 

<1! 


Harchi IRbl 
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PDSTFF “ Non blank if there is no C- symbol in SCPTEXT 
for the pointer. The value should be that of 
the C- symbol, if it existed. 


The L Display - Central Programmable 


The L display is the left tube central programmable display. 
When it is on the left screen it may be attached to a control 
point that is formatted properly so that information from a 
buffer in the control points field length may be displayed 
and the operator may communicate with a CPU program at the con 

trol point. 

The specifications are as follows: 

For the control point to be considered as an L display control 
point RA+7DB must contain flRLDISPLAY. If this is so_then DSD 
will assume that the information to be displayed begins at 
RA+llDB. that RA +1DQB-RA+lQhB. is a communication butter tor 
messages from the console and when the control point is no 
being moved byte 4 of RA-107B will hold a 12 bit cycle ^o^nt 
that is updated by DSD once each time through its master loop 
{approximately times per secondl- 

The reasons for placing the buffers in fixed places is 
simplicity and speed on DSD‘,s part- Programmers should note 
libelJd common gets loaded starting at RA*1QDB and the 
Itltement COnnON/DSDCOMn/KEYBC{?>.ICYCLE,DISBUF{4fi4 will 
create the appropriate buffers- 

For the purposes of display the information in the buffer 
is broken up into lines. Each line consists of information 
such as length of the line in words, character size to be used 
number of times the line is to be displayed per cycle, coor 
dinates and characters. 


The format of a line is: 

b/word count {^Ib. D or >ab acts as a buffer terminator! 
3/character size {□» 1 or 2 for small, medium or large! 
3/repeat count fif 0. then 1 is assumed! 


The rest of the line is interpreted as coordinates and BCD 
data, which may appear in any order. Note that the central 
program is responsible for supplying coordir^es. One may break 
the display up into a grid that consists of Si lines and _ 

columns. The spacing between columns is fi * nd below 

area that the central program may use li»esabove line 4 and beio 

line Mfi. 
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The following COIIPASS code illustrates two sample lines. 

+ vfd b/ENDLI-** ( b/0 1 12/b00D8 info byte and x coordinate 
vfd 1H/700GB+47*«1D Y coordinater line 47 
I>IS t** This should appear on line 47 m 

ENDLI EOU M 

+ vfd b/ENDLE-Mb/Q.ia/bOODS 
1S/70DQB+20 Line E 
-mFORMAT ERRORm 

ENOLH ECiU M 


A CPU program which wishes to communicate with DSD should have 
a main loop which may be flow charted as follows: 



Uhen the L display is at appropriate control point the message 
''PROGRAn HODE^ will appear above the keyboard entry buffer. 

In program mode DSD doesn''t do any interpretive keyboard 
processing. The characters are collected and when the carriage 
return key is depressed the accumulated entry is packed ID 
characters per word» left justified and transferred to the central 
program starting at RA+IDQB. Other keys which will be inter¬ 
pret ated in central program mode are the and —r backspacer 
spacei =•'3 and ** key. 


Thp tl Di splay 

This is a display of the first four words of each PPU-'s communi¬ 
cation area. To the right of the display of the PPU'‘s output 
register is the last monitor function that the PPU issued. 

In the case that the PPU issued a bad MTR function the message 
'^PP HUNG^ is flashed. The PI display, like most other displays 
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is relatively simple and will not be discussed any further 
here. 

The N Display 

The N display formats and displays the DSO/IDP communication 
area* IDP is a separate PPU programi along with some mods 
to CriR and STL which permit the debugging of PPU programs on 
line* After a program is brought under the control of the 
debugging processor CIDP? its activity may be monitored from 
the N display. A PPL) program under debug control may be 
stepped one instruction at a time-t run free with central 
write stops-i breakpoints! etc* set. Note that IDP is not a 
standard product and it and associated mods and documentation 
may be obtained through VIH. 


The 0 Display 

The display part of the 0 display is similar to the Z display. 
The bulk of the 0 display consists of checking the keyboard 
entry processing flags to see if the operator is typing in 
a command of the format n^^nnn and if he is^filling in the 
appropriate message from the operator message table in the 
display. 

One may wonder why the messages were put in a display instead 
of the command table* The answers are that the command table 
was getting rather large and that some installations might 
wish to disregard the display and would be annoyed by the 
space that it took up in the resident code. 


The Y Display 

The Y display is a decoding of the command format tables 
into a form that is displayable and hopefully understand¬ 
able. The code consists of outputting the information which 
explains the format syntax and looping through the command 
table to display the commands. Since the command table 
contains more than MO formats-i the display is split up into 
two parts! control point command display and the system com¬ 
mand display. One may toggle between the two by depressing 
the equals key. 

DOC is the subroutine coded to format and display an entry 
in the command format table. The algorithm is unpack the 
format into YBUFi one character per bytei right justified! 
and then interpret! format and output the appropriate in¬ 
formation on a character by character basis- 

One should note that this display need not be updated when 
adding new commands unless one adds a format that allows a 
string of more than ID letters! or letters or numbers. 
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The Z Display 

The Z display is the simplest of the displays. The only 
thing that should be explicitly mentioned is that one should 
remember to update the description table when adding a new 
display. 


narchi nb*! 
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b . 1 □ Some Notes on the Haeros 


Macros are used rather extensively in DSD to group together 
common and related sequences of operations, to perform dirty 
work for the programmer and to bring out any underlying 
structures in the code- Most of the macros are rather short 
and some of them and the techniques involved will be described 
here. 

PPMAC is a general collection of macros that are basic to 
PPU programming. The LDK and ADK macros are basic to most 
of the collection* The LDK macro will generate a LDC. LDN 
or LCN Instruction depending on the value of its argument, 
which may be an address expression. The cases are as follows: 
if one of the elements of the argument is not defined then 
we generate and LDC instruction, otherwise we force COMPASS 
to evaluate the address expression by the statement X SET A 
{remember that COMPASS does straight text substitution of 
its arguments! so that statements of the form LDC ZR will be 
handled properly. If the argument is negative and |x| IQDB 
we generate LCN |x|. If the argument is positive and 
X 1008 we generate LDN X. In all other cases an LDC 
instruction is generated. The ADK macro is similar, except 
that if [X|=0 then we do not generate any code* One should 
also note that in the case the argument is negative we per¬ 
form the following operation: 

X SET A and X SET -X. 

To see why this is necessary consider the evaluation of the 
macro 

ADK -ID+S 

X SET A yields X= -S 

X SET -X yields X* S as expected. 

The EENM macro is similar to the ENM in SCPTEXT except that 
the exit point always has an X appended to it and the symbol 
RETLOC^ is set to address of the exit line. One may exit 
from the subroutine by using the RETURN macro which generates 
a UJK RETLOC^. If the RETURN macro is given a non-blank 
argument then the symbol RETL0C$ will be reset to the address 
of the generated Jump. This allows the programmer to save 
space by returning to the entry point via a series of short 
Jumps instead of a long Jump. 

Other macros that are local to the displays and are of interest 
are: 

XC 
YC 
OUTC 
OUTIilN 
CNB 
CCS 

CALLMTR 
INOa 


generate VFD for an X coordinate 

generate VFD for a Y coordinate 

output a constant {LDKtOAN! 

output N bytes {LDK.OAMl 

call CNB subroutine to clear n bytes 

call CCS subroutine 

call SMF to send a MTR function 

convert 3 octal digits and display them 
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IN04 convert 4 octal 
02 call subroutine 
04 call subroutine 


digits and display them 

02 

04 


Resident DSD-Subroutines 
(l ain Loop 

DOS Display One Screen 

HDC Monitor Display channel 

AVC Adjust Display Cycle Times 

PDR Process Dayfile Requests 

LSH Left Screen Header Display 

KBD Keyboard Display 

CPOMD Control Point Zero Message Display 

RSH Right Screen Header Display 


System Interaction and Utility 

SflF Send Mtr Function 

DCH Drop channel 

RPP Request a PPU -CM-RPPl 

CCP Change Control Point 

CNB Clear N Bytes 

RCH Request a Channel 

DFC Dayfile a Command 


R esident Display Subroutines 


DOL 

oe 

04 

OS 

DSD4 

Z2 

Z2S 

ZL 

CCS 

AID 

DLB 

DIT 


display one line 

display 2 octal digits 

display 4 octal digits 

display 5 octal digits 

display 5 groups of 4 octal digits 

display 5 octal digits with zero suppression 

display 2 octal digits with zero suppression 

display t octal digits with zero suppression 

change charcter size 

display word in BCD 

display linear buffer Cone character/byte> 
display internal text C^'DIS^ format! 


Keyboard Input Processing 

PKI Process Keyboard Input 

SBT Search Binary Table 

UPC Unpack Character from format string 

CKE Check Keyboard Entry for a match against command 

format table entry 
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The following are ^subroutines'' of CKE 

CCPN check for control point number 

COD check for octal digits 

CLET check for letters 

CLOD check for letters or digits 

CCI check character interval 

CFS check finite set 

SST set scan termination 


Command Execution 


LOV overlay loader {similar to R.0VL> 

LDOV Load and Link display overlay 

EXC Command Execution Control Routine 

CPP Call a PP to an unoccupied C-P. or C-P.O. 

SCB Set the clean bit 

CDR Convert octal digits 

ACL Assemble characters left justified 

ASN Assemble Name left justified. 


Command Exits 


EXIT.NN normal command exit 
EXIT.FE FORHAT ERROR MESSAGE exit 
EXIT-IE ILLEGAL ENTRY MESSAGE 
EXIT.EE general ERROR EXIT 

LDC ERROR MSG LJM EXIT.EE 
EXIT-DFC exit for CP G-ommands that are to be dayfiled 
EXIT-DFS exit for System Commands that are to be dayfiled 
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Tables in OSD Cin order of appearanceT 


The following is a list of tables in DSD and a short descrip* 
tion of the Table- 

for information pertaining to this format of the table one should 
consult a current listing- 


SDTBL 

EtSKTBL 

CHDTBL 

ODTBL 

FCT 

SCT 

RBSTBL 

TEF 

L ST , R ST 
CATFD 

DBATBL 

DOTBL 

RCTBL 

ICTBL 


screen display address table 
“••s key table 

command format and address table 
octal digit conversion table 
first character table 
special character table 
right blank display change table 

command address table extention flag □ no extention* 

l=extention to left screen display* etc- 

left and right screen display names 

holds address of command address jump table for 

commands residing in an overlay CTEFj^D} 

display buffer address table 

display to overlay table 

resident command address table 

table of installation defined illegal channels 

-CinaDll 


Locations of Inter est 


LS.RS 
DSEflA 
M TCST 
PRKA 
HP.FCT 
STPTBL 
KRBI 
CDGLPN 

HPRA 

CnDCA 

** SEC 

*• TRttS 


left and right screen display address 
address of display eqpt entry 
holds T.CST 

address of +- key routine 

address of first character table of higher priority 
set to bBB when in step mode* else □ 
right blank display change index 

holds an LPN X instruction where X= machine size 
-I/IDODOB i.e. X * 7 for a 32K machine 
holds address of H display parameter change routine 
address 

holds address of routine to change the C display 
parameters. 

holds L.R(3S/B-N.DEVICE i.e the number of slots 
in the ps^juiest stack 
holds T.RflS/2 + N.DEVICE 


** Set at deadstart time- 
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t). 14 The Macros in PPM AC 

On the following pages is a description of the macros used 
in DSD and DIS. The first part is a description of the macros 
in the COflDECK PPMAC- One should note that it is a general 
macro collection for PPU programming and the macros in 
section four are not used by the display drivers or they 
are later redefined in DSD and DIS. 

The macros are listed in order of their appearance in DSDt 
and one who wishes to understand them should use the docu¬ 
mentation as an aid to the supplement information in the 
listing. 
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Hacros in PPflAC 


LD K ADREXPR ** 

General LDK macro* Does LDCi LDN on LCN depending on the value 
of i ts argumentT which may be any valid address expression- 

ADK ADREXPR 

General ASK macro* Generates an ADCt ADNr SBN or no code 
depending on the value of its argument^ which may be an address 
expression* If any symbol in the address expression is 
undefined then the macro will generate an ADC instruction. 

SBK ADREXPR 


General macro to generate and ADK --CADREXPRl* All symbols 
in ADREXPR must be defined* 

RAL LQC ** 


riacro to generate an RAD LOC or RAM LOC depending on the value 
of LOC- If LOC is not yet defined then it will generate an 
RAM LOC* 

STORE LOC 

Stores the lower 12 bits of the A register in LOC* 

LOAD LOC N 


Sets the value of the A register to the contents of LOC* 
That isp it geneates an LDD LOC or an LDM LOC depending 
on the value of LOC* 

PLUS LOC H 


Adds the contents of LOC to the A register* That isr it 
generates an ADD LOC or an ADM LOC* 

SUB LOC H 

Subtracts the contents of LOC from the A register* Generates 
an SBD LOC or SBM LOC* 

EFAin MAUF 

Generates the entry and exit lines for a subroutine* 

»* If the argument is not yet defined then the appropriate C or 
M type instruction will be generated. 
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Example 



EENM 

ABC generates 

ABCX 

LJM 

□ 

ABC 

E(3U 

M-l 

RETLC0$ 

SET 

ABCX 

return 

1 



Generates code to exit from a subroutine whose entry/exit 
ine was formed by using the EENM macro. If the S parameter 
is present then the subroutine exit point will be reset to 
the address of the generated code 

For example the statement 

RETURN S generates 

ASVnBOL EflU M 

UJK RETL0C$ 

RETLOC^ SET ASYhBOL 

while the statement 
RETURN generates 
UJK RETL0C$ 

CALL NAHE.LOC 

Calls subroutine NAME after loading the contents of LOC in 
the A register i.e. LOAD LOC followed by RJH NAPIE 

CALLC NAHE.ADREXPR 


Generates an LDK ADREXPR followed by an RJfl NAME . 
SETC ADREXPR,LOC 

Generates an LDK ADREXPR followed by a STORE LOC 
JlAVE _ LOCL.Lorg 

Moves the contents of LOCI to L0C2. 

AMBLOCirLOCB 


Forms the difference CLOCll - ELOCSJ in the A register. 
RAC ADREXPR,LOC 


Generates an LDK ADREXPR , RAL LOC 
For example: RAC -IDDfYC will generate 
LCN -IDD, RAD YC 
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LRAL LOClrLOCS 


Gensrates an LOAD LOCI "Followed by RAL LOCE 
LAT T-LOC,ADR»INS 


Load and test location- Genetates an 
LOAD LOC 

INS if present 

TJN ADR 

For example LAT Z . Cfl .XYZ , CLPN 11 
generates Ldd CN 

LPN 1 
ZJN XYZ 

CLEAR DCELL or CLEAR CDCELLlr.DCELLLl 


Use to clear {zero! a bunch of direct cells that are not 
contigious in storage. 

For example CLEAR {CMrCtl+m generates 
LDN a 
STD cn 
STD Cn-'M 

GEN INS.LOCX.. .. ,L0Cb 


A recursive macro that generates INS LOCi for i=lt---(t> 
The number of arguments may be between 1 and b- 


The following macros in PPHAC are not used by the display 
driversr or are redefined before they are used- They are 
ment to be used by programs executed in the Pool PPU''s 

CALLflTR FUNC 
Generates LDN fl.FUNC 
Rjn R-riTR 

For example CALLMTR DPP generates 
LDN n.DPP 
RJn R.riTR 

DAYFn nSGADRrFLAGS 


Used to call R.DFD to generate a dayfile message- FLAGS is 
a number between D and ?7B or may be absent- MSGADR is the 
address of a message in display code- 

The macro generates 

LDC nSGADR+FLAGSKlDOD-QB 
Rjn R-Dfn 
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RCH Nun 
DCH Nun 

Thess two macros are used to request and drop a channel- 

If the symbol CH.NUH is defined then the macros will generate 
LDN CH.NUM 
Rjn R.RCH or R.DCH 

else they will generate 
LDD NUn 
RJn R.RCH 

For example DCH FST will expand to 
LDN CH-FST 
Rjn R.DCH 

OVERLAY NAI1-.LA 


This macro may be used to load an overlay in one of the pool 
PPU-'s 

The code generated is 

LDC 3R-^nNA 

STD D.Tb store 

SHN -b name of □ver'J'ay 

STD D.T7 

followed by 

LDC LA 

Rjn R.OVL 

if the load address is giveni else 
LJn R.OVLJ 

FCPA LOC.SAVE 


This macro extracts the control point number from LOCr 
forms the C.P. address in the A register and stores it 
in the direct cell SAVE if the macro is given a first 
argument■ 

FCA L0C,n 


This macro forms an Ifl bit address in the A register which 
is assumed to be stored right justified in LOC-1 and LOC 
The second argument should be present if the upper b bits 
of LOC are known to be zero. 

FCAL LOCiC 


This macro forms an IS bit address in the A register which 
is assumed to be stored left justified in LOC-1 and LOC. The 
second argument should be none zero if the lower b bits of 
LOC may be nonzero- 
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SCAE4 LOC 


Saves the contents of the A register right justi'Fied in LOC 
and LOC+1 

SCA42 LOC 


Save the contents of the A register in LOC and LOC+1 in the 

format IS/ABrlE/C if LA>=ABC 

originally 

RSC4g LOC 


The opposite of SCA42 
BJCU_ AEjS. 

A macro for auto breaking of a PPU program that is to be 
debugged under the control of IDP- 

READD CHArLOC 
WRITED CHA.LOC 


Macros to read and write from LOC in PP memory to a central 
memory address CMA. 

They generate 
LDK CMA 

CRO LOC or CUD LOC 

READI LOClfLOCa and URITEI L0C1>L0CB 


These macros generate 


LOAD LOC 

CRD L0C2 or CUD L0C2 

READAP A.ADREXPRrPPMEM 


Generates 

LOAD A ommitted if A is not present 

ADK ADREXPR 
CRD PPMEM 

The same goes for URITEAP* 
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The following macros are local to BSD and DIS 
ADDR A,B 


Generates a VFD la/A-, and VFD 12/B if the second argument 
is present* 

OUTti! LOC 


Outputs the contents of LOC i*e. LOAD LOC? OAN CH 
OUTUN NrLOC 


Output N bytes starting at LOC 
i-e- LDK N. OAH LOCiCH 

OUTC ADREXPR 


Output a constant 
LDK ADREXPR, OAN CH 

IPC 


Input a character from the keyboard to the A register 
FCN 7DS0B»CH function channel for input 
AN CHfIAN CH 1 DCN Ch 

CPAF ORD.CPN 


Control Point Address function 

CPN is the name of a direct cell holding the control point 

numberr ORD is the name of a U point symbol in the C*P- area. 

CPAF CPSTAT.DCPN generates 

LDD DCPN 

SHN 7 

ADK IjJ.CPSTAT 

LDPP NAH 


Used to load the name of a PPU routine -CABO in the A 
register in the format CAB 

LTDFB 


Forms the value of T.DFB in the A register 
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RDLP COUNT 


Used to form the prologue for a short count down loop 
Generates 

SETC COUNT,RF 
RDL.S SET M 

RSLT 


Generates the terminating code for a loop started by RDLP. 
Generates 

SOD RF 
NJN RDL.S 

XC N 


This macro forms an X coordinate for column N as a VFD state¬ 
ment • 

YC N 


Forms a VFD for a Y coordinate on line N of the display- 
OUTXC N 


Generates code to output on X coordinate for Column N- 
OUTYC N 


Generates code to output a Y coordinate for line N- 
CNB FUA.UC 


Generates code to call the subroutine CNB to clear ItIC bytes 
starting at FUA■ The code generated by the macro is: 

LDK FldA--ljJC*«lDOQOB 
ROn CNB 

If the second argument is ommitted then the subroutine will 
clear 5 bytes. 


The following macros are used to generate code for the 
overlay prologue and termination, 

OVER LAY NAH,ORIGIN 


This macro forms a segment call for an overlay with name 
NAN origined at ORGIN, It also saves the start of the 
overlay in ORG, and the third character of the name in the 
micro OVLID- 
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ENDO 


This macro is used to total up the size of the overlay and 
increase the value of BUFSIZE if necessary- 

COtiriANDS N 


This macro generates the prologue for a command overlay- 
N is a number between □ and The number Q is for the 
resident commands. Actions taken by this macro are to zero 
the number of commands in the overlay CMSINOEXr call the 
OVERLAY macro if N □ to form a segment and to generate 
the first two bytes of the overlay which are of the form 
VFD IB/I• flDNr IS/IL-^N- The symbol I.6DN points to the 
Jump table at the end of the overlay- The second byte 
holds the name of the overlay and is used by the overlay 
loader LOV- The macro also initializes the micro CfIDTBL 
to the empty micro- 

ENDC 


This macro is used to end a command overlay- First code for 
a Jump table is formed by calling the GENTAB macro then the 
overlay size is determined by calling the ENDO macro- 

GENTAB lInniC 


This macro generates an address table from the values of the 
symbols in the micro string niC- MIC is assummed to consist 
of a string of fl character symbols '^invented'*' by COMPASS- 11 
is the number of symbols in the string- The macro extracts 
the symbols from MIC and forms a VFD 12/SYM for each symbol 
extracted- 

LNKSYM COMMAND . 

This macro generates the information necessary to link up 
the code for a command with its entry point in the command 
table- It is discussed in the section on adding commands 

LNKSYM CMDTBL I SYNTAX! 


This macro is used to generate entries in command syntax 
table- It is discussed in the section on adding commands- 

PROTECT 

This macro should be placed before entries in the command 
format table that the installation wishes to protect- The 
effect of the macro is to set the protected mode switch for 
the command- 
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INOE TEMP 


This macro generate the code to convert two octal digits 
{right justified in the A register! to display code and 
output them* TEUP is the name of a direct cell that the 
generated code stores into* 

IN04 LOC 


Generates the code to convert 4 octal digits to display 
code* The source of the digits is the direct cell LOC or 
if no argument is given then the lower IS bits of the A 
register* The macro uses Ti and T2 as temporaries* 

□a LOC 
04 LOC 


Call subroutine QS or 04 after loading the contents of 
LOC in the A register if it is specified.. The subroutines 
□a and 04 will convert octal digits to display code and 
output them- 

CCS W 


This macro is used to call the subroutine CCS to change 
the character size- N may be 0, 1 or E for small, medium 
or large character size* 


The following macros are used in the display overlays* 

DISOVL_N 


This macro is placed at the beginning of a display overlay- 
It generates the information necessary to initialize the 
overlay- This consists of a SEGMENT card origining the 
overlay at 77B, a pointer to the relocation table 
{VFD IS/I.fiDN-77B! and the name of the overlay, VPS lE/ILN* 

The macro also initializes the number of relocated commands 
NRAE* and the micro holding the generated symbols* 

DEND 


This macro is placed at the end of a display overlay* It 
calls the macro GENTAB to build a relocation table, terminates 
it with a zero byte and calls the ENDO macro to compute the 
size of the overlay* 
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DISHDT NrEKT.PnKArlNIA 


This macro generates information that links the display 
overlay to resident ESD- One of these should appear right 
after the OISOVL card for each display that will be in the 
overlay. 

In addition to generating the symbol -DIS-^N which is used 
in the UOTBL to tell DSL what overlay the display is in 
it generates a M byte table with the following information: 

VFD or □ if EKT is missing 

VFD ia/PnKA-77B or D if PtIKA no specified 

VFD 12/DSNN-77B ordinal to the subroutine entry point 

VFD Ji2/INIA-77B or Q if no initialization routine is speci¬ 

fied. 

LOC OVBUF SIZE 


This macro is used instead of a BSS statement to generate 
a buffer in a display overlay. Before generating a BSSZ 
for the buffer it checks the size of the overlay against the 
size of previously assembled overlays. If the total size 
of this overlay is smaller then it doesn"*t assemble a BSSZ- 

It also checks the size of the buffer against the size of 
the relocation table. If the size of the buffer is smaller 
than the size of the relocation table* then their is no need 
to allocate seperate storage for the buffer. 

REDEF OPCODE 


This macro is used to define macros which redefine the M 
type instructions in the display overlays so that they put 
out relocation information when necessary. 

ARAT TBL-,SYn 


This macro is used to generate a symbol whose value is the 
present value of the position counter -iODB and add it to the 
micro TBL and increment the value of SYfl by 1. It is called 
by the redefined H type instructions when they have to add 
a symbol to the relocation table. 


The macros LDCR* ADCR»LPCR and LHCR are the redefined 
versions of the C type instructions. They should be used 
when one wishes to reference a symbol in a display overlay- 

OBXXB XX 
OBBXX XX 


Two macros that used in thp j,- ^ 

and a.XX respectively! displays to output -XX.- 
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b.is 


DIS 


DIS is a display pPogpa;ii that imay bs brought to an 0mpty 
control point to initiate programs or to an occupied con¬ 
trol point to monitor the progress of job. The main features 
of DIS are that while it is attached to a control point the 
automatic advance of control cards is stopped and that DIS 
will not drop out when the error flag is set unless it is 
set to '^OPERATOR DROP'' or '’KILL''? hence the programmer is 
protected from losing the job if he enters invalid control 
statementsr the CPU program being debugged makes an out of 
range address reference* etc- The system headers and dis¬ 
plays are similar to DSD-'s* but in general they are orientated 
to debugging of CPU program. Similar remarks hold for the 
commands• 


GENERAL CONSIDERATIONS 


Like DSD( one is cramped for space in DISp but one overlaid 
display driver was enough for the author; DIS was kept simple- 
For the interested* it should be noted that DIS was rewritten 
after DSD* and most of the code in DIS was borrowed from DSD* 
In general both the logic and the code is simple- Some of 
the problems that we encounted in writing DIS were: 

al The channel table problem- 

Since one may have more than one LblE per configuration* 
whenever DIS gets a channel from MTR it must mask the 
channel number into all the channel instructions- A 
brief glance at the reference map will show that the 
normal method of using an address table to insert the 
channel numbers would occupy approximately EMDB bytes. 

This is far too much. Instead of the aforementioned* 
we use the ^shotgun^ method to insert channel numbers 
^subroutine GDCl* The algorithm is to search for in~ 
structions of the form 70XXB where XX = the number of 
the last assigned channel and insert the present channel 
assignment* 

b> System Transactions 

Like an other PPL) program DIS must occasionally issue 
riTR functions* To this it has its own subroutine SHF* 
which is equivalent to R-MTR in PP resident* except 
that after a few milliseconds it does a RJtl to the main 
loop fsimilar to DSD} only to return after one cycle- 
The purpose of this is to prevent from losing the display 
in case of a hung NTR* etc. At present this breaks down 
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because DIS calls R.PAUSE in PP resident. 

Another problem that arises* is the.programmer asking DIS 
to excute a statement before ail -CPPUI activity remaining 
from the previous run has subsided. In this case DIS 
drops the CPU and waits for all other PP'‘s at the control 
point to drop. This causes problems when a wayward PP 
is hung at the control point {something that should only 
happen during debugging!. 

Like DSDt DIS contains similar code in the main loop 
to handle incomplete system transactions with the same 
entry point name and flag- 

c! Keyboard Entry processing in DIS is not interpretative. 

The main reason for this is a lack of space. Other 
reasons against it are the small number of commands * 
which are not fixed syntax so an interpretator would 
have very little work to do. Other things that were 
done were to allow the operator to omit redundant 
punctuation- That is ^'DROP-^ becomes '’DROP'’ and 
'’ENFLSOanO'' and ®ENfL * SDODO -are equivalent entries. 

d! The initialization code in DIS occupies over BOOB 
locations• 

After initialization* this space is occupied by the 
keyboard buffer* the octal digit table and the saved 
exchange package. 
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The following pages we will discuss subroutines and sections 
of code of interest* 

XNITIALIZATIQM - starting at INIT 

Here DIS sets up the direct cells and various pointers* 

It then checks the control point to see if it occupied* 

If it isr and it has non-zero priority» then it proceeds 
to secondary initialization. If the control point is initi- 
flly empty then it sets the job namer requests priority* an 
infinite time limit {7777701* sets the clear bit and requests 
storage. The algorithm here is to request the minimum of 
UAS-5 and IP.DSFL/IODB; where UAS is the unassigned CM/IODB; 
if at least 3000 words of Cd is available. After getting a 
non-zero FL* DIS clears the first IDDB words of memory and 
gets a Job sequence number* Note that in the case of a 
''occupied^ control point with zero priority IIS drops out* 
Control points in the class are JANUS and NEXT control 
points and it makes no sense to bring up IIS at them* 

Secondary initialization consists of getting a display 
assigned to the C.P* getting the channel* clearing the 
keyboard buffer and setting up the octal digit table- 

lue then Jump to the main loop. 

The subroutines in IIS are: 

lOS lisplay One Screen 

Similar to ISI with a few minor simplifications. 

GIC Get lisplay Channel 

Gets a display channel from UTR and modifies the 
channel instructions if necessary. 

lOL lisplay One line 

Identical to the subroutine ISI as are QErONrlSDM* 
z2,Zb,Z2S,CCS*ISDM and AID. 

OS Convert 5 digits to display code. 

A faster version of the one in ISI because the 

COMPASS mnemonic display is slow- 

kSH A simplified version of the LSN in ISI. 

KBI Keyboard display - Again is a somewhat simpler 

version. 

ILB*IIT Identical to ISI 

RSH Right Screen Header lisplay 

Almost identical to RSH in ISI. 

ISAA The A display 

The same as the code in ISI except that its always 
the displays -the dayfiie buffer of the control point 
that^it is attached to* Since the control point 
dayfiie buffers are never larger than 1000 we can 
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only display the last ‘I messages* Given all 
this empty space it decided to take the F Cfilel 
display from BSD and place it on the bottom of 
the screen. 

BSBB The B display. 

Thi is similar to the B and K displays inBSB with 
a display of the exchange package, the last value 
of the error flag and the break point address 
thrown in. 

BSCC-BSGG These are the central memory displays. Again the 
code is similar to that in BSD. The only new 
feature is the companion COHPASS mnemonics with 
the F and G displays. The two subroutines involved 
are BINS and display instructions and BOOC-display 
one op code. The two subroutines use a straight 
forward, but slow algorithm, hence when the F and 
G display are both up the screens will flicker 
considerably 


Special Key Processing 


PSK 


P-K 


RBBC 

PPHK 

CRK 

CEB 

BSK 

lEXC 

PKI 


CKE 


Process star {asterisk! key 

If the channel that BIS has is BSB''s channel, then 
it will drop the channel and wait in a loop until 
it gets it back. Note that it holds onto the 
display equipment so that if one hits the « key in 
BSB the same BIS will get the channel back. 

Process ■“•'s Key - a simplified version of the code 
in BSB. 

Right Blank Bisplay Change - ditto 

Plus-Minus Key processing 

Process Carriage Return 

Clear Key processing 

Backspace Key processing 

Incomplete Command execution 

Process_Keyboard Input 
A simplified version of PKI in BSB. 

All we do here is input the character, check it 
for validity {■< bBB and the first character must be 
search the first or special character 
tables and add the character to the string if it did 
not find a match in any of those tables. 

Check Keyboard Entry 

This routine is called from CRK and RMK to inter- 
pretate and process the keyboard entry when the 
operator hits the carriage return or repeat mode 
key- The code is as follows: if the first character 
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is a letter then we assume a memory entry and process 
itf else we search the command format table for a 
match of a leading string of letters -Ce.g. ^ENFL^' or 
If we find one there we jump to the appro¬ 
priate command processor to execute the command- If 
we don''t find a match in the command format tablet 
then we check for an entry of the form XXp and assume 
it is a command of the format CMpnnnpetc- If the 
third character in the buffer is a period or zero 
■Cend of entry}p then we assume it is a display change 
command and process it- 

If all of the above has failed then we check for a 
PP call- One may use BIS to call any PPU program 
whose name begins with a letter to the control point- 
The key board entry NAMpXXXX becomes the call 
vfd-ia/3LNAn,b/c.p. la/Dria/xxxx 
and the entry NAMpXXXpYYY or NAHCXXXpYYY} etc is 
translated to VFB la/3LNAn pb/C-P p la/XXX p la/YYY- 


Command Processing Routines 


None of these routines will be discussed in detail- (lost of 
the code in them consists of assembling strings of octal 
digits or character strings and checking for syntax errorsp 
etc- One should compare this code with the code in BSD to see 
what an interpretative keyboard processor buys one- On entry 
to most of the command processors KP holds a pointer to the 
address of the first unchecked character in the keyboard 
entry - 

The names of some of the processors and subroutines are listed 
below: 

ENd process memory entry 

PBC process display change 

PNKCDG +- key processing 

CBGMBC processing for entries of the form Cnpnnnn 

CCSB clear the control statement buffer 

XCS transmit control card to the control card buffer- 

CPA check peripheral activity -Cwait for all quiet} 

ABS assemble delimated string 

called to assemble strings of digits of the form 
pnnnnp'^ p ^nnnnp^- ^ p nnnn-^ etc- 

RBii) Restore Breakpoint 

BCPU Calls MTR to drop the CPU 

AEE assemble Exchange Entry 

i-e- one of the form ''ipnnn''- 

CBR convert detail digits right Justified 
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ACL assemble characters left justified 

ASM assemble name Cleft justified} 

StIF send MTR function 

CNB Clear N Bytes 

CPS Check Program Status 

Resets RA and FLr checks the error flag* drops the 
PP if set to ^OP DROP^ or ®KILL^ else it clears the 
error flag and exits■ 

DROPD Drops the equipment and display channel if DIS has them. 

PAUSE Pauses for a possible storage move 

HOLD Drop the display equipment and channel and stay 

at the C•P ■ 

CPP Calls a pp program to the control point 

nSKP Monitor Breakpoint 

checks for P=breakpoint address 


Use of the Direct Cells 


In general the use of the direct cells is similar to that 
of DSD. The cells T1-T7 CM-CM+M and AB-AB+M are used as 
tempories and conventions regarding the subroutines in DSD 
also holds true in DIS. The otlie' direct cells are: 


CPRA 

CPFL 

RCP 


jntrol point RA/IDOB > 
sntrol point FL/IDDB }| 


set in CPS 


*ntrol point that a display is relative 


to set 


CC cycle count - set in the main loop 

XC and X coordinate of 0. read only 

YC temporary used as a Y coordinate by the display 

subroutines 


ON constant one 

RF repeat flag - used by the display subroutines etc.r 

KS pointer tothe start of the keyboard buffer 

pointer to the first empty byte in the keyboard 
buffer 

KP pointer to the first unmatched character on entry 

to the command processors if we found a match in 
the command keyword table. 

KML address of error message such as 

'^FORMAT ERROR'' etc. Marchi 
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1ST 

PPCR 

ys 

DFBA 

DA 

DY 

KRBI 

EuP 

D-CH 

DCPN 

BKPA 

BKPU 

LEF 

SI 

TEST 

LEST 

DFfiza 

FCSP 


Incomplete System Transaction Flag 

PP call register - 5 direct cells for holding 
PP calls. Used by CPP. 

Wait system flag. Holds the address of messages 
over as ''WAIT-PP ACTIVITY'^ etc 

Holds T.DFB/lDBf read only 

Holds ^OUT^' for the dayfile buffer. 

A display Y coordinate 

left screen display table toggle index 
number of the display equipment that DIS has- 
number of the channel that DIS has or 0 if none, 
control point that we are atr read only, 
address of breakpoint or zero. 

contents of breakpointed word if a breakpoint is out. 

Last non-zero value of the error flag. Cleared 
whenever one executes a statement- 

Screen Index used by DOS- 

Holds T-ESTr read only 

Holds the LWA + 1 of the EST r read only 

Holds the address of the second dayfile message 
line on the B displayr read only- 

Pointer to the FWA of the control card buffer» 
read only. 


CPAA 


Control point area addressf read only 
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The Refere nce Hap 

In DIS the RJH op code is redefined in the beginning the 
listing so as to produce a ''subroutine call lor RJH} sub 
reference'' map. This map is located at the end of the 
reference map and has the form 

■NAHE NUHBER OR CALLS REFERENCES 

This reference map was used when DIS was written to eliminate 
some subroutians that only called once or twice, etc* 

□ 

IDDB 
lODOB 


TSDOB 


7bD0B 
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'IDn is a PPU routine! loaded at C-PPPUAt that is called 
by SSD toI 

a. load in display or command overlays that reside on 
mass storage Care not central memory residentli 

b. send a message to the dayf i le for DSI>. 

In the first casei byte 2 of the input register is non¬ 
zero and contains the third letter of the name of the over¬ 
lay to be loaded. The first two letters are The 

PP will be attached to C-P.Q. '15H calls the resident 
routine R.OVL to load the overlay. Upon return from 
R.OVL it clears byte two of its input register to tell 
DSD that it has the overlay. It then goes into a counted 
loop in which it periodically checks byte two of its 
input register. If it is non-zero then it transmits the 
overlay to DSD across the display channel C10B>. If at 
the end of 120 milliseconds DSD has not responded! then it 
drops the PPU and exits to the idle loop. 

The reason for TDH is that DSD Cor any other program! can 
not cancel a stack request* If a direct DSD—ISP over¬ 
lay loading scheme was implemented! then the operator 
would be locked out of the keyboard when he pressed the 
carriage return key and pressing the clear key would not 
terminate execution of the command. 

iilhen TDM is called by DSD to dayfile the command! byte 2 
of its input register is 0. The lower six bits of byte 
3 contain flags that are to be passed to R.DFd and lo¬ 
cations IbMB—171B contain the text of message left justi¬ 
fied in ''CM DIS'^ format. IDM is attached to the appropriate 
control point. RDfl reads up the message! calls R.DFM 
to enter the message in the dayfile and drops the PPU- 

Because TDII is an exceptionally short routine t^lDDB 
bytes long! it should be CM resident. 


b• 17 iriH—tlother^'s Helper 

IHH is a PPU routine! loaded at C-PPFUA! which executes 
the following commands for DSDJ 

n. X LFNAftE!FL.! n.UNLOADuu. and N.DEVADDuu. and EVICTi 
LFNAPIEtT. 

The parameters are passed to IMH in bytes B-k of its input 
register. In particular byte two contains the index into 
a jump table in IflH. 

The code in IPIH is simple and straight forward. It con¬ 
sists of loading up the input register! determining the 
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number of the command to be executed and jumping to the 
appropriate command processor. It then executes the 
command and^drops the PPU* One should note that their 
is no facility for IflH to send an error message to OSD. 

ny checking for conditions that would make execution of" 
the command ’illegal'' should be done in DSD. 
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?.□ CIO - MES -- bliin 

7.1 CIO 

7.1-1 General 

CIO will perform general functions which apply to 
all I/O requests. The primary functions of this 
routine are to validate the existence of the file 
■Cor create one if it doesn''t exist!f check the buffer 
parametersf validate subsequent requests for I/O in 
a logical order» and load the proper device driver 
to perform the function- 
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a! PP Input register contents for CIO 


□ -17 

FET ADDRESS 

lfl-3S 

SKIP COUNT 

3b-3fi 

Control point number 

3=1 

Not used 

4D 

Auto Recall 

41 

Internal Open/Close 

45-5=1 

N ame CIO 


bl FET—The FET will contain the current function code 
request for this file- 

BITS 


FET Cl! 


FET -CS! 


□ 

Busy bit Q=busy l=not busy 

1 

node bit 0=coded l=binary 

5-6 

SCOPE CIO codes 0-177 

^-13 

error flags 


14-17 

record levels 


16-5=1 

file name display code 

0-17 

buffer parameter -Cfirst! 

16-53 

■Clength of FETl-5 

54-35 

disposition code 

3t-43 

not used 


44 

EP bitr user processing error 

45 

UP bitr user processing EOI 

4h 

release RB''s 


47 

random bit 


46-43 

Tape density 

for tapes;allo¬ 

SD-Sl 

label 

cation style for 

55-53 

data type 

mass storage 

54-53 

device type 
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BITS 


FET 

■C3> 

0-17 

buffer 

parameter 

Cinl 

FET 

mi 

0-17 

buffer 

parameter 

Tout! 

FET 


0-17 

buffer 

parameter 

{limit! 


la-3E PRU size 

3^-^7 RB size 

Ha-S‘1 FNT Pointer 


7 . 1.3 F unctions 

aJ Validate the FET 

checks first and last location to see if FET is 
within field length. If notr check EP bit and 
return to user or abort with dayfile message. 

bJ Compare FET and FNT file names 

1> If the FNT POINTER in FET is not equal to 
zero* 

a> Check the pointer to see if it points 
to an entry within the table- 
b> Retrieve entry and compare 

B> If the FNT POINTER in FET is equal to 
zero: 

a> search for empty entry and file name 
bJ if none exists» create an FNT into 
empty entry 

c} Update FETr FNT 

IJ Set FETf FNT to busy. 

2> Transfer function code to FNT and save 
last code status in FNT. 

d> Check buffer parameters 


LIMIT 


FL 

OUT 


LIMIT 

IN 

< 

LIMIT 

OUT 


FIRST 

IN 


FIRST 


el Verify the CIO function code 

1> Any function as defined by the SCOPE CIO 
CODES is legal- If not definedf EP bit 
checked. Error flagged in last code statusr 
FNT( FET. Control returned to user or 
error message to dayfile and abort 
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21 Check the sequence of operations this file 
except for random files, 
al read after write sequential file 
bl skip forward after write sequential file 
cl if last function was re-write in place 
above is ignored. 

fl Security checking 

See Table A 

gl Overlay Loading 

Overlays will be loaded in the fillowing mannert 
the prefix from the overlay name CXAAl. X speci¬ 
fies the locations at which loading will begin- 
For X=l* the loading will begin at IDDQB- 

X-Br»»7 loading will be at 

XalDDDB 

hi Exit Information 

ll [lagnetic Tapes 

For read and write functions control is 
transferred to the driver with the file 
at busy status■ 

For skipf and skipb control is returnedf 
CIO sets file status to complete and drops 
out - 

21 Allocatable Devices 

CIO loads MES and either MES or ISP can com¬ 
plete the request depending on the function 
code- 

31 The direct cells are set by CIO as indicated 
by Table B- 

il Errors detected by CIO 



Remarks 


Qwncode 


FET OUTSIDE FL B2 

CIO CODE NOT DEFINED 
ON DEVICE BE 

ILLEGAL FILE NAME 3E 

READ OR SKIPF AFTER 
WRITE 3D 

FILE NOT OPEN FOR 
WRITE EE 


WAITING FOR FNT SPACE EM 
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Number 

7 

a 

3S 

Overlays 

IJ IRS 
5} IRT 

3J in? 

m iiijx 
S> lliis 
t> LUI 
7> EPC 
&y ERC 
ELP 

io> biijn 

11} 4ES 


Remarks 

Owncode 

FILE NOT OPEN FOR READ 

E2 

{PERn.FILES 

ONLY} 


BUFFER ARGUHENT 

ERROR 

31 

ERROR CONDITION 

NOT CLEARED 


R E^aV^s ErWIs¥oN 

NOT SET 

S2 

FOR READ ON P.F 

t 

EE 


called by CIO 


Read stranger tape 
Read internal SCOPE 3 tape 
Read/lilrite other tapes 
Write external tapes 
Write stranger tapes 
Write internal tapes 
On-line card punch 
On-line card reader 
On-line printer 
Write error message 
Hass storage I/O 
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TABLE B 


Direct Cell Settings by CIO 


CELLg 

SYMBOL 

REMARKS 

1—1 

1 

I D-ZO-D.TS 1 

Scratch 

lb 

■ 

(T 


17 ! 

D.T7 


20 

D.FNT 

FSTCIJ b BITS EaP TYPE BITS ALLOC OR LABEL BITS 

21 

+ 1 

first RBT word pair or 2nd unit ord 

22 

+ 2 

current RBT or primary unit ord 

23 

+ 3 

current RBT ord or current PR count 

24 


current PR or current PR count 

2S 

+ S 

FST-C2J b BITS unused b BITS FET address 

2t> 

+ b 

low lE bits FET address 

27 

+7 

disposition code 

30 

+a 

4 access bits 2 security bits b code status 

31 


code status 

32 

D.EST 

EST assignment 

33 

+ 1 

channel assignment Ir 2 

34 

+ 2 

channel assignment 3f 4 

3S 

+3 

hardware mnemonic 

3b 

+4 

DST ordinal 

37 

D.DTS 

allocation from FET device type from FWT 

40 

D.BA 

FET£1> first two chans file name 

41 

+1 

second two chars file name 

42 

+ 2 

third two chars file name 

43 

+ 3 

last char filenamer rec level 4i error 2 

44 

*4 

error flags 3r code status T 
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CELLj 

SYHBOL 


REnAR<S 

^5 

ss 

FSTCEl 

code and status of previous operation 


D.FRb 


not used 

M7 

D.FR7 


not used 

SD 

D.PPIRB 

PPIR 

ovsrlay nams Cl 

SI 

+ 1 


overlay name Dr Int bit. recall bit* CP numb 

52 

+2 


skip count 

55 

+3 


skip count Sr FET address b 

54 

+4 


FET address 

55 

D.RA 


relative address of control point 

5t 

D.FL 


field length of job 

57 

D.FA 

FST 

FSTfll address in CPI 

\=U 

D-FIRST 

FETEEI 

buffer parameter first 


+1 


buffer parameter first 

hB 

D.IN 

FETI3} 

buffer parameter in 

\=3 

+1 ! 


buffer parameter in 

b4 

D.OUT 

FET-C4} 

buffer parameter out 

t5 

+1 


buffer parameter out 


S.LiniT 

FET-CS> 

buffer parameter limit 

b? 

+ 1 


buffer parameter limit 

7D 

D.PPONE ' 


contains 1 

71 

+1 


1 bit random bit FET r 11 bits length FET 

72 

+2 



73 

D.TR 



74 

D.CPAD 


address of control point area 

75 

D-PPIR 

PP 

address of PP input register 

7b 

D.PPOR 

PP 

address of PP output register 

77 

D-PPHESl 

PP 

address of PP message buffer 
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4t.s ENTER STACK REQUEST 

This overlay may be called to prepare stack entries ■for ail 
file content dependent I/O commands for files residing on 
allocatable storage devices* and to perform directly some 
logical manipulation of such files. 


4ES is called with a part of the results of a call to CIO 
on 2BP. The expected contents of the direct cells are as 
follows! 

D.CPAD D for request at control point zero. Non-zero 

otherwise. 

D.PPIRB + 2 - I>.PPIRB + 4 


Normal parameters to CIO* i-e-* record count n 
Cwhere relevant!* and FET address {when present!- 
B.FNT - 1>.FNT + '^ 


D.FA 
D.FIR ST 
D.LiniT 


D.EST 


the FST entry for the file, 
the Cn address of the FST entry 
D.FIRST+1 
D-LiniT+l 

These vdues are placed in the stack request 
without any checks- 

contains flags for the stack request. These may 
include a PP available flag {bit position □> and 
a no PET flag {BIT S-STFETP - S-STFA! either or 
both of these bits may be set in this flag, 
but no others should be set by the calling pro¬ 
gram. 

D-EST+l contains a CP recall request flag 

= 0 for no recall at end of request. 

= 1 for recall at end of request. 

This flag is ignored if D-CPA])=D. 

If the FET flag in D-EST is D: 

D-BA contains FET word D. 

Otherwise in the case of the open function {P-FNT-^R = lODb> 


p.BA contains FET word 2 {only the random bit 
is significant!. 


The last previous status of the file is in BS {cell 4SB>. 

4ES may be called with the following function codes in 
D-FNT+R. Note that the two low order bits are always 
ignored 

READ {IDB!. READSKIP* {2DB!, WRITE {14B! 

WRITE RECORD {E4B!* WRITE EOF {34B!* BACKSPACE 
{40B!, REWIND/ UNLOAD {SOB* S4B, bOB, b4B.! OPEN 
{IDDB!, SKIP FORWARD {240B!* SKIP BACKWARD 
{b40B!* BACKSPACE PRU {44B!, EVICT 114B!. 

REWRITE {E14B!, RE-WRITER {EE4B!* REWRITEF {E34B!* 
READNS {ESDS! 

Initial procedures in 4ES include*. 


1. Stuffing several parameters into a ten word area called 
REfiUEST. These are the flags from D.EST and D-EST+l, 
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FIRST and LIHIT taken from the low core cells B.FIRST 
and D-LiniTf and FET address taken from D.PPIRB Clow 
order Ifl bits>. the FST location taken from B-FA- The 
order and record level field of the request are cleared 
at this point as well. 

2. The location/lDDB of the RBT -CLWA + ll is put in B-Zb* 

3- The constant 9 is put in B.Z?. Neither D-Zb nor B-Z? 
are altered by MES thereafter- 

M. If there is an RBT chain for the filer its first word 
is read into B.Zl - B.ZS. Otherwise these cells are 
initialized to zero- 

S- The last buffer coder taken from BS and the current 
request code taken from d « CS+1 are saved. The two 
low order bits are stripped of these values* thus no 
attention is given to the BCB/binary bit or the ready 
bit of either value. 


The first major decision of ^ES is whether or not the request 
which it is treating is random. This is determined from 
the FET by the Joint condition 1 9 random bit set r request/ 

return field non-zero- In the no FET case the request FET 
by the joint condition 1=9 random bit set* request/random 
after clearing the request/return field- Note that a 
file need not be opened as a random file in order to be 
driven with random requests. 

RANBOn resets the local value of the last buffer code* since 
a RANBOn read or write legitimately follows any request, to 
prevent special action in later processing. It then branches 
to read or write actions. The random read action checks for 
release in progress or requested, as this is not proper in 
conjuction with random I/O- The file is positioned, using 
INBEX -CSCANSBT is used for EBITLIBI. to the point specified 
in the FET request/return field and the FST is reset to this 
position. Processing continues at ES3 where normal read 
action is handled. 

The random write action also checks for release in progress. 

If so it evicts the current RBT and joins new file action 
which established a new RBT of random type. In any case the file 
is repositioned to EOI. Return information is now constructed, 
consisting of the PRU ordinal counted from the start of the RBT 
chain assigned to the file. The return is only made if requested. 
Normal wirte action is rejoined following the checks peculiar 
to sequential write- 
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AT ESa sequential I/O branches to read action ES3t or 
write. 

In write the file is evicted in case releasing is in 
progress and new file action establishes an RBT of sequential 
type- If new file action is not necessary» and the file is 
of random typer control goes to RANDOM - Otherwiser the 
current position of the file is tested* If it is not an EOI 
all RB’'s beyond the current position are released. Now 
all writes rejoin at ESES where a test is made for write 
E0RI348I command. If sor and the last command was not 
S4B or the buffer is not empty» the EOR flag is added to 
the stack request* Otherwise for EOR the record level is set 
to 178 in the stack request- For all write commands the 
EOI PRU is reset in the RBT in case it may have been 
altered due to write before EOI- Control then branches to 
COMPLETE. 

At ES3 normal read action branches to one of several 
actions- These are-- 

SKIPF n is added to REQUEST and tested for -Q• If 

n=-D the file is positioned to EIO and 
control transferred to EXITR- Otherwise 
processing continues at READSKP- the level 
number, taken from D.FNT+»* is added to REOUEST - 

Processing continues at READ - test are made 
for release in progress or requested, last 
Operation write or file at or past EOI- 
Otherwise processing continues at COMPLETE. 

8KSPRU n is added to REQUEST as is the order O-BPRU- 

BKSP n = 1 is added to request as is the order 

0-SKPB. 

SKIPB n is added to REGUEST as are the level 

number taken from D-FNT+fl, and the order O-SKPB- 
These three join at BACK, where a tei is made 
for release in progress. If so control 
transfers to EVICT• Otherwise the file posi¬ 
tion is tested for BOI- In that case the 
BOI exit is taken -Cstatus - 1>. Otherwise 
control goes to COMPLETE after the point 
where order is added to REQUEST• 

OPEN creates a new RBT if one does not already 

exist. This is random or sequential as the 
random bit in FET word E is 1 or D. Device 
type and allocation are extracted and stored 
in D-DTS for the calling routine- Control 
goes to EX IT. 

REUIND current file position is reset to beginning 

of ra.e._ If there is an FET, IN = OUT = FIRST 
is set in CM* At EXITR a check is made for 
release in progress. If not control goes to 
exit. Otherwise control goes to. 
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EVICT the file’^s RBT is dropped- Control goes to 

EXIT. 

Error Status is set to EBB and the FET and the FST 

made ready by RSTCS. If the error bit is on 
control goes to EXITER» past the call to PSTCS. 
Otherwise the proper dayfile message is issued 
and the control point aborted- 

At EXIT code and status are reset in the FNT and the FET {if 
any! with the ready bit on. If recall was requested monitor 
function tI.RCLCP is called- If the available bit was set 
the PP is dropped and return goes to the idle loop. Other¬ 
wise a normal return is taken- 

At COnPLETE the proper order is added to REflUEST. The 
unit number is determined from the RBT and associated RBR 
and added to REQUEST. R.EREfiS is called to enter REfiUEST 
in the stack. If R-ERE(3S returns f a normal return is taken- 


7,2.1 Subroutines of 4ES 


TFL 

FETA 

RSTCS 

SETN 

RELCHN 

DRPRBT 

GETRBR 

STRTRBT 


test for a value within control point field 
length. A switch directs return to ERROR or 
the alternate return from FETA in case of 
range error. If no error TFL returns the 
absolute address of the value in A- 

adds the FET address taken from D.PPIRB+3t 
+M to a value in the accomulator and checks 
its range by a call to TFL. If there is 
no FET» the alternate return from FETA is 
with □ in A. 

called with the new status in at this routine 
resets code and status in the FET and the FNT 
with ready bit equal to 1. 

extracts n from D-PPIRB + Bt ■*■3 and stores it 
in REQUEST- If n = +0i control goes to 
EXIT {i-e.r the command is a pass except for 
random read positioning!- 

constructs a stack request to release a 
chain of RB’‘s whose header address is given 
in D.Tl. 

calls RELCHN to drop the entire RBT of a 
file. This subroutine is essentially EVICT- 
Allocation is saved in the PRU field of the 
FET- 

chooses an RBR for a new RBT- 

presets a new RBT■ Allocation type 1 is 
specified for random files if not specified 
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by the D>DTS or by the PRU field of the 
FST. 

writes the FST in cfl. 

fetches an empty RBT* If the empty chain 
is empty it calls monitor to assign more 
space and creates another 4DB empty RBT 
word pairs. 

scans forward in the RBT until reaching a 
specified RB number /PRU or EOI. Leaves the 
found RB address in d = RBTA f entered only when 
Absolute Index Flag in FET is set> 
computes the address of an RBR table and reads 
its first word. 

stores the address computed by FINDRBR. in 
routine ADC. 

adds the address to A. 

communicate with the operator when a file 
cannot be assigned to a device* because it 
is full or unloaded. 

For ECS I checks for special named files and 
files with non-zero disposition code* These 
files are not assigned to ECS* 

For ECS and RE-URITE orders RE-bJRITE sets 
jump instructions to PSN''s. 

PERHANENT FILES checks file operation fori 
1* Release bit illegal for permanent file 
B. Evict function not alioweo 
3. Urite allowed on files if extend per¬ 
mission set and file at EOI. 

RE*!jJRITE allowed if modify permission 
set and not at EOI. 

converts the specified PRU ordinal to RBT/RB/PRU 
address, or gets address and PRU ordinal for EOI PRU- 

gets RB length for the specified RBR according to 
the device type or special allocation type. 
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7*3 bUn nESSAGE OVERLAY 

7.3.1 General 

bUn was written to issue dayfile messages and insert own- 
code error numbers into the FET and FNT for illegal input/ 
output requests- 

7*3.5 Functions 


7.3.3 


7 . 3 .^ 


1 . 

5. 

3. 

4. 


Check the EP bit in FET{5>-44 if set issue no dayfile 
messages but insert owncode error no'‘s in FET* FNT 
drop PP. 

If EP bit not set issue dayfile messagesr insert own 
code error numbers in FET* FNT abort PP. 

FET» FNTwill be set to complete status prior 
to dropping the PP. 

pno condition the display message WAITING 

FOR FNT SPACE is posted and CIO is requested as a de¬ 
layed job with a E second wait. Bit m is set so 
that CIO will clear the message if an FNT empty entry 
IS available. If not the operator may drop the job 
and normal EP processing will be handled by bWtl. 

Entry Information 
Direct Calls 

D‘FNT+1 contain the error number in two 
positions. 

Sits D-S primary error number 
b-ll secondary error number 


4Q-M3 


S3-S4 


D.BA-D.8A+3 file name in display code 
? characters miximum 


®*PPIR8+I3fm the FET address 
This routine is entered with an RJM instruction. 

Exit Information 

1. The dayfile message appears as follows: 

ILLEGAL I/O REkUEST 
FILE NAME XXXXXXX 
FET ADDRESS XXXXXX 

One of INI reasons for error secondary message if requir¬ 
ed. 
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2. Bits T-13 of code and status FETand FNT will contain 
an owncode error number as described in the reference 
manual* 

3. The FET and FNT are set to complete status. 

Addition of errors. 

1. Add the message to table HSG 

S. Add corresponding owncode number to CPCT 

3. Add message address to MTBL 


7.3.S Remarks 

The bit used to communicate with CIO {bit Ml ]&.PPIRB + 2} 
is used by OPE and CLO as the internal call bit so that 
if CIO is used as a focal point for open and close func¬ 
tions also* some other communication link will have to 
be used. 
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8.0 JOE PROCESSING 


Job processing, as described here, deals with that part of the SCOPE 
operating system pertaining to job scheduling, startup, advancement, 
and close. 

Job processing spans three major PP codes. Each code performs the 
following distinct functions: 

a* IRA Scheduling and job startup (Resource Allocator) 

b. lAJ Job advancement (control card processing) 

c. lEJ Job close and error processing 


The following flow chart describes the general flow and communications 
between routines- 


IRA 


I 


IRA ^'bounces^’ at CP 0. Whenever 
possible, it brings jobs from the 
input queue to ”next” control points 
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8.1 Resource Allocator - IRA 

1.RA has been written for SCOPE 3.1.6 to perform functions related to 
bringing jobs in the input queue to control points. These functions 
were previously performed by IBJ. In addition, IRA will include all 
the code which previously was in the routine IFU to free public disk 
packs when they are inactive. lEA is approximately 1000,, bytes long 
and should always be central memory resident. Putting IRA on disk 
could tie up stack processor. At deadstart time, MTR would contain 
an entry for IRA in the PP job queue. Thereafter, each time lEA is 
done performing its function, prior to dropping, it would Insert it¬ 
self into the PP delay stack with a delay of 250 milliseconds. The 
internal symbol "DELAY" in ISA determines this delay. The effect 
would be to have IRA bouncing at control point zero looking for "NEXT" 
control points and available jobs in the input queue. IRA would attach 
itself to a control point while bringing a job to that control point 
but after that task was complete it would reassign Itself back to con¬ 
trol point zero and continue "bouncing". 


8.1.1 Entry/Exit Conditions 

The Input register of IRA will contain the number of control points 
in the system in byte 3. Byte 4 of IRA's input register contains the 
queue ageing count described below. IRA assumes that all NEXT control 
points have been previously zeroed by lEJ. 


8.1.2 General Description 

IRA performs the following functions: 

1. Search for and unload public packs 

(This is the old IFU code). This code will be assembled only at 
installations with disk packs. The value of the symbol IP.DPAK. 
determines the assembly of this code which is about lOOg long. 

2. Age the input and output queues 

- Each time, IRA is loaded, it Increments the count kept in byte 4 
of Its input register. Each time this count reaches the value 
2**IP.1QD, IRA will Increment the priorities of all files in the 
Input queue which have non-fixed priority, if their priority sub- 
levels are not already at the maximxim value. Each time the input 
register count reaches 2**IP.OQD all output queues files have their 
priorities similarly Incremented. 

3. Search for next control points 

Each time IRA is loaded it scans all of the control points looking 
for one with the name "NEXT" (left-justified with zero fill) as 
the job name. If the error flag is set at a NEXT control point, 

IRA will add 2 blank characters to the job name. This will cause 
lAJ and then lEJ to get called. lEJ will clear the job name and 
the rest of the control point area. 
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4# Search the queues 

If there are no avallabNEXT control points and neither queue 
is to be aged this time, ISA will put itself back into the delay 
stack- Otherwise IRA searches the FNT looking for input queue jobs 
and incrementing priorities in either queue when appropriate* If 
either queue is to be aged the FNT channel is reserved for the entire 
search- IRA looks at all input queue jobs to find the '"best^^ job 
to bring to a control point- The *^best” job is defined to be the 
fixed priority job with the highest priority or, if there are no 
fixed priority jobs, the ^^best'* job will be the job with the highest 
priority that will fit in the currently available central memory 
and ECS storage- If two acceptable jobs have equal priority, the 
one with the larger CM requirement is chosen. 

5- Initiate the job at a control point 

If IRA finds an acceptable input queue job and there is at least 
one available NEXT control point, IRA will try to initiate the 
running of the job at the lowest numbered NEXT control point- 
First IRA assigns itself to the control point and then requests 
storage for the job- If the storage request is rejected (either 
CM or ECS) for a job with non-fixed priority the available storage 
must have shrunk since IRA first checked it- In this case IRA 
will go back and search for another job. If the storage request 
was refused and the job had fixed priority, IRA will not attempt 
to bring any other jobs to any control points- It will write the 
message FIXED PRIORITY JOB XXXXXXX, WAITING FOR STORAGE'^ (where 
XXXXXXX = the name of the job) to the display under the selected 
NEXT control point, and then IRA will put Itself back into the 
delay stack- 

If the requested storage is assigned IRA does the following: 

a- Reserves the FNT channel and checks the Input queue FNT of the 
selected job to ensure that no other routine has picked it up, 

b. Just prior to releasing the FNT channel, lEA rewrites the in*- 
put file FNT entry so that the file is type local at the control 
point and the file name is ^^XNPUT*^- The disposition code is 
saved (it is checked by RESPOND). 

c. Sets the control point area error flag to the appropriate value 
if the abort flag in the input queue entry was set (job card 
error, etc-)- 

d. Zeroes RA and RA+1. 

e. Sets up the following words in the control point area: 

W.CPSTAT Field length is set when storage is requested. 

(Error flag is set if job card error or job 
job pre-abort-) 

W.CPJNAM The job name is inserted and G.CPNCSP is set to 

sero. 
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W.CPPRI 

W.CPTIML 

W.GPEKT 


W.CPJCP 

W.PSTCC 

W.CPLDR 

W.CPRESl 

W.CPDHMC 


Priority is requested. 

The time limit is inserted and CPU time is set 
to zero. 

The FST address of the input file is put in 
C. CPF ST. For EJO’DRI/IMPORT jobs the E/I bit 
in C.CPFP is set. For RESPOND Jobs the RESPOND 
and "no rerun" bits in C.CPFP are set. 

The parameters from the Job card are saved. 

The second word of the input FNT entry is stored. 

The default values for the loader and map 
(IP.LDR and IP.MAP) are set in C.CPLDR3. 

Byte 0 is set to 6000B for RESPOND jobs. 

The dayflle message count, IP.MSGT, is inserted 
into C.CPDFMC. 


f. An exit mode of 070000B is set in the exchange packge. 


g. The job name is issued as the first dayfile message. 

h. If this job is being rerun the message "JOB RERUN" is issued. 

i. The FNT is searched for a PRE-OUTPUT file (a file local to 
control point zero whose Job name is the file name. A rerun 
job or pre-aborted job will have a pre-output file.) If a pre¬ 
output file is found it is made the output file for the job. 

When the job has been competely set up, iRA assigns itself back to 
control point zero and then looks for more NEXT control points and 
jobs in the same manner as described above- 
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8.2 JOB ADVANCEMENT - lAJ 


8-2.1 Design Philosophy 

lAJ is coded for minimum space except in instances where performance 
is severely ham.pered. A bare minimum of logic is placed in lAJ in 
order for it to perform its basic function of control card processing, 
Virtually all logic dealing with error processing an job close is de* 
legated to lEJ. Logic associated with control point initialization 
and job start-up is placed in IRA- If another PP program is needed, 
it is called into the same PP as LAJ, 


8.2,2 Logic Flow 

When MTR finds that CPU status + PP job queue count ^ delay stack count 
+ stack processor entry count is equal to zero, lAJ is called to pro¬ 
cess the next control card. The flow chart on the following page 
describes the general logic flow. 


8,2.3 Major Subroutines 

GNELM _ Get Next Element 

GNELM is the subroutine used for dismembering control cards. Upon 
entry the control card is in BUF through BUFf40.^. A pointer to the 
current character in BUF is maintained in BUFADR; A call to GNELM 
will result in the next element being placed in the direct cells ELM 
through ELM+4, 

An element is a series of alphanumeric characters with all blanks squeezed 
out. The element is delineated by any character other than a blank, 
of display code value greater than 44B, One exception exists. That 
is an * which is treated the same as an alpha character. When GNEI^ 
exits, the delineator will be In direct cell DELIM unless the delineator 
is a . or a ) in which case DELIM will be zero. 

FNTSRCH _ File Name Table Search 

This subroutine searches the file name talbe for a file name identical 
to'the name in El^ through EIiM+4 that is attached to this control point- 
Exit is with the accumulator equal to zero if a match is found. The 
FNT location is in cell D.TO. 

PNTSRCH _ Program Name Table Search 

The program name table is searched for an absolute library program with 
the same name as that contained In ELM through ELM+4- If a match is 
found, the accumulator will be zero and the two CM words associated with 
the library routine will be in direct cells WORDl and W0ED2. If a match 
is not found, the accumulator will be nonzero- PNTSRCH makes use of the 
fact that EDITLIB groups all absolute library programs at the end of the 
program name table. 
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RCC _ Read Control Card FRU 

The control card FST entry from the control card area is swappend Into 
the input file FNT entry, A stack request for a READP is issued and 
the data is then moved into the buffer in the control point area. A 
short PRU has a zero word added to signal the end of control card. 


8.2.4 Control Card Processlna 


COMMENT 

RELEASE (Ifn) 

MAP 

MODE 


LOAD Clfn^pd), 
p(2)...p(n)) 


EXECUTE 
Cnanie,p(l), 
p<2),-..p(n)) 

NOGO 

COMMON (Ifn) 


The comment card less "COMMENT*^ is Issued as a day file 
message. The card is issued In two parts if the message 
is over 40 characters long- 

The file name Ifn Is checked to see if it is common, 
local to this control point and not ^SYSTEM”. If 
the tests are true, the file change bit is set. 

The loader control bits in byte C.CPLDR3 of the control 
area are set to 0 if OFF is specified, 1 if ON is 
specified or 2 if PART is specified. 

The monitor function M.REM is issued to set the exit 
mode to that specified on the MODE card. If the mode 
is greater than 7, a control card error message is 
Issued. 

The ^^load^' switch is set. The arguments are entered 
into the field length beginning at RA+2 and continuing 
to EA+n+l where n Is the number of parameters- RA+64B 
contains the number of parameters- LOD is loaded into 
the same PP and control is transferred to LOD. 

The '^execute” switch is set and the operation is the 
same as LOAD after the ^^load^’ switch is set. 

The ”nogo^^ flag is set and the operation Is the same 
as LOAD after the "load” switch ls:.set- 

The is searched for a file of the same name as 
Ifn. If neither a local nor common file of Ifn were 
found, the message "WAITING FOR COMMON FILE" is dis¬ 
played and the card is re-processed. 

If only a common file is found assigned to control 
point zero, the file is assigned to this control point 
and processing continues. However, if the common 
file found has a control point assigned, the message 
"WAITING FOR COMMON FILE" is displayed and the card 
is re-processed. 

If the common file Is on a non-allocatable equipment 
and the equipment Is unavailable the message "WAITING 
FOR COMMON EQUIPMENT XX" (where XX = EST ordinal) is 
issued and the card is re-processed. 

If only a local file of name LFN is found in the FNT, 
the change bit in FST is set and processing continues. 

If both a local and a common file of name Ifn was 
found, the message "DUP COMMON FILES OF LFN" Is Issued 
and the job is terminated. 
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SWITCH (N> 


file <p(l), 
p(2)...p(n)) 


REDUCE 


REQUEST 


CATALOG 

ATTACH 

EXTEND 

PURGE 

RPACK 


REMOVE 


DEBUG 

(C.S.T) 


The parameter (N) sets a bit In the sense switch word 
(W.SSW) of the control point. 

N CP sense switch word bit 

1 5 

2 6 

3 7 

4 8 

5 9 

6 10 

For this control card "file" should be the name of 
a program such as RUN. The "p's" are parameters for 
this program. The file name table Is searched for 
"file". If "file" is not found, the central memory 
absolute overlay portion of the library program name 
table is searched. If "file" is found in the file 
name table and not found in the program name table, 
the load switch Is set to zero and the operation is 
the same as that for LOAD after the "load" switch is 
set. If "file" is a central memory absolute overlay, 
a small start-up program Is written into the user's 
field length, and a stack request Is Issued to load 
the absolute overlay into RA+100. lAJ then releases 
the PP. As soon as the stack request is completed 
the stack processor requests the CPU. If the overlay 
is CM resident, lAJ loads the overlay and requests 
the CM, The start-up program checks the validity of 
the overlay. If invalid, an error message is issued 
and the job is aborted. 

The reduce bit is set In byte C.CPLDR3 of the control 
point area. 

The parameters are seperated into RA+2 and on, where 
they will be found by REQ. The number of parameters 
is left in RA+64B. 

The permanent file control cards are placed into 
RA+70B, No dayflle is issued. A central program 
PPCCP is then loaded to process the cards. 

The first parameters, the pack name, is placed into 
D.BA, the second and third, VRN and lable type, into 
D.FIRST end D.FNT, then SDA is called. 

The first parameter, Ifn, is placed in D.BA. If 
present, the second, pack name, is left in D.EST. 

5DA is Chen called to process the REMOVE function. 

The parameters may be in any order. Loader control 
bits are set in byte C.CPLDR3 of word W.CPLDR in the 
control point area. 
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EXIT(p) lEJ is called into the PP* The exit bit In byte 

C.CPFF of word W*GPERT of the control point area is 
set depending on the value of the error flag and the 
setting of the job abort bit in byte C.CPFF. The 
abort bit Is set if a control card error is found or 
if the binary output of an assembly or compilation 
which had fatal errors is loaded. If the exit card 
contained a parameter (l.e. EXIT(S)) then the exit flag 
is set if the error flag is set. If the exit card 
did not contain any parameters the exit flag is set 
only if the error flag is set and the abort bit is 
not set. 


8.2.5 Environment 


Other routines used: 

a. LOD is called for LOAD, EXECUTE, NOGO or program 
control cards- 

b. REQ is called to process equipment requests 
(REQUEST card). 

c* lEJ is called when all control cards have been 
processed or when an EXIT card is found. 

d. 5DA is called to process private pack control 
cards. 


8.2.6 Other Routines Using lAJ 

a. MTR calls lAJ for job advancement* 

b. lEJ calls lAJ when an EXIT card exists and the 
error flag was set. 


8.2*7 System Tables Used 

FNT The file name table is searched In order to find a 

conmon file during RELEASE card processing. The FNT 
is also searched as a protion of the logic to determine 
if a program call card is calling an absolute library 
program. 

8.2.8 Memory Usage 

lAJ occupies about 4500^ words of PF memory or about 730^ words of 

CM memory If It is CM resident. 
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8*2-9 Usage of Routine 

lAJ Is sequentially reusable* 


8-2-10 Residence of Routine 

lAJ Is normally CM resident in order to minimize disk accesses during 
control card processing. I£ CM space is at a premium, lAJ could be 
placed on disk at a cost of a maximum of 1 disk access per control card 
and 2 disk accesses at the end of a job. Normally, only disk access 
at the end of the job would occur and somewhat less than 1 disk access 
per control card is needed due to the fact that in some cases lAJ can 
process more than one control card without being reloaded. 


8.2-11 Special Assumptions 

No more than 41 parameters are allowed on any absolute library program 
call. This restriction occurs because a small program is loaded into 
RA+53B that edits level numbers and transfers control to the library 
program. This technique is employed so lAJ can drop out before the 
stack request to load the library program is completed- 
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8.3 1 lEJ - End-o£-Job-Processor 

The following write-up presents a general description of lEJ. A 
more detailed description is Included as comments in the code- 

8.3.1 Philosophy 

lEJ is a combination of several functions which at one time were 
separate programs- Combining these programs reduces the number of 
stack requests necessary to load the code for end-of-job processing 
and eliminates some duplication of code. Where possible, all calls 
to CIO have been eliminated by making stack requests through PP re¬ 
sident. In addition, no central memory is used for transferring the 
dayfile to the output file or for dumping the exchange package- This 
allows lEJ to release storage sooner and also eliminates the possibil¬ 
ity of hanging up waiting for a couple hundred words of central memory. 
The dayfile transfer is accomplished by reading from the dayfile to 
a buffer in lEJ using REA0P and then writing to the output using 
WRITE?. The exchange package is dumped using central reads to a 
lEJ buffer and then a WRITE? to the output file. 


8.3.2 General Description 

lEJ, the end-of-job processor is called by lAJ in the following cases: 

1. When all control cards for the job have been processed. 

2. When an EXIT or EXIT(S) card Is encountered. 

3. When the error flag for the job is set. 

In the first two cases the job will be terminated* In the third case 
the job is terminated except when the error flag is set to a value 
other than rerun or kill and an EXIT or EXIT(S) card is contained 
in the job- In this latter case lEJ will issue a dayfile message 
describing the error, dump the exchange package and the area from 
P-tOOB to P+IOOB, flush the buffers of files with special names or 
non-zero disposition and then call lAJ to process the control cards 
after the exit card. 


In all other cases lEJ will terminate the job as follows: 


1. Dispose of all the files associated with the job by one of the 
following means: 


a. Drop the file and all equipment or storage associated with 
the file- 

b. Attach the file to control point 0 for further processing 
(i.e., common or output files). 

c. Call an overlay to dispose of the file (e-g- 6PC for per¬ 
manent files.) 


2 . 
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Transfer the job dayfile to the output file associated with the 
job- 
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3. If the error flag is set to something other than rerun or kill, 
dump the contents of the exchange package and the central memory 
locations P-IOOB through P+IOOB to the output file (DMPX) and 
Issue a dayfile message describing the error. 

4. Release storage for the Job requestt zero priority, set the error 

flag to zero, set the Job name to (or to zeros if the clear 

bit Is set) and zero the control point area from word W.CPTIME 

to W.CPINS-1. 

A, Normal Termination 

If the Job terminates normally (l.e. with the error flag equal to 
zero) lEJ will copy the dayfile to the output file, release storage, 
reset the control point area and dispose of all the files associated 
with the control point as follows: 

1. Private Disk Pack Files 

All private disk pack files are disposed of before any other 
files are disposed of* Information about each file (such 
as name and the RBT chain for the file) is written to the 
disk pack. The file itself remains on the pack, but the FNT 
entry for the file is deleted and the FNT entry for the pack 
is also deleted. RBT chains In central memory for disk pack 
files are released. 

2* Femunent Files 

Each time a permanent file is found, 6PC is called to dispose 
of it. 6PC will delete the FNT entry for the file but normally 
the file will still exist on a mass storage device. 

3. CotBmon Files^ 

The file type in the FNT is set to common; the file is assigned 
to control point zero. The file name and disposition code are 
retained. If the file Is on a non*aIIocatable device, the 
equipment is dropped and turned off. Xf the file is a random 
file, and is set to open write or open alter status, the index 
is written out* 

4- Input File 

The input file is not dropped until after the dayfile has been 
transferred to the output file, and the output file has been 
released. At this tltsie, the disk space for the Input file 
is released (evicted) and the FNT is zeroed. 


* lEJ checks the file type (byte C.FTYPE of the files FNT) and 

the change bit in the FST to determine whether a file is common 
or local. If the change bit is not set the file type is that 
indicated by C-FTYPE- If the change bit Is set then the file 
type is the opposite of that Indicated by C.FTYPE (i.e., if 
C.FTYPE is coQimon the file Is local)* After the change bit 
is checked in routine TtfODF it is reset. 
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5- Output File 

At the start of lEJ the output file buffers are flushed (purged)* 
After the dayfile has been copied to the output file, the 
output file FNT is modified so that the file name is the job 
name, the file type is output, the file is assigned to control 
point zero, and the file is rewound. If the file had a disposition 
code, it is retained otherwise a print disposition is inserted. 

6. Other Special Name Files (PUHCH, PUNCHB, FILMPL, etc.) 

The file buffers are flushed, and the FNT is rewritten so that 
the file name is the job name, the file type is local, and the 
file is assigned to control point zero and is rewound. If 
the file had a disposition code, it is retained otherwise 
an appropriate disposition code is inserted. 

7. Local Files With Non-Zero Disposition Code 

If the file is on a non-allocatable device, the equipment 
is dropped and the FNT zeroed. This is done because JANUS 
cannot handle non^allocatable files. If the file is on an 
allocatable device, the file buffers are flushed, and the 
FNT is rewritten so that the file name is the job name, the 
file type is local and the file is assigned to control point 
zero and is rewound. The disposition code is retained. 

3. Other Local Files 

If the file is on a non-aalocatable device, the equipment is 
dropped. If the file is on an allocatable device, the disk 
space is released. In either case the FNT is zeroed- 

9. Dayfile 

After the dayfile has been copied to the output file, the 
dayfile FET is reset. If part of the dayfile Is on disk, the 
disk space is released, the FNT is rewritten to make the file 
local to control point zero, and the FST Is zeroed. 

B. Abnormal Termination 


The types of abnormal termination and the action taken for each 
are as follows: 

1. KILL 

If the error flag is set to 7 meaning that the operator has 
killed the job, then common files, permanent files, and private 
disk pack files are processed normally; but all other files 
(including output and non-zero disposition files) are dropped 
(i.e., the FNT is zeroed and the disk space released or equip¬ 
ment dropped), a system dayfile message 'UOB KILLEDis issued; 
the control point area is reset and the job name is cleared. 
There is no output of any kind for this case. 
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2. RERUN 

If the error flag ig set to lOB which Indicates that the 
operator has typed-in *'n.REHUN^' then the input file is returned 
to the input queue* Permanent files and private disk pack 
files are processed as in nonoal termination* All files which 
were cocmion at the start of the Job are returned to control 
point zero but all other files are dropped* A pre-output 
file is created^ and the dayfile is copied to this file whose 
name is changed to the Job name and made local with zero dis¬ 
position to control point zero, and is not rewound* This 
file will become the output file when the job is rerun. Then 
before dropping out lEJ resets the control point area* 

3* ERROR 

If the error flag is a non-zero value other than kill or rerun 
then the job terminated due to some type of error (operator 
drop is considered to be in this category). In this case 
the error must be processed and the exchange package must be 
dumped to the output file* Processing then continues as in 
normal termination including the disposing of files, trans¬ 
ferring the dayfile and resetting the control point area* 

G. Other Considerations 


1- Zero-Priority Jobs 

If the job which terminated has zero priority, lEJ will set 
the clear bit on and set the error flag to kill before be¬ 
ginning to process the Job* 

2. CLEAR 

Normally, when lEJ resets the control point area the Job name 
is changed to ^^NEXT”, However if the clear bit in byte C.GPFP 
of the control point area Is set, then the job name will be 
zeroed* 


8*3.3 Major Sections of Code (or Subroutines) 

QNEJ Start of lEJ* Calls ERROR to put out dayfile error message 

if error. Calls PACKS to dispose of private disk pack files. 

DOALL Disposes of all files attached to the control point except 

INPUT, OUTPUT, and private pack files* Galls PURGE to flush 
file buffers. Calls TTODF for common files or files which 
are to be dropped. Calls RLS to put files in the output queue. 

TWODF Assigns common files to control point zero. Calls RANDOM to 
write out the index on random common files* Drops all files 
which are not common* 

CLOS Calls XPACK to generate DMPX type dump* Calls DFILE to transfer 
the dayfile to the output file. Releases the INPUT and OUTPUT 
files and the DAYFILE. Resets the control point area* 
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8,3-4 Other Routines Called 

6PC is called to dispose of all permanent files- 


8.3.5 Memory Usage 

lEJ will occnpy about 5000 octal locations beginning at location 
1000 octal in peripheral processor memory- The length is dependent 
on the installation parameters IP-RESP, IP-EHT and IP-DPAK. The 
remainder of memory and a large portion of the code is organized so 
that it may be overlayed and used for buffer space- 

Buffer areas in lEJ are always accessed using a FIRST^ IN, OUT, LIMIT 
pointer scheme- LIMIT is defined equal to 7777B and Is called BUFLIM- 
The other 3 pointers are stored in direct cells BUFFWA, BUFIK and 
BUFOUT. 


8.3*6 Usage Routine 

lEJ is sequentially reusable. 


8-3-7 Residence 

lEJ may be located in central memory or on an allocatable device. 
Since lEJ is called at least once for every Job, locating lEJ on an 
allocatable device will Increase the overhead for a job. In general, 
this means only one additional access for each job and should be more 
tolerable than current implementations when central memory space is 
at a premium. 


8.3.8 Equipment Interfaces 

lEJ may encounter any hardware device which exists in the system. 

The philosophy of lEJ regarding hardware error statuses is not to 
attempt recovery beyond that provided by the hardware devices- Con- 
sider for example, the alternative. If a hardware error occurs ^diich 
cannot be recovered by the driver, the decision is whether to continue 
or drop the job. Since lEJ Is in the process of dropping the job, 
this procedure would serve no useful purpose. 

8-3-9 Stack Requests - Timing 

All stack requests made by lEJ are through FP resident (E-EREQS, 
R.READP or R-WRITEP). At a minimum, lEJ will Issue one stack request 
to evict the input file and one request to write the dayfile into 
the output file. If part of the dayfile is on disk, it will take one 
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or more stack requests to read the dayfile to the PP and a corres^ 
ponding number of requests will be needed to write the data to the 
output file. The dayfile buffer can hold about 10 PRU^s of dayfile 
data« 

If the exchange package is dumped, the data will fill the exchange 
package buffer about one and 1/2 times so that an additional 1 or 
2 stack requests will be needed to write data to the output file. 
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MEMORY MAP OP lEJ 
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8.4 ILT - LOAD JOB FROM TAPE 



The program ILT is used to load jobs onto disk via magnetic tape. 
The usual procedure for calling ILT is keying through the console 
keyboard* 


8.4,2 General 

ILT is called to a control point by DSD when the operator initiates 
a keyboard entry. The format for the entry is described in the SCOPE 
Ref. Manual, but briefly the format is Y.LOAD,, where Y stands for the 
control point in question. An alternate format is Y.LOADX., where the 
X designates the tape to be loaded as a tape not created under SCOPE 3 
(external to the system). 

A standard circular buffer technique is used to process the input 
file. The first statement of the first record is presumed to be the 
JOB card, and it is processed accordingly. This assumption is made 
for each job on the tape. Standard system I/O is used to both read 
tape into memory and write memory onto disk CIO, and its associated 
overlays are called in for this task. 

When a stack of jobs have been processed from a tape, and if no more 
exist, ILT is released. The end-of-processing indication is a double 
end of file found on the tape. When this is encountered, control is 
transferred to the idle loop. The same procedure is followed if an 
error condition is detected at the control point. 

There is no limit to the n\mber of control cards belonging to a given 
job. Thus, if the user fails to place an end-of-record card behind the 
job card record, this omission will not be detected at load time. 


8-4.3 Method 

A. The Main Routine, ILT 

After initial setup, which includes determination of whether 
tape is internal or external to system, this routine calls 
EXCP to set up buffer parameters, request storage, etc- If 
storage is not available, the PP is released and control is 
transferred to the idle loop. After storage is granted,sub¬ 
routine RQT is called to issue a request function for tape 
assignment. Subroutine RQT calls for REQ with a request PP 
function to assign the correct unit. RQT uses its wait loop 
until assignment has been made and the request function 
completed. 
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A cycle of loading and dumping of information into the buffer 
from tape, out of the buffer to disk, is entered* Upon encountering 
an end of file, this process is terminated* A single end of 
file indicates that end of job has been reached. Then PP time 
is recorded and the job is released* The process continues until 
all jobs stacked on the tape have been transferred to disk. The 
PP is then dropped and control is transferred to the idle loop. 

B. Subroutine ENGP - Enter CP and Buffer Parameters 

This subroutine tests job name in the control point area* If It 
is non-zero, the PP is dropped and control is transferred to the 
idle loop. Otherwise, it places the name LOAD, or LOADX depending 
on the type of tape specified, into the job name; then it requests 
storage- If storage is not assigned, it drops the PP and exits to 
the idle loop* If storage is assigned, it clears RA through RA+2* 
This creates an FET for the file; it sets FIRST, IN, OUT, LIMIT, 
and then returns to the main routine* 

C* Subroutine RQT - Request Tape 

This routine sets up a two word request function parameter list 
in central memory, requests a PP for REQ (the request program) 
and then enters a wait routine till the request has been completed. 

If an error is detected, the control point is aborted* 

D* Subroutine DBF - Umnp Buffer 

This subroutine transfers information from the circular buffer 
to disk. The FET code and status Is set to write out the buffer 
and the buffer is read in. CIO is called to transfer the information 
to disk. DBF enters a wait loop until the operation is complete. 

If an error occurs on the write, the control point is aborted* 
Otherwise, a normal return is made to the main loop. 

E. Subroutine LBF - Load Buffer 

This subroutine loads job files from tape into the circular buffer- 
Initially, the JOB name in the FET is set to tape. The FET code 
and status is set to read tape. Then CIO is called to transfer 
data from tape to the circular buffer. Then LBF enters a wait loop 
until the operation is complete* If an error occurs on the read, 
the control point is aborted. Otherwise, a normal return is made 
to the main loop* 

F. Subroutine ERR - Error Routine 

This routine is called from ILT following return from 2TJ if a 
JOB card error has been detected. It assigns default values to 
field lengths, priority, and time limit. It sets up circular 
buffer parameters and precedes to complete reading of the job. 

This reading is done without an accompanied write which is in effect 
a space forward to end-of-file. Then it returns to the main routine 
which initiates processing of the next job on the tape* 
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G* Subroutine REL - Release Job 

This subroutine is called upon to release a job after it has been 
loaded onto disR* The job name is transferred to the FEX and 2BP 
Is called to check buffer parameters. Field length (both CM and 
ECS) and priority are stored in the second FNT word. File status 
is set to complete- Updated FNT entries are then restored to the 
File Name Table* 

H. Subroutine PPT • Record PP Time 

This subroutine records peripheral processor time in the system 
and job dayfiles* 

I. Subroutine SFT - Shift Job Name 

This subroutine is used to shift the job name one character to 
the right before reading It out to the system dayfile. 


8-4,4 Notes 


A. Routines Called by ILT 

REQ - request function to assign the desired load tape for pro¬ 
cessing by ILT. 

CIO - handles all tape and disk I/O for ILT 

2TJ - translates job card for ILT 

2BP - creates job file FNT entry for ILT 

Dayfile Messages Issued by ILT 

1. During initialization ILT checks the job name at the assigned 
control point- If the job name is non-zero, the following 
message is entered in the system dayfile; 

LOAD(X) -CONTROL POINT IN USE. 

2- Following a Pause request to Monitor, the control point error 
flag is checked* If the error flag is non-zero the following 
message is entered in the system dayfile; 

JOBNAME. CONTROL POINT ERROR. 

3- If a double end-of-file is detected while reading tape, the 
following message is entered in the system dayfile; 

LOAD(X) -COMPLETE. 

4. If an external tape is being used, the FNT is searched and the 
PRU count is set to zero to prevent rewinding. If the search 
is unsuccessful* the following message is entered in the dayfile 

JOBNAME- FILE NAME NOT FOUND. 
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5. If an error is dected after an I/O operation, the following 
message is entered in the system dayfile: 

JOBNAME. CONTROL POINT ABORTED. 

6. If sufficient storage is not available, the following message 
is entered in the control point display: 

AWAITING STORAGE 
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9.0, Stack Processor - SCOPE 3 Mass Storage l/O Package 

The Stack Processor package, consisting of PP program ISF and its over¬ 
lays, performs all operations involving mass storage devices (disks* drums, 
etc.) for all other components of the operating system (except dead start) 
and for all programs processed by the system. Any PP program may cause 
a mass storage I/O operation by using the MTR function M.EREQS (usually 
by calling one of the PP Resident routines R.EREQS, R.READP, R.WRITEP) 
to enter a request into a stack of such requests; a CPU program must call 
a PP program (usually CIO) to issue stack requests for it. Each request 
contains a device number (DST ordinal), identification of the file (FST or 
RBT address), and an order code indicating the type of operation (read, 
write, etc.) to be performed. When a copy of ISP has finished whatever it 
was doing, it looks in the request stack for something to do, chooses one of 
the requests from the stack, and executes that operation. The mass storage 
l/O package is called Stack Processor because it is driven by a request 
stack. 

9.1. Rationale 


In the SCOPE 3 system, mass storage l/O is performed by a specific pro¬ 
gram rather than by subroutines included in other programs, for the following 
reasons, 

1, Mass storage I/O, including device assignment to files, device space 
management, and error detection and recovery, requires a large amount 
of code. The total size of the system is minimized by having only one copy 
of this code. 

2. The various types of mass storage devices supported by the SCOPE 3 
system differ greatly in hardware characteristics such as addressing methods, 
control hinctiou codes, and status response byte formats. With the Stack 
Processor, adding a new type of mass storage device to those that can be 
supported by the system is achieved by adding a new driver overlay to the 
Stack Processor package and making minor changes to a few other system 
components. 
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3. With most mass storage devices, the time spent in positioning the device 
between data transfers is greater than the time spent in actually transmitting 
data. By maintaining a stack of requests for each device, the Stack Processor 
for a device can choose the request that requires the smallest positioning 
time from the device's current position, thus minimizing the total amount of 
time devoted to device positioning. Stack Processor does this, but also uses 
a priority incrementing scheme to ensure that a request involving a large 
positioning time will not be bypassed indefinitely in favor of requests with 
smaller positioning times. 

9.2. Overlay Structure 

The Stack Processor package is divided into overlays for the sake of mod¬ 
ularity and to improve PP memory space utilization. The overlays are 
grouped into main program, driver overlays, and non-standard allocation 
overlays. The main program and driver overlays are contained in one 
assembly (from IDENT to END) with one deck name, ISP, in the Program 
Library filej the overlays are separated by SEGMENT pseudo-operations. 
This facilitates cross-referencing among routines contained in the over¬ 
lays and eliminates the inefficiencies that result from fixed origins and/or 
relocatable code, 

9.2.1. Main Program ISP and 7SZ 

The main part of Stack Processor is device-independent and consists of the 
main program ISP and overlay 7SZ. The overlay contains code that logically 
belongs in ISP but does not fit and is seldom used, so it is loaded, when 
needed, into what is normally the I/O buffer area. 

9.2.2. Driver Overlays 3Sx 

Each driver overlay contains device-dependent code for one type of mass 
storage device. This code is concerned with connect, release, position, read, 
and write operations, error detection and recovery, logical and physical 
addressing correspondence, and access time calculation for the scheduler. 
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The code for each driver overlay is contained in a common deck, RMSx, in 
the Program Library file, because there are two copies of each mass storage 
driver overlay (except RMSX) in the SCOPE system: one copy, 5Cx, is part 
of the Dead Start package and the other copy, 3Sx, is part of the Stack Proc¬ 
essor package. The driver overlays currently provided are listed below. 


common 

deck 

ISP dead-start 
ove rlay ove rlay 

device type 

mnem. 

code 

RMSA 

3SP 

5CP 

6603-1 disk 

AA 

01 

RMSB 

3SQ 

5CQ 

6638 disk 

AB 

02 

RMSC 

3 ST 

5CT 

6603-n disk 

AC 

04 

RMSD 

3 SR 

SCR 

865 drum 

AD 

12 

RMSP 

3SS 

5CS 

854 disk pack 

AP 

07 

RMSX 

3SX 

— 

ECS 

AX 

20 


Dead Start has no driver overlay for ECS, Each common deck name has the 
same last letter as the corresponding device type mnemonic, while the over¬ 
lay names follow a different pattern. Since all of the overlays are assembled 
together with ISP or CONTROL, possible duplicate names are avoided by 
having each location symbol begin with the last letter of the common deck 
name. Thus there are subroutines APOSIT, BPOSIT, ... , XPOSIT, that per¬ 
form similar functions for different device types. When referring to these 
routines in a generic sense (i.e., regardless of device type), a period is 
used to represent the initial letter. Thus .POSIT represents all of the 
positioning routines. 


9,2,3. Non-Standard Allocation Overlays 7Sx 


The non-standard allocation (NSA) overlays are used by Stack Processor 
when working with a file whose allocation style code is greater than 3. Each 
NSA overlay transforms a non-standard record block (RB) designator into 
a standard RB designator and a starting PRU number within that standard 
RB. The name of the NSA overlay used is calculated from the allocation 
style code as follows: 


04-07 

7SA 

30-33 

7SF 

54-57 

7SK 

10-13 

7SB 

34-37 

7SG 

60-63 

7SL 

14-17 

7SC 

40-43 

7SH 

64-67 

7SM 

20-23 

7SD 

44-47 

7SI 

70-73 

7SN 

24-27 

7SE 

50-53 

7SJ 

74-77 

7 SO 
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Each 7Sx overlay must be relocatable (because it is loaded at different 
locations for different 3Sx driver overlays) and must be serially reusable 
(because ISP will not reload it if it is already in core). At present, the 
only NSA overlay supplied with the system is 7SB; it deals with the eight- 
PRU record blocks used by the RESPOND systems. 

9.3. Stack Processor Initiation 


The System Monitor, MTR, assigns program ISP to an available PP when 
any PP issues an enter request stack function, M.EREQS, that references 
a DST entry in which the active flag (byte 4 of the second word) is zero. 
MTR also sets the active flag non-zero and places the DST ordinal in byte 
4 of the ISP input register, ISP is initially assigned to control point zero. 
When ISP is loaded into the assigned PP, it looks at the DST entry refer¬ 
enced by its input register and loads a driver overlay 3Sx, where the "x” 
is a letter in display code found in bits 42—47 of the first word of the DST 
entry. The DST entry also contains the channel and equipment numbers for 
the device. This ISP commences to execute all requests in the stack that 
reference the same DST entry. Ignoring all requests that reference other 
DST entries. ISP assigns itself to different control points as necessary, 
always returning to control point zero whenever a request is completed or 
reissued to the stack. 

9.4. Stack Processor Completion 

A Stack Processor releases its PP, and zeros the active flag in its DST 
entry, when all of the following conditions are satisfied. 

1. The DST entry has entry count = exit count; i.e., there are no requests 
in the stack referencing this DST entry. 

2. The PP Job Queue entry count (maintained by MTR in byte 0 of CM word 
T.MSC for this purpose) is non-zero; i.e., at least one task is waiting for 
an available PP, 

3. The active flags are non-zero in at least two DST entries; i.e., at least 
one other ISP is either running in a PP or waiting to be assigned to a PP. 
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The first two conditions minimize unnecessary dropping-out and reloading 
of the Stack Processor; the third conditioUj together with suitable provisions 
in MTR, ensures that^ at all times, at least one PP contains a Stack Proc¬ 
essor or one PP is reserved for that purpose. This is required so that it 
is always possible to load a system program that resides in mass storage, 

9.5, Order Codes 


This section describes the order codes used in mass storage I/O request 
stack entries. These codes are different from those used in the CIO code 
and status fields of FET and FST entries. For each order code, the 
following descriptions give the octal code, the standard system symbol, 
the standard system macro and CIO codes if any {note that no distinction 
is made between coded and binary mode for mass storage I/O), and the 
actions specified by the order code. The order codes are divided into 
three groups, corresponding to the three formats for the second word of 
a request stack entry. Order codes 06 and 07 are not defined at present. 
No order codes are reserved to installations. 


9.5,1, Central Memory Read/Write Orders 


00 O.READ Corresponds to the READ system macro, CIO codes 010 
and 012. Read data from device to CM until (a) end of in¬ 
formation is reached, (b) a short PRU has been read, or 
(c) the next PRU will not fit into the buffer. 


01 O.RDSK Corresponds to the READSKP system macro, CIO codes 
020 and 022. Read as for O.READ until (a) or (b) above, 
or (c) the CM buffer is completely full; then change to 
O.SKF with N = 1 unless the reading was stopped- by (b) 
with record level > the level in the request, 

02 O.RCMPR No corresponding system macro or CIO code. Read as for 
O.READ but do not transmit the first three CM words of the 
first PRU. This is used for loading programs from the 
system library, in which the first three CM words of eadi 
record contain information of interest only to EDITLIB 
and Dead Start, 
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03 O.RDNS Corresponds to the READNS system macro, CIO codes 250 
and 252. Read data from device into CM buffer until (a) end 
of information is reached, (b) a short PRU with record level 
16 or 17 has been read, (c) a zero-length logical record 
(any record level) has been read, or (d) the next PRU will 
not fit into the CM buffer. This is used by the CPU Loader 
when reading a relocatable binary file, since it does not 
stop at an ordinary end of logical record. 

04 O.WRT Corresponds to the WRITE system macro, CIO codes 014 
and 016. Write data from CM to device until the CM buffer 
contains less than a full PRU. 

05 O.WRTR Corresponds to the WRITER system macro, CIO codes 024 
and 026. Write data from CM until the CM buffer is empty, 
ending with a short (zero-length if necessary) PRU with 
level number specified in the request. If the "eof” flag bit 
is set, corresponds to the WRITEF system macro, CIO 
codes 034 and 03 6. Same as above, but the short PRU is 
followed by a zero-length level 17 logical record (a logical 
end of file mark). 


9.5.2. Peripheral Processor Read/Write Orders 

10 O.RDP Same as O.READ, except read data from device into the 
requesting PP's memory. 


11 O.RDPNP Same as O.RCMPR, except read data from device into the 
requesting PP's memory. Used for loading mass storage 
resident PP programs and overlays. 

14 O.WRP Same as 0,WRT, except write data from requesting PP's 

memory to device, 

15 O.WRPR Same as O.WRTR, except write data from requesting PP's 

memory to device. 


9.5.3. Positioning Orders 

12 O.SKF Corresponds to the SKIPF system macro, CIO codes 240 
and 242. Skip forward until N short PRUs with level > the 
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level specified in the request have been read, or end of 
information is reached. With N “ 777777B, the file is 
positioned at end of information. 

13 O.SKB Corresponds to the SKIPB system macro, CIO codes 640 
and 642. Skip backward one or more PRU until N short 
PRUs with level > the level specified in the request have 
been read, and then move forward over the last of these. 
With N = 777777B, the file is positioned at beginning of 
information (rewound). 

16 O.BPRU Corresponds to the BKSPRU system macro, CIO codes 044 

and 046. Skip backward N PRUs. Note that this reposition¬ 
ing is by physical record units rather than logical records. 

17 O.RCHN Corresponds to the EVICT system macro, CIO codes 114 

and 116. Release all record blocks assigned to the file (by 
clearing their RBR bits) and return the file's RBT word 
pairs to the RBT empty chain. If now possible, the size of 
the RBT area of CM is reduced. If the request references 
an FST entry, restore it to the state it would have after a 
REQUEST hinction; i.e., zeros in bytes 1 and 2 (RBT 
pointers), EST ordinal if a private unit or zero otherwise 
in byte 3, and allocation style code in byte 4. 

9.6, Error Codes 


This section describes the error conditions that can be detected by the 
Stack Processor and how it reacts to them. In some cases, the action de¬ 
pends on debug mode; i.e., the value of IP.DEBUG when ISP was assembled. 
With IP.DEBUG'O, these conditions are treated similarly to other errors: 
place error code in the code and status field of FET and FST entries and 
abort control point if error processing (EP) bit in PET is zero. With 
IP.DEBUG^O, issue an invalid MTR function with the ISP output register 
having 77B in byte 0 and an error code in byte 1. 

9.6.1. End of Information: This is not really an error condition. Put 01 
into bits 9-13 of code/status but do not issue a message nor abort control 
point. 
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9.6.2. Parity Error ; A parity error is reported whenever any possibly 
recoverable device error occurs during a read or write operation. These 
include actual parity error^ lost data, mispositioning, and dropping ready 
during data transmission. The PRU is reread or rewritten up to a total of 62 
attempts (3 for ECS). Whether success Is attained or not, execution of the request 
continues after setting a flag. When execution of the request is completed, 

or the request is about to be reissued to the stack, the flag is examined. 

If the error was recovered, call ISX with code 03 (dayfile message RE¬ 
COVERED PARITY ERROR), but do not affect code/status nor abort the 
control point. If all 62 attempts had failed, call ISX with code 04 (dayfile 
message UNCORRECTABLE PARITY ERROR), put 04 into bits 9-13 of 
code/status, and abort control point if EP bit is zero. 

9.6.3. Invalid RBR Number : This occurs when processing a request that 
references an RBT which contains an RBR number greater than N.RBR -1. 

In debug mode, issue bad MTR request (77B, 05B). Otherwise, call ISX with 
code 05 (dayfUe message NON-EXISTANT RBR REQUESTED), put 05 into 
bits 9—13 of code/status, and abort control point if EP bit is zero. 

9.6.4, Disk Full ; This occurs when processing a write request and a new 
record block is needed but none can be found. If EP bit is one, put lOB into 
bits 9-13 of code/status and terminate the request. If EP bit and control 
point error flag are both zero, call ISX with code 76B (display WAITING — 

DISK FULL) and reissue request with bypass count set to 3. If EP bit is 
zero and control point error flag is non-zero, call ISX with code lOB 
(dayfile message WAITING — DISK PULL) and terminate the request. 

9.6.5, Buffer Parameter Error : This occurs when processing a request 
that references an FET and the following conditions are not all satisfied: 

0 < FIRST < LIMIT < field length 
FIRST < IN < LIMIT 
FIRST OUT < LIMIT. 

Call ISX with code IIB (dayfile message BUFFER PARAMETER ERROR), 
put IIB into bits 9-13 of code/status, and abort control point if EP bit is 
zero. 
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9.6.6. Not Assembled for ECS: This occurs when a request references a 
DST entry for allocatable ECS (device type AX), but driver overlay 3SX was 
assembled with IP.ECNOM = 0. ISP issues a bad MTR request (77B, OOB). 

9.6.7. Undefined Order Code: A request contains order code 06 or 07, 

Call ISX with code 22B (dayfile message INVALID STACK ENTRY), put 22B 
into bits 9-13 of code/status, and abort control point if EP bit is zero, 

9.6.8. Write Impossible ; A write request does not reference an FST entry 
and has no RBT pointer and has zero in the "exact" flag bit (i.e., is not a 
rewrite in place operation). An RBT chain must be started, but there is no 
FST entry in which to store a pointer to the chain. In debug mode, ISP 
issues a bad MTR function (77B, 22B). Otherwise, call ISX with code 22B 
(dayfile message INVALID STACK ENTRY), put 22B into bits 9-13 of code/ 
status, and abort control point if EP bit is zero. 

9.6.9. Invalid RBT Address: An RBT pointer in a request, or in the FST 
entry referenced by the request, is out of range; i.e., greater than the 
number of word pairs in the RBT area of central memory. In debug mode, 
ISP issues a bad MTR function (77B, 77B). Otherwise, call ISX with code 
22B (dayfile message INVALID STACK ENTRY), put 22B into bits 9-13 of 
code/status, and abort control point if EP bit is zero. 

9.6.10. Connect Reject: A request references an l/O unit that cannot be 
connected or is not ready. If the control point error flag is zero, call ISX 
with code 73B (display REJECT — ee STATUS xxxx yyyy) and reissue the 
request with bypass count set to 3. Otherwise, terminate the request with 
no message, 

9.6.11. RBT Space Needed ; This is not really an error condition. A new 
RBT word pair is needed but the RBT empty chain has no members. If the 
control point error flag is zero, call ISX with code 77B (get more RBT 
space from MTR or display WAITING — RBT STORG), and reissue the 
request with bypass count set to 3. Otherwise, terminate the request with 
no message. 
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9.7 System Interface 

This section enumerates the system tables, routines, MTR functions, and 
common decks used by the Stack Processor, and the residency requirements 
for ISP and its overlays. 

9,7.1. Tables 

1. Control Point Areas: the control point error flag and storage move flag, 
and the CM reference address and field length. No interlock needed; the 
Stack Processor never changes these fields. CM RA and FL fields for control 
point zero are used as for other control points. 

2. Device Status Table (DST): all fields of the DST entry whose ordinal is 
given by MTR in the ISP input register. No interlock needed, since only 
MTR changes the first word and only the assigned ISP changes the second 
word. In other entries, only the active flag (byte 4 of the second word) is 
examined. 

3. Equipment Status Table (EST): the mass storage flag (bit 59), unloaded 
flag (bit 53), private flag (bit 52), off flag (bit 23), and DST ordinal (byte 4). 

No interlock needed; Stack Processor never changes these fields. 

4. File Environment Table (FET); code and status field (bits 0—17 of first 
word), error processing flag (bit 44 of second word), and IN and OUT 
pointers (third and fourth words). No interlock needed, since the code and 
status is marked busy (even) before a request enters the stack, and is 
marked complete (odd) by Stack Processor only when execution of the 
request is finished. 

5. File Status Table (FST): RBT/RB/PRU position pointers in bytes 1-4 
of first word, and code and status field (bits 0-17) in second word. No 
interlock needed, for the same reason as with FET. 

6. Record Block Reservation (RBR) area: all of the first header word 
(equipment type code, DST ordinal, unit number, starting RB number, and 
admissable allocation style codes), and bytes 1 (EST ordinal) and 3 (avail¬ 
able RB count) in second header word; also individual RB bits in the 
remaining 36 words are toggled as record blocks are assigned and released. 
No interlock needed, because the only fields that can ever be changed 
(available RB count and individual RB bits) can be changed only by the 
Stack Processor assigned to the same DST ordinal. 
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7. Record Block Table (RBT): all fields. No interlock needed when oper¬ 
ating on a file’s RBT chain, for the same reason as with FET. The pseudo¬ 
channel CH.RBT is reserved only when RBT word pairs are being added to 
or removed from the RBT empty chain. 

8. PP Resident words R.CPRA and R.CPFL.: contain CM reference address 
/ lOOB and field length / lOOB, respectively, for the control point to which 
the Stack Processor is currently attached. 

9. PP Resident word R.STBMSK: contains appropriate mask when calling 
R.STB; always returned to its normal value (7700B). 

10. CM word T.MSC: PP Job Queue entry count in byte 0, looked at but 
not changed by Stack Processor. 

11. ECS Tables: ECST, ICEBUF, and LED are used by the ECS driver 
overlay 3SX. Section 19. 8. 0 contains details. No interlocks are needed 
because only one copy of 1SP + 3SX can be active at a time, 

9,7,2. Routines 

1. PP Program iSX; the Stack Processor Auxiliary program is called by 
ISP (via M.RPJ) to take care of various exceptional conditions (described 
in section 9.6 above) that ISP cannot handle itself or does not have time to 
do itself. For example, ISP cannot issue dayfile messages because if the 
dayfile buffer is fuU, ISP and MTR would loop endlessly waiting for each 
other. When more RBT space is needed, ISP calls ISX to get more RBT 
space from MTR, while ISP proceeds to execute requests that do not 
require RBT expansion. 

2. PP Program MTR: the System Monitor invokes ISP initially (when a 
request entering the stack references an inactive DST entry), supervises 
the addition of all requests to the stack, and performs various functions 
for ISP (see section 9.7.3 below). 

3. PP Resident routine R.DCH: releases a channel reservation. 

4. PP Resident routine R.IDLE: entered when ISP releases its PP. 

5. PP Resident routine R.MTR: used for all MTR functions other than 
reserve or drop channel. 
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6. PP Resident routine R.OVL: used for loading driver overlay 3Sx and 
non-standard allocation overlay 7Sx. 

7. PP Resident routine R.RCH: reserves a channel. 

8. PP Resident routine R.STB: used for inserting controller equipment 
number into device function codes and channel number into l/O instructions. 

9. PP Resident routine R.TFL: used for computing an absolute CM address 
from one that is relative to a control point's RA, and to check whether a 
relative CM address is within the control point's FL. 

10. CP Resident routine ICEBOX: used by the ECS driver overlay 3SX to 
transfer data between ECS and ICEBUF. 

9.7.3, Monitor Functions 

1. M.CCPA: used to switch ISP from control point zero to the control point 
of a request, when necessary to interlock CM storage moves during execution 
of the request: also used when terminating any request {except those at 
control point zero) to switch ISP back to control point zero and to decrement 
the request stack entry count component of the control point's activity count. 

2. M.DPP: releases PP assignment. 

3. M.EREQS: used to reissue a request to the stack. Only the special 
form, with 77B in byte 2, is used by ISP. 

4. M.ESTZ: used to mark a unit active when a file is assigned to the unit. 
Only the form with lOB in byte 2 is used by ISP. 

5. M.ICE: used by the ECS driver overlay 3SX to initiate central executive 
2 (ICEBOX). 

6. M.RBTSTO; used to reduce the size of the RBT area when all of the last 
lOOB words of the area belong to the RBT empty chain. 

7. M.RCH: used (rather than R.RCH) with zero in byte 4, to reserve the 
pseudo-channel CH.RBT only if it is immediately available. 

8. M.RPJ: used for calling ISX to another PP. 

9. KILiLMTR (77B): used for aborting the system when an impossible error 
condition is detected. 
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9.7.4. Common Decks 

1, IPARAMS: the following installation parameters are used by ISP: 

IP.DEBUG — determines whether certain error conditions are to be treated 
like other errors or will cause ISP to issue a bad MTR function. 

IP.ECLRB — used by 3SX to calculate an absolute ECS address from logical 
RB and PRU numbers. 

IP.ECNOM — if zero, causes only a dummy 3SX to be assembled; otherwise, 
determines the size of the LRD. 

2 . ECSCOM: the following BNL ECS parameter is used; 

E.ALLOC — used by 3SX initialization to get allocatable block pointer word 
from ECST, 


9.7,5. Residence Requirements 


Program ISP and overlay 7SZ must be CM resident. The 3Sx driver over¬ 
lay's) for the system residence device(s), and for all devices that may be 
used for system residence, must also be CM resident. Driver overlays for 
device types not included in the installation's configuration may be deleted 
from the system. Non-standard allocation overlays 7Sx must be CM resi¬ 
dent if they are to be used; otherwise they may be deleted from the system 


PP Memory Allocation 


The Stack Processor PP memory is divided into the following areas; direct 
cells, PP Resident, low-core working storage (overlaying initialization code), 
main program ISP, middle-core working storage (also overlaying initiali¬ 
zation code), driver overlay 3Sx, non-standard allocation overlay 7Sx, unused 
area, and high-core working storage (including l/O buffer area shared with 
overlay 7SZ), Figure 9-1 shows these areas and their approximate locations. 
Each area is described below. 

9,8,1. Direct Cells (0000—0077) : Cells 00 through 17 are used as local 
scratch cells by many subroutines, and cells 75, 76„and 77 contain pointers 
to the PP's communication area in CMR. Except for these, the direct cell 
arrangement used by Stack Processor is different from most other SCOPE 
3 PP programs. Figure 9-2 shows direct ceils 17-47, and cells 50-77 are 
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shown in Figure 9-3. The only infraction of SCOPE 3 convention is the use 
of D.PPIR (0075) to hold the constant 0500B; it is restored to its normal 
value (D.PPOR~l) before ISP releases the PP. 

9.8.2. PP Resident (0100-0775) : PP Resident routines and tables used by 
Stack Processor are mentioned in section 9.7. When ISP is loaded, its PP 
program header word is stored in cells 0773-0777; contrary to SCOPE 3 
convention, the last two of these five bytes are used as working storage 
when ISP is running. 

9.8.3. Low-core Working Storage (0776-1056) ; When ISP is first loaded, 
cells 0776 and 0777 contain the last two bytes of the PP program header 
word, and cells 1000—1056 contain part of the initialization routine. After 
initialization is completed, this area is used for working storage as 
described below. 

1. NUNITS (0776): contains the unit number (0 to 7) of the largest-numbered 
unit on the controller described by the DST entry to which this ISP is assigned. 

2. NRBRS (0777); contains the value of N.RBR at the time CMR was 
assembled. 

3. POOL (1000-1043): is a table containing NRM entries (rooms) of three 
bytes each. At present NRM = 12. Each room is either empty or contains 
some information about a request stack entry. This information includes a 
pointer to the full two-word request in the stack area in CM, and information 
for use in selecting the next request to be executed. Entries are added to 
POOL by the stack search routine and deleted by the request termination 
routine. 

4. RBTWRD (1044-1056); is an eleven-byte area containing the first or 
current RBT word pair for the current request in the first ten bytes. The 
eleventh byte is a copy of the first byte (next word pair in chain, or zero). 

5. NSRUN (1044-1053): is the first eight bytes of the RBTWRD area. 

During execution of the request selection procedure, byte NSRUN+ i 
contains the number of requests in POOL for unit i, 0 < i < NUNITS. 

9.8.4. ISP Code (1057-approx. 6077) : This is the non-initialization part 
of the main program, ISP. 
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9.8.5. Middle-core Working Storage (approx. 6100-6121) ; This area over¬ 
lays part of the ISP initialization code, the 3Sx overlay header word, and 
the first two data bytes of overlay 3Sx. The first data byte contains the first 
byte address of the 3Sx linkage parameter list, and the second contains the 
first byte address of an R.STB list for insertion of the controller equipment 
number into device function codes. After the driver overlay 3Sx is loaded 
and initialization completed, this area is used for working storage as 
described below. 

1. UNIT {approx, 6100—6107): is an eight-byte array giving the current 
position of each mass storage unit on the controller. Byte UNIT + i contains 
the current position, in standard record block designator format, of unit i, 

0 < i < NUNITS. If the current position of a unit is not yet known, its byte 
contains zero. 

2. SCRAP {approx. 6110—6121): is a ten-byte area which usually contains 
the current two-word request stack entry. It is used, rather than the copy 
in direct cells 52 — 63, when the CM copy of the request is to be modified 
without changing the direct cell copy. 

9.8.6. 3Sx Code {approx. 6122—6720) : This is the non-initialization part 
of the driver overlay 3Sx. For each driver, the symbol .NSAORG is the last 
byte address plus one of this area. 

9.8.7. 7Sx Code {approx. 6721-6744) : This area contains the overlay 
header word and code for whatever non-standard allocation overlay, if any, 
is in core at the moment. The total size of a 7Sx overlay, including the 
overlay header word and initialization code, must not exceed the smallest 
value of .PATCH for all of the driver overlays with which the NSA overlay 
will be used. 

9.8.8. Unused Area (approx. 6745-7151) : This area is available as patch 
space. At present, the smallest unused area size (approx. 205B bytes) is 
with 1SP + 3SQ+7SB; i.e., the 6638 disk driver with RESPOND interface. 

9.8.9. High-core Working Storage (7152-7777) : The 3Sx initialization 
code may extend into this area but after initialization is completed, bytes 
7152 (DRIVEND) and above are used for working storage as described 
below. 
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1. SXDATA (7152—7170): is a fifteen-byte (three CM words) area contain¬ 
ing information that is written to the ISP message buffer for use by program 
ISX when a device error is detected. A detailed description is given in the 
ISX section of this document. 

2. RBCOUNT (7171): contains the maximum number of record blocks to 
be processed by the current request before it is reissued to the stack. It 
is set by .SHIFT and used by .POSIT in those driver overlays in which the 
symbol MAXRBCT was SET by the installation to some value less than the 
number of record blocks per cylinder for that device type. 

3. ORDLEV (7172); contains the record level specified in bits 18—21 of 
the first word of the current request. It is significant only during execution 
of order codes O.RDSK. O.WRTR, O.WRPR, O.SKF, and O.SKB. 

4. RBREST (7173): contains the EST ordinal from byte 1 of the second 
header word of the RBR currently referenced. It is set by RBRDEV in iSP 
and used by PRURDZ and PRUWTZ in 7SZ. 

5. lOBUF (7174-7677): contains the PRU currently being transmitted to 
or from the mass storage unit. The first byte is not used. The second byte 
(WCTA) contains the length of the PRU in bytes. The next 500B bytes 
(WORDO and following) contain the 320 bytes = 64 CM words of data in the 
PRU. For a short PRU byte WORDO + (WCTA) contains the logical record 
level in binary form, and the remaining bytes are unused. The last two 
bytes of the lOBUF area are used only with 6603-11 and 6638 disk units; 
they contain the physical address of the PRU and are used to verify unit 
positioning. When the lOBUF area does not contain a PRU of data, it may 
contain overlay 7SZ. In this case, the overlay header word is loaded 
starting at lOBUF. 

6. HOLDER (7700-7777): is used only during execution of an O.SKB 
request. It contains the PRU numbers of all short PRUs in the current RB 
having record level > the level specified inithe request. Since the longest 
possible RB is 64 PRUs (6603 disk outer zone), HOLDER is 64 bytes in 
length. 
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9.9. Narratives 


This section describes the individual routines that comprise the Stack Proc¬ 
essor package. The routines in overlay 7SZ are extensions of ISP routines 
and therefor are not described in a separate section. The routines are grouped 
into major sections of code, which are described below in the order in which 
they appear in the assembly listing. 

Initialization ; Executed once when ISP is loaded, Sets up all constants, 
pointers, etc. that will not change until ISP releases its PP. Loads the 3Sx 
driver overlay. All of the initialization code is overlaid by working storage 
and 3Sx code. 

Search of Request Stack: Executed after Initialization and each time execu¬ 
tion of a request is terminated. Searches the request stack and constructs a 
POOL entry for each request that is a candidate for execution. If an immed¬ 
iate request (i.e., one that requires no physical device access) is found, it is 
executed as soon as it is found. 

Selection of Best Request: Executed after Stack Search if no immediate 
request was found. Examines all POOL entries and chooses one request for 
execution, based on request priority and device access time comparisons. 

Initiation of Request Execution: Executed when Stack Search finds an 
immediate request or when Selection has chosen the optimal non-immediate 
request. Performs initialization of working storage and modifies instructions 
where necessary, to prepare for execution of the request, and then jumps to 
the executive routine specified by the order code. 

Request Executives: A group of routines, one for each order code, that 
perform the actual execution of requests. They call read/write subroutines, 
manipulate buffer and file pointers, etc. as needed for each order code. 

Termination of Request Execution : Entered when an executive determines 
that execution of the current request is either completed or must be suspended 
temporarily (by reissuing the request to the stack). File and buffer pointers 
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and code/status fields are updated. If necessary, the PP is released: other¬ 
wise, control goes back to the Stack Search section. 

Advance Record Block Subroutines: Called by the executives when a record 
block boundary is reached, to find or allocate the next record block. The 
three subroutines are for backspacing, reading, and writing. 

Miscellaneous Subroutines; This section contains closed subroutines that 
do not belong in any one of the above sections. 

Driver Overlays : Contain all code that varies among device types. Like- 
named routines in each driver perform similar functions, and appear in the 
same order in all driver overlays. 

9.9.1. Initialization 


The ISP initialization procedure is in two parts. When ISP is loaded, R.IDLE 
jumps to C.PPPWA (1000) which contains a jump to the first part of Initial¬ 
ization beginning at OVER (approx. 6100). This code does all initialization 
that can be done before the driver overlay 3Sx is loaded. It then jumps to the 
second part of Initialization beginning at INITIAL (1002) which loads 3Sx and 
does initialization that must be done after 3Sx is loaded. 

OVER: setup constant TWO, read P.RBR and P.RQS into RBRPWD and STLWD 
respectively, and store the EST base address from P.EST into LOCEST. 

OVERB; compute number of RBRs = (T.DST - T.RBR) / RBRSIZE and 
store into NRBRS. 

OVERC: adjust the STASA and.STACT bytes of STLWD because the rest of 
the system uses zero-origin indexing for request stack entries but ISP uses 
one-origin indexing so that an empty POOL room contains zero. Read the 
assigned DST entry into DSEWDl and DSEWD2 (the assigned DST ordinal is 
found in cell 22 because R.IDLE reads the input register into 16—22 so the 
program name is where R.OVL expects it). 

OVERE: search the EST and store into NUNITS the unit number of the 

large St -numbered mass storage unit on the assigned controller. This is used 

to eliminate unnecessary passes through the outer loop in the Selection section. 
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OVERA: move linkage parameter list PARAMS to high core so it will not 
be destroyed whenSSx is loaded. Save EQUIP byte of DSEWD2 so this cell 
can later be used with CSTSWD. Store HPOSl and HPOS2 into the first two 
bytes of UNIT and zeros into the remaining six bytes. Setup constant 
MAXPRU. Store driver overlay name 3Sx into cells 16-17 for R.OVL. 

OVERF; if the device has very tight timing (currently, the 6603-11 and 6638 
disks qualify), modify some instructions so that the time lost to PP pyramid 
conflicts between PRUs is minimized if the Central Memory Access Priority 
(CMAP) optional feature is installed. 

OVERD: put 3Sx load address into A-register for R.OVLi and go to INITIAL. 

INITIAL; call R.OVL to load driver overlay 3Sx. Call MODIFY to process 
the linkage parameter lists; the primary purpose is to store locations 
defined in 3Sx into their points of reference in ISP. Call R.STB to insert 
controller equipment number into bits 9-11 of all device function codes. 

Set flag saying no non-standard allocation (NSA) overlay 7Sx is in core. 

SETCHAN: this code is stored from the linkage parameter list because it 
depends on device type. For 6000-series devices, call R.STB to store the 
channel number into all l/O instructions, since only one channel can be used. 
For 3000-series devices, store the channel number(s) into .CHRQA for later use 
since the device niay be attached to two channels and, if so, it is fastest to 
use whichever channel is available when one is needed. For ECS, store the 
channel number(s) for the same reason, and go to XINIT (in 3SX) to setup 
the absolute base address of the allocatable portion of ECS; return to INITA. 

INITA: store zero into CUR, so that HPOSl = UNIT + (CUR). 

INITLP: this code is located in what will later be the RBTWRD working 
storage area. Zero out the code just executed, which now becomes the 
POOL working storage area, and go to ORDEXE in the Termination section, 
to prepare for Stack Search. 

9.9.2. Search of Request Stack 

This procedure searches the request stack area of CM to find all requests 
that are candidates for execution by this ISP, Each such request is recorded 
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in POOL if not already there. When an immediate request (one involving no 
physical device access) is found, stack searching is discontinued and execu¬ 
tion of the request is initiated. Otherwise stack searching ends when all 
relevant requests have been found or POOL is full, and control passes to the 
Selection section. The code from VERI to VERIX is executed twice for a 
non-immediate request: once during stack searching and again when the 
request has been selected for execution. 

STAKAA: upon entry CTA contains the number of request stack entries 
that reference this ISP's DST entry. The stack is searched from high core 
to low, so CX^ is set to point to the high end. 

POO LA: find next vacant POOL room and store its room number in RMNR. 
POOLB: if POOL is full, go to Selection. 

POOLD: if CTA is zero, go to Selection. 

POOLE: decrement CXAD and look at requests until one is found containing 
the DST ordinal for this ISP, then decrement CTA. Go to POOLD (i.e., 
ignore the request) if it is already in POOL (bit 11 of first word of request is 
set). If the bypass count (bits 9-10 of first word) is non-zero, decrement it 
and go to POOLD to ignore the request until next stack search time. 

POOLG; the request is a candidate for execution by this ISP and is not in 
POOL yet. Store CXAD (pointer to request in stack) into POOL entry, 

VERI: store control point number from request into OCTLPT. Store zero 
into ORDTYPE if the request is a write but not rewrite in place operation, 
otherwise store non-zero. Thus, ORDTYPE = 0 means the request is 
capable of allocating record blocks and RBT word pairs. Setup default 
values for last RB length, allocation style code, and code/status. Go to 
STKCPLA if the request contains an FST address. If RBT pointer is also 
absent, report end of information (9.6.1) or write impossible (9.6.8) 
depending on ORDTYPE; otherwise go to STKCPLG. 

STKCPLA: save the FST address in FSTADR, and read the two FST words 
to get the RBT pointers and code/status. If the first and current RBT 
pointers are both zero, go to STKCPLB. If one of them is zero, make it 
equal to the other. Go to STKCPLH if first RBT pointer is out of range. 

Read the first RBT word pair and go to STKCPLF. 
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STKCPLB: FST present but no RBT chain. Report end of information or 

go to STKCPLZ (in 7SZ) depending on ORDTYPE. 

STKCPLZ: call LOCATE to find a suitable RBR for the file. If none was 

found, report disk full (9.6.4); otherwise go to STKCPLD. 

STKCPLD: reissue the request if the located RBR has another DST ordinal. 

Otherwise, call NRBTW to get an RBT word pair from the empty chain or 
reissue the request if none is available. Setup the file's first RBT word pair 
and make the FST point to it. 

STKCPLF: enter with first RBT word pair in RBTWORD area. Store alloca¬ 
tion style code and last RB length into ALLOC and EOIPRU respectively. 

STKCPLG: all paths rejoin here. Check current RBT pointer for validity; 
go to STKCPLX if in range. 

STKCPLH: report RBT address out of range (9.6.9). 

STKCPLX: read current RBT word pair into RBTWRD area. Find current 

RB byte if ORDTYPE is non-zero, otherwise skip to end of information 

VERIAC: call ADRCOM to get the current RBR'number and RB designator. 

If the latter is zero, call SEEKRB and GETPOS to find and standardize an 
available RB. The RB is not actually allocated; i.e., its RBR bit is still 0. 

VERIAB: store RB designator (standardized if necessary), unit number, 

and priority flag bit into POOL entry. Reissue the request if the current 
RBR references another DST entry. 

VERIC: if VERI was entered from the Selection section, or if the request 

is immediate, go to VERIX; otherwise, go to VERIE. A request is immed¬ 
iate if it is one of the following: 

O.SKF with N = 777777B (skip to EOI), 

O.SKB with N = 777777B (rewind file), 

O.BPRU (backspace PRUs), or 
O.RCHN (release chain). 

VERIX: go to Initiation to begin execution of the request. 

VERIE: set bit 11 of the first word of the request in CM to show that it is 
in POOL, call .SECADR to get the starting physical sector number and store 
it in the POOL entry, zero the request subpriority, and go to POOLB to 
continue stack searching. 
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9.9.3. Selection of Best Request 


This section is entered when Stack Search finishes without having found an 
immediate request. Selection chooses one request from among those in 
POOLt, using device access time and request priority as criteria, and exits 
to VERI in the Stack Search section, to prepare for execution of the chosen 
request. 

SELECT: search POOL and store the number of requests for unit i into 
NSRUN + i, 0 i ^ NUNITS, It is possible that POOL is completely empty 
if all request stack entries were discarded or bypassed for various reasons. 
If so, (CUR) is stm 7776B from the loop that cleared NSRUN; go to ORDEXE to 
prepare for Stack Search again. If POOL is not empty, call .ACTIVC to 
reserve a channel and store the current aiig'ilar positions into ANGPOS. 
Exception: for ECS, a channel is not reserved until initiation of request 
execution, and then only for a PP l/O request. 

SELECTD through SELECTM is the outer loop, executed once for each unit 
0 to NUNITS; CUR contains the current unit number. If NSRUN + (CUR) is 
zero the loop does nothing. Otherwise, store head position from UNIT + (CUR) 
into HPOSl for easy access by 3Sx. 

SELECTF through SELECT! is the inner loop, executed once for each POOL 
entry; RMNR contains the current room number. If the room is vacant or 
contains a unit number other than (CUR) the loop does nothing. Otherwise: 


Store the request priority and subpriority in a scratch cell. Subpriorities 
0-6 are stored as 0; thus there are four priority groups: 

17 priority 1, subpriority 7 

10 priority 1, subpriority 0—6 

07 priority 0, subpriority 7 

00 priority 0, subpriority 0-6. 

The request is ignored if its priority group is less than that of the '’best" 
request found thus far for unit (CUR). 


SELECTH: call .HEAD to compute the access time (latency only for drums, 
head motion and latency for 6638 disks, head motion only for other disks, 
and zero for ECS). If this request's priority group is greater than that of 
the "best" request thus far for unit (CUR), this request is now the new 
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"best" request thus far for unit (CUR)j regardless of access time. If the 
priority groups are equal, the request with the smaller access time be¬ 
comes the new "best" request thus far for unit (CUR). 

SELECTK: inner loop completed; the "best" request for unit (CUR) has 
been found. Store the new head position into UNIT + (CUR) and call .SHIFT 
to initiate head motion if necessary. The outer loop chooses the "best" 
request across all units, by a method similar to that used in the inner loop 
to choose the "best" request for one unit. 

SELECTN: outer loop completed; the request to be executed now has been 
chosen. For each POOL entry, add 1 to the subpriority if it is not already 7. 

SELECTR: extract unit number and stack location from chosen POOL 
entry and store into CUR and CXAD respectively. Store head position 
from UNIT + (CUR) into HPOSl for easy access by 3Sx. Read the full 
two-word request stack entry. Clear bit 11 of the first word of the CM 
copy of the request to show it is no longer in POOL. Exit to VERI (in 
Stack Search section) to get ready for request execution. 

Note that each time Selection is executed, .SHIFT is called exactly once 
for each unit for which POOL contains at least one request. This ensures 
maximum use of the "seek overlap" capability of a subsystem such as a 
3234 controller with up to eight 854 disk pack units. 

9.9.4. Initiation of Request Execution 

A request has been chosen for execution. This section is entered from 
VERK in the Stack Search section, does all initialization prior to actual 
execution of the request, and exits to the appropriate executive routine. 

EXEC: call ASSIGN to attach ISP to the control point of the request if 
appropriate. For ECS only, go to XGETCH (in 3SX) to reserve a channel 
if the order code specifies PP I/O, and return to STAKCB. 

STAKCB; call MODIFY to setup various instructions and switches for 
reading or writing depending on the order code. Call .RDINST or .WTINST 
to setup the driver overlay for reading or writing. Go to RWCMOD if the 
order code is non-write. 


October 1969 


9-23 



SCOPE 


WTINIT; order code is some kind of write. If the "exact" flag bit is zero, 
go to WTINSTA. Otherwise, the request is a rewrite in place operation; 

Stack Processor becomes slightly schizophrenic in this case, with the 
.POSIT and SECOMP routines setup for reading and all other code for 
writing. 

WTINSTA: call SECOMP to determine length of current record block. 

RWCMOD: all paths rejoin here. For a CM l/O or positioning request, 
go to RWCMODB. For a PP l/O request, store the channel number (to be 
used for transmitting data between ISP and the requesting PP) into the 
communication word, and set the control flag to 1. Upon sensing this, the 
requesting PP will store the channel number into its own lAM/OAM 
instruction and acknowledge by setting the control flag to 2. Initialization 
for PP l/O is completed; go to GOTOIT to jump to the proper executive. 

RWCMODB: order code is not PP l/O. Zero some work areas. For a 
positioning request, initialization is completed; go to GOTOIT to jump to 
the proper executive. The remainder of this section, down to GOTOIT, 
performs initialization for a CM l/O request. Test for FIRST < LIMIT 
and LIMIT < field length and report buffer parameter error (9.6.5) if 
either test fails. For CM I/O with some devices, inter-PRU timing is 
very tight. The remaining code presets many instructions in the CEMIO 
and RDMSTR subroutines (see 9.9.5.1) to minimize their execution time. 

STAKCC: go to RWCMODC if an FET is present. Otherwise, set switches 

in CEMIO for the no-FET case, set AFLD (IN for reading, OUT for 

writing) equal to the first word address of the CM buffer, and go to RWCMODE. 

RWCMODC: setup LDC instructions in CEMIO with the absolute addresses 
of the IN and OUT pointer words, and read the appropriate word (IN for 
reading, OUT for writing) into AFLD. 

RWCMODE through RWCMODN: setup various instructions in CEMIO with 
the absolute FIRST and LIMIT addresses for the CM buffer area. 

RWCMODF: test for FIRST :£ AFLD and AFLD < LIMIT and report 
buffer parameter error (9.6.5) if either test fails. 

RWCMODI: setup switches in the CEMIO and RDMSTR subroutines depend¬ 
ing on the "no-FET" and "exact” flag bits. 
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RWCMODJ: setup switches in RDMSTR if the order code is O.RDNS, because 
ordinary short PRUs do not stop execution of this order. 

GOTOIT: all paths rejoin here. Using the order code as index, get address 
of proper executive routine from the table ORDRAD and jump to that 
routine in the Executives section. 

9.9.5. Request Executives 

This section performs the actual execution of requests. The routines are 
arranged in three groups: CM read/write, PP read/write, and positioning. 
Each routine exits to the Termination section. 

9.9.5.1. CM Read/Write Executives , 

These routines control all transmission of data between mass storage and 
central memory. Their common code is in two subroutines, RDMSTR and 
WRMSTR, which in turn call subroutine CEMIO and subroutines in 3Sx. 

RCMPRO: executive for O.RCMPR orders. Set switches in CEMIO to skip 
the first three CM words of the first PRU read, change order code to 
O.READ, and fall through to READ. 

READ: executive for O.READ and O.RDNS orders. Set switch in RDMSTR 
to backspace upon reading a PRU too large for the CM buffer, and call 
RDMSTR. If execution was completed, go to Termination. If stopped by 
buffer full and order is O.RDNS and last PRU transmitted to CM was short, 
store zeros in WDCT and WORDO so that the code/status will show that 
the file is positioned between logical records, and then go to Termination. 

RSKP: executive for O.RDSK orders. Set switch in RDMSTR to exit 
without backspacing upon reading a PRU too large for the CM buffer, and 
call RDMSTR. Go to RSKPB if a short PRU was read and all of it was 
transmitted to CM. Otherwise, call CEMIO to transmit as much of the PRU 
as will fit into the CM buffer, then go to RSKPC if it was not a short PRU. 

RSKPB: short PRU found. If its level is > the level specified in the request, 
go to Termination. 
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RSKPC: store 1 into LEVCT, change order code to O.SKF, and go to that 
executive routine {section 9.9.5.3, label SKPFB). 

WRIT: executive for O.WRT orders. Call WRMSTR and go to Termination. 

WRTR: executive for O.WRTR orders. Call WRMSTR to write as many 
full PRUs as are in the CM buffer, then call CEMIO and .RDISK to get and 
write a short PRTJ whose length is the remaining buffer content {possibly 
zero) and whose level is that specified in the request, and go to Termination. 

Subroutine RDMSTR; common code for all reading from mass storage to 
central memory. Call SECOMP to determine length of current record block. 
To save execution time in inter-PRU processing, setup return address for 
.POSIT, .RDISK, and CEMIO so each jumps directly to the next; this 
eliminates three RJM instructions. 

RDMSTRA: go to .POSIT to setup for next PRU, thence to .RDISK to read 
the PRU into lOBUF, and then to CEMIO to send the PRU to the CM buffer 
if it will fit. If it did fit, go to RDMSTRC. If order code is not O.RDSK, 
backspace over the PRU, Return to caller with A-register negative to 
indicate reading stopped by buffer full. 

RDMSTRC: if order code is O.RDNS and the PRU just sent to CM was the 
first of a logical record and had zero length, go to RDMSTRJ. Otherwise, 
if the PRU was short, go to RDMSTRH if order code is O.RDNS or to 
RDMSTRG for other orders. If the PRU was not short, go to RDMSTRE if 
the "no-FET" and "exact" flag bits are both set; otherwise cancel the 
first test at RDMSTRC and loop to RDMSTRA for the next PRU. 

RDMSTRG: non-O.RDNS request execution completed by reading a short 
PRU; return to caller with A-register positive. 

RDMSTRH; order is O.RDNS and a short PRU has been read. If its level 
is 16B or 17B, go to RDMSTRJ. Otherwise, reactivate the first test at 
RDMSTRC {because the next PRU will be the first of a logical record) 
and go to RDMSTRA for the next PRU. 

RDMSTRJ: order is O.RDNS and a logical record with zero length and/or 
level 16B or 17B has been read. Store 17B as record level read (so code/ 
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status will say end of file) and return to caller with A-register positive to 
indicate reading was stopped by a condition other than CM buffer full. 

RDMSTRE: the ’’exact" and "no-FET" flag bits are both set, and a PRU is 
about to be read. If the CM buffer is completely full, return to caller with 
A-register negative; otherwise go to RDMSTRA for the next PRU. This 
kludge is required by the OPTIMA system, whose files do not end with 
short PRUs and sometimes have inaccurate end of information pointers. 

Subroutine WRMSTR: common code for writing full PRUs from central 
memory to mass storage. To save execution time in inter-PRU processing, 
setup return addresses for .RDISK, .POSIT, and CEMIO so each jumps 
directly to the next; this eliminates three RJM instructions. Go to .POSIT 
to setup for next PRU and thence to CEMIO to get the PRU from CM, 
returning to WRMSTRC. 

WRMSTRC: if CEMIO found that the CM buffer contains less than a full 
PRU, return to caller. Otherwise, go to .RDISK to write the PRU to the 
device, thence to .POSIT to setup for the next PRU, and then to CEMIO to 
get the next PRU from CM, returning again to WRMSTRC. 

Subroutine CEMIO: handles all data transfer between lOBUF and a buffer 
in CM, one PRU at a time, and updates the IN or OUT pointer if an FET is 
present. Upon entry, WDCT contains the PRU length in bytes. 

CEMIOC: if order is O.RCMPR and this is first PRU, go to CEMIOA to 
adjust instructions and W'DCT to bypass the first 15 bytes of the PRU, and 
return to CEMIOT. Otherwise, compute the PRU length in CM words. If 
it is 500B bytes* this is lOOB CM words (i.e., a full PRU); go to CEMIOD. 

CEMIOT; the PRU is short; divide WDCT by 5. 

CEMIOD; store PRU length in CM words into CMWDCT. If order is O.RCMPR 
and this is first PRU, go to CEMIOB to restore WDCT to its true value (for 
later short PRU tests) and return. If no FET is present, store LIMIT - 1 
into BFLD. Otherwise, read the appropriate pointer word (OUT if reading, 

IN if writing) into BFLD. (This is done each time through CEMIO, so that 
Stack Processor and the requestor can chase each other around the circular 
buffer, processing data at device speed through many bufferfuls.) Test for 
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FIRST < BFLD and BFLD < LIMIT and report buffer parameter error 
{9.6.5) if either test fails. 

CEMIOG; compute the buffer capacity (reading) or content (■writing) in CM 
words. This is the directed distance (in a circular sense) from (AFLD) to 
(BFLD), minus one if reading (since IN =OUT means buffer empty, not full). 

CEMIOJ; this amount is less than (CMWDCT), so multiply it by 5 (to get 
byte count) and store result in CTA, and return to caller with A-register 
negative to indicate nothing was transmitted. 

CEMIOK through CEMION; buffer wraparound may occur within this PRU 
because (AFLD) > (BFLD). Area 1 is the part of the PRU from (AFLD) to 
LIMIT auid its length (in CM words) is stored in CTA. Area 2 is the part of 
the PRU starting at FIRST, and its length (in CM words) is stored in 
CMWDCT. Either or both may be zero, but their sum equals the PRU 
length in CM words. 

CMIOMODl: this is the CRM or CWM instruction that transmits the first 
part of the PRU to or from area 1 of the CM buffer. If area 2 does not 
exist, add the PRU size to (AFLD) and go to CBMIOS. 

CMIOMOD2: this is the CRM or CWM instruction that transmits the second 
part of the PRU to or from area 2 of the CM buffer. Store FIRST + (CMWDCT) 
into AFLD. 

CEMIOS: if no FET is present, go to CEMIOY, Otherwise, write the 
updated AFLD to the appropriate pointer word (IN if reading, OUT if 
writing) and go to CEMIOX. 

CEMIOY: store the updated AFLD into the START field of the request 
stack entry, so that l/O will not start over from the beginning of the buffer 
if the request is reissued before it is completed. 

CEMIOX: return to caller with A-register positive to indicate that a PRU 
was transmitted. 

9,9.5.2. PP Read/Write Executives 

These routines control all transmission of data between mass storage and 
the peripheral processor memories. Their common code is in subroutine 
PPIO. 
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When a PP issues a PP l/O request (order code 10, 11, 14, or 15), the re¬ 
quest stack entry is in the first two words of the requesting PP's message 
buffer, and the third word is the "communication word" which is to PP l/O 
what the FET is to CM l/O. Figure 9-4 shows the formats of this word 
during processing of a PP l/O request. When the request enters the stack, 
the control flag is zero. When ISP selects the request for execution, it 
sets the channel number and changes the control flag to 1. (The same data 
channel is used for transmission between ISP and the mass storage device, 
and between ISP and the requesting PP.) The requestor stores the channel 
number into its own lAM/OAM instruction and changes the control flag to 
2, For reading: ISP reads a PRU from the device, stores PRU length (in 
bytes) in communication word and changes control flag to 3, and sends 
(via OAM) the PRU to requestor, who then changes the control flag back to 
2. For writing; ISP stores PRU length (in bytes) in communication word 
and changes control flag to 3, accepts (via lAM) the PRU from requestor 
who then changes control flag back to 2, and ISP then writes the PRU to the 
device. In either case, when the control flag is 2 and ISP determines that 
execution of the request is completed, it stores a ClO-style code/status 
(including error code and record level) into the communication word and 
changes the control flag to 4. The requesting PP acknowledges receipt of 
the code/status by changing control flag to 5, after which ISP changes the 
control flag back to 0 and processing is finished. 

PPRD: executive for O.RDP and O.RDPNP orders. Call SECOMP to de¬ 
termine length of current record block. 

PPRDA: call .POSIT and .RDISK to prepare for and read next PRU. If 
order code is even (i.e., not O.RDPNP) go to PPRDD. Adjust WDCT and 
the OAM instruction to skip the first three CM words (15 bytes) of the PRU, 
call PPIO to send the PRU to requesting PP, restore the OAM instruction, 
and go to PPRDC. 

PPRDD: call PPIO to send the PRU to requesting PP. 

PPRDC: upon return from PPIO, the A-register indicates what to do next. 
If A = 0, a full PRU was transmitted; go back to PPRDA for the next PRU. 

If A>0, a short PRU was transmitted; go to Termination. If A<0, the PRU 
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would not fit into the requesting PP's buffer and therefor was not sent; 
backspace over it and go to Termination. 

PPWT; executive for O.WRP and O.WRPR orders. 

PPWTA: call .POSIT to setup for next PRU. Call PPIO to get a PRU of 
data from the requesting PP. Upon return, non-zero in the A-register 
means the requesting PP has less than a full PRU so nothing was sent; go 
to PPWTB. Zero in the A-register means a full PRU was transmitted; 
call .RDISK to write it to device and go to PPWTA for next PRU. 

PPWTB: if order code is even (i.e., not O.WRPR) go to Termination. Store 
remaining byte count of requesting PP's buffer (i.e,, length of short PRU) 
into WDCT, store record level from request after last data byte, call PPIO 
to get short PRU from requesting PP and .RDISK to write it out, and go to 
Termination. 

Subroutine PPIO: transmits data between Stack Processor PP and the re¬ 
questing PP. Wait until requestor sets control flag to 2 to indicate that it 
is ready for data transmission. Read second word of request stack entry 
to get updated remaining byte count of requestor’s buffer. If this is less 
than (WDCT), return to caller with A-register < 0 to indicate no data was 
transmitted. Write second word of request stack entry with remaining 
byte count reduced by (WDCT). Store (WDCT) into communication word for 
use by requesting PP with its lAM/OAM instruction. If (WDCT) = 0 go to 
PPIOC because there is nothing to transmit. Otherwise, change control flag 
to 3, so requestor will execute its IAM/OAM instruction. Activate channel, 
execute Stack Processor's lAM/OAM, and deactivate channel. 

PPIOC; return to caller with A-register > 0 if a short (or zero length) PRU 
was transmitted, or = 0 if a full PRU was transmitted. 

9.9.5.3. Positioning Executives 

These routines perform execution of all positioning requests (order code 
12, 13, 16, or 17). 

SKPF: executive for O.SKF orders. If record count specified in request 
is 777777B, call SKPEOI to skip to end of information (by scanning the RBT 
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chain rather than actually reading ail of the file) and go to Termination to 
report end of information (9.6.1). 

SKPFA: not special case. Call SECOMP to determine length of current 
record block. 

SKPFE: call .POSIT and .RDISK to setup for and read the next PRU. If it 
is not short, or is short but has record level < the level specified in the 
request, go back to SKPFB for the next PRU. Otherwise, decrement record 
count in the request. Go to Termination if result is zero; otherwise go 
back to SKPFB. 

SKPB; executive for O.SKB orders. If record count specified in request 
is 777777B, rewind the file by resetting the current position pointers (RBT 
word pair, RB byte, and PRU numbers) and go to Termination to report 
beginning of information status. 

SKPBC; not special case. If last record block length (EOIPRU) is zero, 
change it to 7776B. Call SECOMP to determine length of current record 
block. Backspace one PRU unconditionally. If current position was between 
record blocks (PRU was 0), call PRUBK with A-register negative to change 
position to last - 1 PRU of previous RB and go to SKPRAA. If current 
position after decrementing is between record blocks (PRU was 1), go 
to SKPBA. 

SKPBAB: PRU was 2 or more. If it was less than current RB length, leave 
it as decremented. If PRU was 7776B (indicating initial backspace done), 
change it to RB length. If PRU was 7775B (indicating initial backspace not 
done yet), change it to RB length minus one. In any case, go to SKPBAA, 

SKPBA: call PRUBK with A-register positive to set current position to 
last PRU of previous RB. 

SKPBAA; A-register contains number of PRUs remaining, after the initial 
unconditional backspace of one PRU, from beginning of record block to 
current position. Store this in AFLD and zeros in BFLD and PRU. 

SKPBB: call .POSIT and .RDISK to read PRUs 0 through (AFLD)-l of the 
current RB. For each short PRU whose record level > the level specified 
in the request, store the PRU number+1 in HOLDER + (BFLD) and incre- 
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ment BFLD. After completion of this loop, compare (BFLD) with the record 
count in the request. If less than, subtract (BFLD) from the record count 
and go to SKPBA to continue backspacing into the previous record block. 

SKPBE: subtract record count from (BFLD). store the PRU number + 1 
from HOLDER+(BFLD) into PRU, and go to Termination. 

BPRU: executive for O.BPRU orders. If last record block length (EOIPRU) 
is zero, change it to 7776B. Call SECOMP to determine length of current 
record block. 

BPRUA: decrement PRU. Go to BPRUCA if result > 0, otherwise call 
PRUBK to set current position to last PRU of previous record block. 

BPRUB: decrement PRU count in request and go to Termination if result 
is zero; otherwise loop to BPRUA. 

BPRUCA: if (PRU) was greater than current RB length, set current position 
to last PRU of current RB. Go to BPRUB. 

RCHN: executive for O.RCHN orders. Load overlay 7SZ if not already in 
core, and go to RCHNZ. This code is in 7SZ because it uses the record 
block releasing code (PRURDZ) which is also in 7SZ. 

RCHNZ; set "release" flag bit in request if not already set, and call PRURD 
repetitively to scan and release the RBT chain. When end of information is 
reached, PRURD exits to Termination. 

9.9.6. Termination of Request Execution 

This section is entered to perform final bookkeeping when execution of a 
request is completed, or to reissue a request to the stack when its execu¬ 
tion must be suspended for some reason. There are several entry points 
to the Termination section; the one used depends on the type of request 
executed and the reason for completion or suspension of execution. 
Termination exits to Stack Search or releases the PP. 

INVAL; entry point for invalid request stack entry (9.6.7, 9.6.8, 9.6.9). 

Load ISX code 22B and go to EREXIT. 
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BUFPE: entry point for buffer parameter error (9.6.5). Load ISX code IIB 
and go to EREXIT, 

EREXITZ: entry point for end of information (9.6.1) reached during read, 
skip forward, or rewrite in place operation. Setup WDCT and WORDO so 
code/status will indicate end of file, load code 01 and go to EREXIT. 

EREXITY: beginning of information reached during backward positioning 
operation. Set WDCT to full PRU size (so bits 3-4 of code/status will not 
be changed), load code 01 and go to EREXIT. 

EREXIT: general entry point for all errors that force completion of request 
execution. The error code is in the A-register. If entered from Stack 
Search, call ASSIGN to attach ISP to the request's control point if needed. 
Store error code into bits 9 — 13 of code/status. If code is 01 (end or begin¬ 
ning of information), go to EREXITA, Setup abort flag (1 = abort, 0 = don’t 
abort) for ISX. 

EREXITB: call CALL to call ISX to another PP. 

EREXITA: if the request being terminated is not a write, go to WRTEXX. 

WRTEX: entry point for termination of a write request. If the last PRU 
written was short and the "eof" flag bit is set in the request, call .POSIT 
and .RDISK to setup for and write an end of file PRU (length zero, level 17B). 

WRTEXX: go to ORDEX. 

ERRCALL: entry point for conditions that require calling ISX and reissu¬ 
ing the request with bypass count set to 3. These conditions are disk full 
(9.6.4) and connect reject (9.6,10). 

BYPASS: entry point for conditions that require reissuing the request with 
bypass count set to 3 without calling ISX. This causes the request to be 
ignored the next three times it is found by Stack Search. This entry point 
is used by subroutine ASSIGN when a control point's storage move flag is 
set, and by NRBTW when it cannot immediately find a free RBT word pair. 

NEWDEV: entry point used when the request must be reissued to the stack 
with the DST ordinal changed (i.e., passed to another Stack Processor), 
without calling ISX or setting the bypass count. This entry point is used by 
the Advance Record Block subroutines. 
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NOTDONE: general entry point for reissuing a request to the stack before 
its execution is completed. Clear the completion bit in code/status, so that 
later parts of Termination know that the request is not complete. If order 
code is O.SKB and (PRU) = 0, change it to 7776B. 

ORDEX: all Termination entry paths rejoin here. Normally, location ORDEX 
contains a jump to ORDEXA, If a parity error (9.6.2) is detected during 
execution of a request, ORDEX is changed to a do-nothing instruction: 0003 
if a retry attempt was successful or 0000 if all attempts failed. Restore 
ORDEX to its normal state. If ORDEX was 0003, go to EREXITB to call 
ISX with error code 03 and abort flag 0. If ORDEX was 0000, go to EREXIT 
with error code 04, 

ORDEXA: if the last PRU transferred was not short, go to ORDEXB. If the 
record level in WORDO+(WDCT) is 17B (end of file), store 3 into bits 3-4 
of code/status, otherwise store 2 (end of record). In either case, store the 
record level into bits 14—17 of code/status. 

ORDEXB: if the request contains no FST address, go to ORDEXBA. Store 
updated code/status into second FST word. If request is a write but not 
rewrite in place , and if last RB length is to be updated (701B means don't 
update it), store (PRU) as new last RB length into the first word pair in the 
file's RBT chain. Rewrite both FST words into CM with updated file position 
and code/status fields. 

ORDEXBA; if the request references a reply word or FET, and if code/ 
status completion bit is set, store updated code/status into bits 0-17 of the 
reply word or first FET word in CM. 

ORDEXC: if request is not PP l/O, go to ORDEXCB. 

ORDEXCW: termination for PP l/O requests. Read communication word 
and loop until control flag is even (i.e., 2). Store lwa+1 of data transmitted 
from communication word into buffer fwa in request stack entry, in case 
request is being reissued. Put updated code/status into bits 0-17 of com¬ 
munication word. If completion bit is set, change control flag to 4, other¬ 
wise make it 0. Write the updated request stack entry and communication 
word to requesting PP's message buffer. If request is being reissued, go 
to ORDEXCB, 
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ORDEXXX: read communication word and loop until requesting PP has 
acknowledged completion by changing control flag to 5, then rewrite the 
communication word with control flag zeroed. 

ORDEXCB: all paths rejoin here. If request execution is completed, store 
zero into bits 0-11 of first word of request, to mark this word pair in stack 
as available. Whether complete or not, write both words to stack. If execu¬ 
tion is completed, go to ORDEXDD. 

REISSUE: issue MTR function M.EREQS {34B, x, 77B, sr, ds) where ^ is 
the zero-origin index (from CXAD, location within stack area) for the 
request and ds is the DST ordinal to be stored in bits 0-5 of first word of 
the request, MTR stores the new DST ordinal, increments the entry count 
in that DST entry, and increments the control point activity count for the 
request's control point. Now the request is counted twice in the entry/exit 
counts and in the activity count. 

ORDEXDD: all paths rejoin here. Increment the exit count in this ISP's 
DST entry. The addition is done so that 7777B is followed by OOOIB; MTR 
increments entry counts the same way. Now the request, if being reissued, 
is counted just once in the entry/exit counts. Ensure that the DST entry's 
activity flag is non-zero and mark this request's POOL room empty. If the 
control point number in the request is zero, go to ORDEXG. Otherwise, 
issue MTR function M.CCPA (35B, x, x, n, 0) to decrement the activity 
count for control point n and switch ISP back to control point zero. Now 
the request, if being reissued, is counted just once in the control point 
activity count. 

ORDEXG: call .DROPC to release equipment connection and channel res¬ 
ervation. Restore EQUIP byte of DSEWD2. Store (HPOSl) into UNIT + {CUR) 
and then restore HPOSl and HPOS2 from the first two bytes of UNIT. Write 
updated DSEWD2 to second word of DST entry in CM. 

ORDEXE: request termination is done. Get first word of DST entry. If 
entry count = exit count, go to ORDEXF. Otherwise, store difference in CTA 
and go to Stack Search. 

ORDEXF: get PP Job Queue entry count (byte 0 of CM word T.MSC). If it 
is non-zero, go to ORDEXEA. Otherwise, this ISP has nothing to do but no 
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other task needs the PP, so delay 126 microseconds (to avoid causing ex¬ 
cessive CM and pyramid activity) and then go back to ORDEXE. 

ORDEXEA: look at all DST entries. If only one (this ISP) has a non-zero 
activity flag, go back to ORDEXE because this is the only Stack Processor 
PP and the PP Job Queue does not include another Stack Processor waiting 
to be assigned to a PP. 

ORDEXED; this ISP has nothing to do, at least one task is waiting to be 
assigned to a PP, and at least one other ISP is either running in a PP or 
waiting to be assigned to a PP. Therefor, this ISP should release its PP. 
Rewrite second word of DST entry with activity flag zeroed, restore 
D.PPIR to its normal value, and release the PP. 

9.9,7, Advance Record Block Subroutines 


The advance RB subroutines are called when a record block boundary is 
reached during execution of a request. The three subroutines are: PRUBK 
for backward positioning, PRURD for read, skip forward, release chain, 
and rewrite in place operations, and PRUWT for normal writing. Each 
subroutine returns to its caller with RBR, RBLOC, RBTA, RBTO, and PRU 
updated, or exits to Termination if necessary to conclude execution of the 
request or reissue it. 

Subroutine PRUBK: called by the O.SKB and O.BPRU executive routines. 

For O.SKB, a backspace of one PRU must be done unconditionally. A-register 
negative means this has not been done yet (see SKPBC in 9.9.5.3) so store 
7775B in PRU. A-register positive means it has been done (see SKPBA in 
9.9.5.3) so store 7776B in PRU. Thus, if PRUBK reissues the request 
instead of returning to its caller, PRU is set so that when the request is 
again selected for execution, SKPBAB will know what to do. 

PRUBKA: if current position is the first byte (bits 0—2 of RBTO equal bits 
0-2 of YBYTE) of the file's first RBT word pair (bits 3-11 of RBTO are 
zero), report beginning of information. 

PRUBKB: find previous record block. Decrement RBTO. If bits 0-2 are 
now 7, go to PRUBKC to find previous RBT word pair. 
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PRUBKBA: if byte is not an RB designator, loop to PRUBKA to back up 
another byte. Otherwise, call SECOMP to setup RBR and RBLOC for this 
RB and determine its length, and RBRDEV to test for change of device. If 
new device, go to Termination to reissue the request. Otherwise, set first 
time switch in .POSIT, set PRU to last PRU of new current RB, and return 
to caller. 

PRUBKC: starting with first word pair in file's RBT chain, read successive 
word pairs (each points to the next) in the chain until the number of word 
pairs read is equal to bits 3-11 of RBTO. Go to PRUBKBA, 

Subroutine PRURD: called by .POSIT when a new RB must be started during 
execution of a read, skip forward, or rewrite in place request, and by RCHNZ 
for release chain requests. If "direct" bit is set (no RBT chain is present), 
go to PRURDD. If the RB just processed is not to be released, go to PRURDA. 
Otherwise, call TGLRBR to clear the RBR bit for the RB, and replace the 
byte in the RBT with the current RBR number rather than zero. 

PRURDA: increment RBTO. If the byte just processed was the last of the 
RBT word pair, get the next word pair or go to PRURDE if there is no next 
word pair. Call RBRDEV and go to PRURDCl if the Y-byte now contains 
an RBR number for a different l/O unit. 

PRURDB: if the new RBT byte is zero, loop to PRURDA. If it is an RB 
designator, go to PRURDX. If it is a new RBR number, call RBRDEV and 
loop to PRURDA if it references the current l/O unit. 

PRURDCl: end of section; i.e., file is continued to another l/O unit. 

PRURDE: end of information or end of section. If releasing is not required, 
go to PRURDF. Otherwise, load 7SZ if not already in core and go to PRURDZ. 

PRURDZ: this code releases RBT word pairs from beginning of chain to 
current posiltion, so that the current position becomes beginning of infor¬ 
mation. Word pairs are released in groups of eight. Each word pair is 
inserted into the proper place in the RBT empty chain (pseudo-channel 
CH.RBT is reserved). If the last lOOB words of the RBT area are now all 
contained in the empty chain, MTR function M.RBTSTO is issued to reduce 
the size of the RBT area of CM. Return to PRURDF. 
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PRURDF: if end of section, go to PRURDFl. If end of information, restore 
RBTO (which may have been made too large by the search for a non-zero 
byte at PRXJRDA) to point to the last non-zero byte and go report end of 
information. 

PRURDFlr end of section; reissue the request with new DST ordinal. 
PRURDD: direct request; increment the RB designator. 

PRURDX: store zero into PRU and return to caller. 

Subroutine PRUWT: called by .POSIT when a new record block must be 
allocated to the file being written. If "direct" bit is set, go to PRUWTD. 

PRUWTA: scan forward in current RBT word pair for an empty (zero) 
byte and go to PRUWTB if one is found. If the word pair is full, call NRBTW 
to get another word pair, link it to the file's chain, and start in byte 0 of the 
new word pair. 

PRUWTB: call SBEKRB to find an available RB in the current RBR. If one 
was found, go to PRUTWF. Otherwise, load 7SZ if not in core and go to 
PRUWTZ. 

PRUWTZ: if the current unit is private, go report disk full and reissue the 
request. Otherwise, call LOCATE to find another suitable RBR. If one is 
found, go to PRUWTC if it references a different l/O unit or back to PRUWTA 
if it references the current unit. If none was found, report disk full and 
reissue the request. 

PRUWTC: issue MTR function M.ESTZ (33B, ee, lOB, 0, 0) to set the 
"active" bit in EST entry Eind reissue request with new DST ordinal, 

PRUWTF: available RB found. Call TGLRBR to set the RBR bit for the RB, 
store the new RB designator into the current RBT byte, and go to PRUWTX. 

PRUWTD: direct request; increment the RB designator. 

PRUWTX: store zero into PRU and return to caller, 

9.9.8, Miscellaneous Subroutines 


This section contains closed subroutines that do not belong in any one of the 
above sections. Each is called from routines in two or more of the above 
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sections, and/or from other subroutines in this section- The subroutines 
are arranged in such a way that each is called only from locations that 
precede it and/or from 3Sx, Related subroutines are grouped together. 

Subroutine MODIFY: used for instruction modification (to set linkage be¬ 
tween ISP and 3Sx and to prepare instructions for reading or writing). Upon 
entry, the A-register contains the first byte address of a list. The addressed 
byte contains the first byte address of the address list, and subsequent bytes 
comprise the value list. The content of each byte of the value list is stored 
into the ceil whose location is contained in the corresponding byte in the 
address list. The address list is terminated by a zero byte. 

Subroutine ASSIGN: set the switch at EREXIT (9.9.6) to show that ASSIGN 
has been called for the current request. Determine whether ISP should 
attach itself to the request’s control point (i.e., if the request references 
a buffer and/or FET or reply word in CM and is not at control point zero). 

If yes, issue MTR function M.CCPA {35B, x, x, 0, n) to attach ISP to control 
point n and store the control point address+W.CPSTAT into CTLPTA; if 
no, store 0+W.CPSTAT into CTLPTA. Read the CM word addressed by 
CTLPTA and setup R.CPRA and R.CPFL. If the control point number is 
not zero and its storage move flag is set, go reissue the request with bypass 
count set to 3. If the request references an FET but no FST, get the code/ 
status from the first word of the FET. Set abort flag (see EREXIT in 9.9.6) 
to 0 (don't abort) if the request references an FET and the error processing 
flag (bit 44 of second word) is 1; otherwise set abort flag to 1 (do abort if 
unrecoverable error). 

Subroutine FETADR: return with A-register negative if the request does 
not reference an FET or if the FET address is outside the control point's 
field length; otherwise return with absolute FET address in A-register. 

Subroutine SKPEOI: scan RBT chain from current position to end of infor¬ 
mation, and return with RBT word pair, byte, and PRU numbers pointing to 
the file's end of information position. 

Subroutine NRBTW: obtain a new RBT word pair from the empty chain. If 
pseudo-channel CH.RBT is not immediately available or the RBT empty 
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chain has no members^ call CALL to call ISX with code 77B (increase RBT 
space) and reissue the request with bypass count set to 3. Otherwise, take 
the empty chain member nearest the high end of CM. If the empty chain is 
now exhausted, call CALL to call ISX for more RBT space. 

Subroutine GETRBT: read the current RBT word pair from CM into the 
RBTWRD working storage area. CopyXBYTE into ZBYTE + 8 to facilitate 
end of information test in SECOMP. 

Subroutine PUTRBT; write the current RBT word pair, if any, from the 
RBTWRD working storage area into CM. 

Subroutine RBTADRt compute absolute CM address from RBT word pair 
number. Used by GETRBT and PUTRBT. 

Subroutine SECOMP: determine length of current record block and store 
number of PRUs, minus one, into LASTPRU. First call ADRCOM to setup 
RBR and RBLOC for the current position. If the RBR has a non-standard 
allocation style, ADRCOM returns with LASTPRU non-zero; store stand¬ 
ardized RB designator into WORKA (where .POSIT expects to find it) and 
go to SECOMPB. Otherwise, call .SECOMP to get LASTPRU value for a 
standard RB. 

SECOMPB; for writing other than rewrite in place, return to caller. For 
reading, positioning, and rewrite in place operations, test for end of infor¬ 
mation. If the next RBT byte is non-zero, return to caller. Otherwise, this 
is the last RB of the file, so get last RB length (EOIPRU) from first RBT 
word pair. If (EOIPRU) = 0 or 7777B, go report end of information. If 1 < 

(EOIPRU) < (LASTPRU), store (EOlPRU)-l into LASTPRU. If (EOIPRU) = 701B 
(i.e., file is RESPOND control file or request references no FST entry), or 
= 7776B (special case for backward positioning), leave RB length-1 in LASTPRU 
I.e., assume last RB Is full. 

Subroutine ADRCOM: setup RBR and RBLOC for current file position. If 
"direct” bit is set, go to DRW. Otherwise, scan current RBT word pair 
from beginning to current byte, changing RBR whenever an RBR byte is 
found. If the current byte is not an RB byte (i.e., rightmost bit is zero), 
return with zero in RBLOC and in A-register, Otherwise, call GETPOS 
and return. 
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DRW; direct request, no RET from which RBR number can be obtained. 

Search all RBRs until one is found that references the EST entry specified 
in the request and has zero in the RB offset byte {START parameter in the 
RBR macro in CMR). Return with RB designator in RBLOC and A-register. 

Subroutine GETPOS: standardize RB designator if necessary. Get RBR 
header and return with zero in LASTPRU and (RBLOC) in A-register if the 
RBR has a standard allocation style (00-03). Otherwise, compute the NSA 
overlay name 7Sx (see 9.2,3) and load it if not already in core. Call 7Sx. 

The non-standard RB size -1 is in A-register bits 0-11; store this into 
LASTPRU. The starting PRU number within the corresponding standard 
RB is in A-register bits 12-17; store this into .ALOPAD (see .SECADR 
in 9.9.9.1). The standard RB designator is in WORKA; return with this in 
the A-register. 

Subroutine RBRDEV: for positioning, reading, and rewrite in place requests, 
merely find the EST ordinal, DST ordinal, and unit number for the current 
RBR- For writing other than rewrite in place requests, RBRDEV also 
determines whether the current RBR contains available record blocks 
suitable for allocation to the current file. On entry, the A-register contains 
an EST ordinal if the file is to be assigned to a specific unit, otherwise zero. 
On normal return, the A-register contains the logical difference of the unit 
numbers (bits 0—5) and DST ordinals (bits 6—11) for the RBR and those in 
DSENUM and CUR, and zeros in bits 12-17. On "unsuitable for writing" 
return, the A-reglster contains the complement of the above. In either case, 
the EST ordinal from the RBR is stored into RBREST. The RBR is consid¬ 
ered unsuitable for writing if one or more of the following is true: (1) The 
RBR is full (available RB count = 0). (2) An EST ordinal was specified and 
the RBR references another EST ordinal. (3) The "off" bit or "unloaded" 
bit is set in the EST entry. (4) No EST ordinal was specified and the RBR 
references a "private" unit or device type = 20B (ECS). (5) The file's 
allocation style code is not in the list of up to four allocation style codes 
admitted by this RBR. If the RBR passes all of the above tests and the file has 
allocation style code 00, assign the primary allocation style code of the RBR 
to the file. 
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Subroutine SEEKRB: find an available RB (zero bit) in the current RBR, 
and return with the RB designator (or zero if none found) in the A-register. 
If (ALLOC) is 01 or 02 and device type is 6603-1 or 6603-11, only record 
blocks of the specified zone (01 = inner, 02 = outer) are considered. If 
(RBLOC) is zero, search RBR from beginning to end so that new files tend 
to congregate in the lowest-numbered RBs; otherwise search the RBR end- 
around from the position given by RBLOC, so that logically consecutive 
RBs in a file are physically as close as possible. 

Subroutine TGLRBR: invert the RB bit, specified by (RBLOC), in current 
RBR. Also increment or decrement the available RB count in the RBR 
header, depending on whether the A-register contains 0 or 1, respectively, 
upon entry. 

Subroutine RBRADR: return with A-register containing the absolute CM 
address of the current RBR table. 

Subroutine SETADC: stores content of A-register (all 18 bits) into the ADC 
instruction in subroutine ADC, 

Subroutine ADC: adds to the A-register the value last stored here by sub¬ 
routine SETADC. These subroutines are used by SEEKRB and TGLRBR to 
facilitate access to the current RBR. 

Subroutine ERRINF; called by .RDISK after each read or write attero.pt in 
which a device (e.g, parity) error is detected. If (ORDEX) = 0000 indicating 
that an unrecovered error has already occurred during execution of the 
current request, do nothing. Otherwise store message parameters from 
SXDATA into the third, fourth, and fifth words of the ISP message buffer 
for later use by ISX when it is called by the Termination section. 

Subroutine CALL: call ISX to another PP. Upon entry, the ISX error code 
is in bits 0-5 of the A-register, and bits 6—11 may contain an EST ordinal 
for disk full codes (lOB and 76B). Do nothing if the error code is lOB and 
the abort flag is zero (don't abort). Report end of information (just to get 
rid of the request) if error code is 73B—77B and its control point's error 
flag is non-zero. In all other cases, issue MTR function M.RPJ to call ISX. 
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Subroutine CHECKEF: return with A-register = 1 if the current request's 
control point number is non-zero and that control point's error flag is non- 
zerOj otherwise return with A-register = 0. 

Subroutine IX)AD7SZ: load overlay 7SZ into the lOBUF area if it is not 
already there. 

9.9.9. Driver Overlays 

Section 9.2.2 contains a general description of the driver overlays 3Sx. This 
section provides further details. The subroutines and tables present in each 
driver are briefly described below, in the order in which they occur in the 
assembly listing, followed by a section giving characteristics of each mass 
storage device type. 

9.9,9,1. Subroutines In Each 3Sx 

Subroutine .ACTIVC: reserve a channel for accessing the device, and set 
a switch in subroutine .DROPC indicating that a channel is reserved. For 
6000-series devices, only one channel can be used- its number was inserted 
into all l/O instructions at ISP initialization time. For 3000-series devices, 
call R.STB to insert the channel number into all appropriate instructions. 
For 6638 disk and 865 drums, store angular positions into the ANGPOS 
array so that .HEAD can include rotational delay (latency) in its access 
time calculations. 

Subroutine .DROPC: if no channel is reserved, do nothing. Otherwise, 
release equipment connection and reservation if appropriate and drop the 
channel reservation. 

Subroutine .SECADR; given a standard RB designator in A-register, PRU 
number in PRU, and PRU offset (for non-standard RBs) in .ALOPAD, 
return with physical sector number in A-register. 

Subroutine .HEAD: given target RB designator in A-register, current 
unit head position or zero in HPOSl, current angular positions in ANGPOS, 
and target sector number in bits 0 — 6 of SUBP + (RMNR), return with the 
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A-register containing a number roughly proportional to the access time for 
the request. If the current head position is not yet known, HPOSl contains 
zero (see OVERA in 9.9.1); in this case, return with an arbitrary value in 
the A-register. 

Subroutine .SHIFT: enter with target RB designator in A-register and 
current unit head position or zero in HPOSl. Issue hardware functions for 
head motion (cylinder selection) and/or head group (track) selection as 
needed. Set first-time switch in .POSIT and store MAXRBCT into RECOUNT 
if the installation has made it less than the nominal amount for the device type. 

Subroutines .RDINST and .WTINST: setup instructions in 3Sx for reading 
or writing the mass storage device. 

Subroutine .SECOMP: given a standard RB designator in the A-register, 
return with the number of PRUs in the RB, minus one, in the A-register. 

Subroutine .POSIT: if (PRU) <. (LASTPRU) and first-time switch is not 
set, do nothing. If (PRU) > (LASTPRU), ceiH PRURD or PRUWT to advance 
to the next RB. If the installation has set MAXRBCT to a value less than 
the nominal amount for the device type, decrement RECOUNT and reissue 
the request if the result is negative. If head motion is needed to get from 
the unit’s current position to the new RB, reissue the request so that if the 
stack contains any requests requiring less access time, they will be executed 
before the current request is again selected for execution. Otherwise, issue 
a head group (track) select function if needed and clear first-time switch. 

Subroutine .RDISK: transmit one PRU between the lOBUF area and the 
device, and increment PRU. Call .ERRINF and make retry attempts as 
necessary if device (e.g, parity) errors are detected. Store 0003 into 
ORDEX (see 9.9,6) if a retry attempt is successful, unless ORDEX is already 
0000, Store 0000 into ORDEX if all attempts fail. This routine handles both 
reading and writing. 

Subroutine .ERRINF: does whatever preparation is needed and calls 
ERRINF in ISP (see 9.9.8). 
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9.9.9.2. Tables in Each 3Sx 

Table .CTLR: a listj in R.STB format, of locations of function codes into 
which the controller equipment number must be inserted (bits 9 — 11), 

Table .CHANT: a list, in R.STB format, of locations of l/O instructions 
into which the channel number must be inserted (bits 0-5). 

Table .PARAM: (generated by the PARAMS macro) a value list, in 
MODIFY format (see 9.9.8), for which the corresponding address list has 
been moved from PARAMS to LINK (see OVERA in 9.8.1). 

9.9.9.3. Device Characteristics 

This section describes the mass storage l/O devices supported by the 
SCOPE 3 system, and contains specific details of the individual 3Sx driver 
overlays. 

9.9.9.3.1. 6000-Series Devices 


The 6000-series mass storage devices are the 6603 and 6638 disk storage 
units. Since only one channel can be used for each controller, the channel 
number is inserted at ISP initialization time and the NSA overlays 7Sx can 
use all of the space from .CTLR to DRIVEND. 

9.9.9.3,1.1. 6603 Disk Storage 

The 6603-1 is a basic 6603 with or without the first speedup feature (standard 
option 10098), device type code 01, mnemonic AA, common deck RMSA, 
driver overlays 3SP and 5CP. The 6603-11 is a basic 6603 with both of the 
speedup features (standard options 10098 and 10124), device type code 04, 
mnemonic AC, common deck RMSC, driver overlays 3ST and 5CT. 

In either case, a 6603 is one controller and one unit. There are 128 cylinders 
with 8 tracks per cylinder. In each cylinder, tracks 0-3 contain 128 sectors 
each (outer zone) and tracks 4—7 contain 100 sectors each (inner zone). One 
PRU = one sector. 322 bytes are written in each 6603-1 sector, while 6603-11 
sectors are 324 bytes. In the 6603-11, the extra two bytes are at the end of 
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the sector and are used for position verification; the first contains the RB 
designator and the second contains the sector number. A 6603 record block 
is a half-track: all of the even-numbered sectors or all of the odd-numbered 
sectors in a track. Thus there are 2048 RB/unit, of which 1024 have 64 
PRU/RB and the others have 50 PRU/RB. 

The RB designator is ccc ccc ctt thl 

ccccccc = cylinder number 
ttt = track number 
h = half-track {0 = even, 1 = odd) 
and the required sector number is (PRU number) * 2 + h. 

In the ISX error messages, the address bytes are 

00c ccc ccc ttt, 000 00s sss sss 
ccccccc = cylinder number 
ttt = track number 
sssssss = sector number 

and the status bytes are 

XXX rpx XXX XXX, xxx xxx xxx xxx 
X = not significant 
r = 1 if not ready 
p = 1 if parity error. 

Bit p is always 1 after a write operation, but does not mean a parity error 
occurred. 

9.9.9.3.1.2. 6638 Disk Storage 

Device type code 02, mnemonic AB, common deck RMSB, driver overlays 
3SQ and 5CQ. The basic 6638 is one controller with two units, numbered 
0 and 1. With the dual access feature (standard option 10037) installed, the 
6638 is two controllers, each having one unit numbered 0; they cannot 
access each other's units. If the option is not installed, card RMSB.20 
must be replaced by 

OPT 1003 7 EQU 0 

and decks CONTROL and ISP reassembled, before unit 1 can be used. 

Each unit of a 6638 has 32 cylinders, 2 stacks with 16 tracks each per cyl¬ 
inder, and 100 sectors per track. One PRU = one sector. 324 bytes are 
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written in each sector; the last two bytes contain the physical address in 
the ISX error message format {see below) and are used for position verif¬ 
ication. A 6638 record block is a half-track: all of the even-numbered 
sectors or all of the odd-numbered sectors in a track. Thus there are 
2048 RB/unit and 50 PRU/RB. 

The RB designator is ccc ccs ttt thl 

ccccc = cylinder number 
s = stack number 
tttt = track number 

h = half-track (0 = even, 1 = odd) 
and the required sector number is 

((tttth) * 3 + (PRU number) * 2) modulo 100 
which means that each RB starts 3 sectors further around the disk than the 
preceding RB; this allows time for inter-RB processing (PRURD or PRUWT) 
without loss of an entire revolution. 

In the ISX error messages, the address bytes are 

00c ccc cst ttt, 000 00s sss sss 
ccccc = cylinder number 
s = stack number 
tttt = track number 
sssssss = sector number 
and the status b 3 rtes are 

dcr pns sss sss, xaa aaa xcc ccc 
d = 1 if lost data 
c = 1 if not connected 
r = 1 if not ready 
p = 1 if parity error 
n = stack number 
sssssss = sector number 
X = not significant 
aaaaa = cylinder number, unit I 
ccccc = cylinder number, unit 0 

9.9.9.3.2. 3000-Series Devices 
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The 3000-series mass storage devices are the 854 disk pack units with the 
3234 controller and the 865 drum storage units with the 3637B controller. 

In each case, the conti-oller is attached to the 6000 data channel through 
the 6681 or 6684 data channel converter. Since these devices can be attached 
to one or two channels, channel reservation and channel number insertion 
are performed for each non-immediate request, and NSA overlays can use 
only the space from .PARAM to DRIVEND. The channel reservation and 
converter-controller-unit connection are maintained throughout request 
execution, but the converter is selected only while data, function codes, and 
status are being transmitted; the converter is deselected the rest of the 
time so the same channel can be used for data transmission between ISP 
and the requestor during PP l/O request execution. The following routines 
are present only in 3000-series mass storage driver overlays. 

Subroutine .PUTADD: load the device address register from ADD REG. 

Subroutine .RES: select the converter and connect the controller and unit 
CUR to it. 

Subroutine .DESED: deselect the converter. 

Subroutine .CFR; enter with function code in A-register. Send it out and 
get controller and converter status. If no error, return with zero in the 
A-register, If transmission (XMSN) parity error, master clear and return 
with A-register = 1. Send function code again if controller is busy. If 
external or internal reject or unit is not ready, return with A-register® 1, 

Subroutine ,STS: get controller status bjrte. 

9.9.9.3,2,1. 865 Drum Storage 

A 3637B controller can have up to eight 865 units, device t 3 rpe code 12B, 
mnemonic AD, common deck RMSD, driver overlays 3SR and 5CR. In each 
unit, there are 256 tracks with 128 sectors per track. Each sector is 128 
bytes, so one PRU = three consecutive sectors with the last 62 bytes of the 
third sector being unused. An 865 record block is a half-track: each "even” 
RB is sectors 0-2, 6-8, 120-122 of a track and each "odd" RB is sectors 

3—5, 9—11, , 123 — 125 of a track. Sectors 126 and 127 are not used; this 

allows time for inter-RB processing {PRURD or PRUWT) without loss of 
an entire revolution. Thus there are 512 RB/unit and 21 PRU/RB. 
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The RB designator is OOh ttt ttt ttl 

h = half-track (0 = even, 1 = odd) 
tttttttt = track number 

and the required sector is (PRU number) ^ 6 + h 3, 

In the ISX error messages, the address bytes are 

OOt ttt ttt tss, sss ssO 000 000 
tttttttt = track number 
sssssss = sector number (first of PRU) 
and the status bytes are 

xpx XXX XXX dbr, xxx xxx xxx tcc 
X = not significant 
p = 1 if parity error 
d = 1 if lost data 
b = 1 if busy 
r = 1 if ready 
t = 1 if XMSN parity error 
cc = non-zero if internal or external reject. 

9,9.9,3,2.2. 854 Disk Pack Unit 

A 3 234 controller can have up to eight 854 units, device type code 07, 
mnemonic AP, common deck RMSP, driver overlays SSS and 5CS. In each 
unit, there are 200 cylinders, 10 tracks per cylinder, and 16 sectors per 
track. Each sector is 128 bjdes, so one PRU = three consecutive sectors 
with the last 62 bytes of the third sector being unused. An 854 record block 
is one track, twice around, as follows: 

PRU sectors 

0 0-2 

1 6-8 

2 12-14 

3 3-5 

4 9-11 

and sector 15 is not used; this allows time for inter-RB processing (PRURD 
or PRUWT) without loss of an entire revolution. 
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The RB designator is ttt ttt ttt ttl. 

The required cylinder number is (ttttttttttt) / 10. 

The required track number is (ttttttttttt) modulo 10. 

The required sector number is ((PRU number) * 6) modulo 15. 

In the ISX error messages, the address bytes are 

000 Occ ccc ccc, 000 Ott tts sss 
cccccccc = cylinder number 
tttt = track number 
ssss = sector number (first of PRU) 

and the status bytes are 

XXX xmx pda ebr, xxx xxx xxx tcc 
X = not significant 
m = 1 if positioner ready 
p = 1 if parity (checkword) error 
d = 1 if lost data 

a = 1 if address error 

e = 1 if any error 

b = 1 if busy 

r = 1 if ready 

t = 1 if XMSN parity error 
cc = non-zero if external or internal reject. 

9.9.9.3.3. Extended Core Storage 

The portion of ECS that is used as a mass storage device has device type 

code 20B, mnemonic AX, common deck RMSX, and driver overlay 3SX. 

Details are in section 19.8,0 of this document. 
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9-0 Allocatable Device I/O Program ISP and Its Overlays 

C3SP, 3SQ, 3SR, 3XS, 3ST) 

The description on the following pages 9-1 through 9-14 is not 
current* There will be an update in the near future* 
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1 General Description 

There is one coranon program ISP and several overlays for each type of 
allocatable device: 3Sp (6601), 3SQ (6636), 3SR (863/865 drum), 3SS (854 
disk drive) and 3ST (6603 with option 10124)■ When ISP is loaded into a PP> 
its input register contains the DST ordinal of the assigned device in the 
last byte and the DST has an index for the appropriate overlay- 

The overlays are also used by Dead-Start Loader to drive the device 
assigned as the system residence - 

LSP and a 3SP*type overlay for the system device must be stored In 
central memory* The rest of the overlays for existing devices may be disk 
resident but, if so moved, these devices cannot be optional system residences- 
Those overlays for non-existing devices may be deleted from the system* 

If an assembly option is set for HIPRI, a stack request with HIPRI flag 
will be selected next from the requests for a particular DST, If the definition 
for HIPRI Is deleted (from SCF32*9), the effect of HIPRI flag becomes vold- 


9*2 Environment 

9.2.1 PP Assignment and Release 

After a Stack Request CSR) is Issued and the entry count in DST is 
updated through MTR function, MTR checks if a PP Is assigned for the 
appropriate stack processor and, if not, assigns a PP to the DST for 
stack processing. 

Once a PP Is assigned to a DST entry for stack processing, the PP 
will keep processing the SRs for the DST unti1 its exit count becomes 
equal to its entry count- When they are equal and if there are jobs 
waiting for PP assignment in the PP job queue, the PP will reset the 
PP-active byte of the DST to zero to release the PP from the DST. 

9.2.2 Other Routines Used, Interfaces and Related Programs 

ISX to display error messages, 

to abort job if the condition requires, and 
to extend RET empty chain, 

7SB overlay for 8-sector RB ffles. 

R.READP/R.WRITEP handles the other end of channel transfers on 
PP write/read functions* 

2ES to format request stack entry. 

R.EREQS to add an entry to the request stack. 

9,2*3 System Tables and Formats Used 

RBR/RBT pointer word, request stack pointer word, T-MSC(PP Job Queue), 

DST, Request stack, RBR, RBT, PET, FNT/FST and EST 
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9.2.4 Memory Usage 

There are two areas for tnltUllzation of ISP, one at the highest 

and the other at the lowest part of ISP. 

After the initial loading of ISP, the portion at the highest is 
immediately entered to prepare for a 3SP-type overlay (3Sx, X"P,Q.R»S, or T 
and to store information necessary for linkage between ISP and 3Sx in 
safe area. Then control shifts to the lowest portion to load 3Sx destroy¬ 
ing ISP initialization at high part, and then 3Sx Is entered. ^ 

3Sk. also has two initialization areas one for relocation load (3Sx's 
use relocatable macros) and the other for linkages between ISP and 3Sx. 

After 3Sx initialization and linkages are made, ISP initialization 
at lower part is entered to do initialization for the entire routine and 
to preset internal tables. 

As is seen from the initialization procedure, initialization routines 
are entirely destroyed after lSP-3Sx Linkage is completed and tables are 
preset. (see table) 


9.2.5 Internal Tables 


A) POOL. (C.PPFWA —^ C.PPFWA + 3*NBM-1, NRM=12) 


12 groups of 3 bytes. Each group is to be assigned to one 
request waiting for processing. The request stack in CM is surveyed 
after initial loading of ISP and after a request is terminated, and, 
if a request to the current stack processor is newly found, the 
information about the request is stored into the 3 bytes as a basis 
for selection of requests to be performed later. 









address of the position of the 
file first referenced by the 
request (in standard RE format) 



physical unit number under the 
controller 

- high priority flag bit 



stack request ordinal 


/position of the file first 
J referenced by the request in 
^RB No. as it appears in RBT 


After a request is registered in POOL as stated above, the 
request in CM is flagged so as not to.be selected again. The flag, 
located in the ll-th bit of first word, of a stack request. Is dropped 
when the request is selected for execution. 

B) RBT WORD PAIR (C.PPFWA + 3*NiM —^RBT WRD) 

11 bytes. A working storage for currently referenced RBT 
word-pair. A copy of first byte (chain address, or 0 if end of 
chain) is in the ll-th byte. 
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LINKAGE 
-DATA_ , 


LINKAGE 

DATA 


3SM i_ 

initialization and 
LINKAGE DATA 


3Sx 


ISP 


initialization 


3Stii 

Initialization 


SCRAP 


UNIT 


ISP 


I 


ISP 

initialization 


t 

I 

RBT W 


POOL 


HOLDER 


lOBUF 

(502 bytes) 

ir 


7 SB 


PAIR 
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^.2*5 Internal Tables Cont'd 


C) UNIT (between ISP end 3Sx ) 

8 bytes - one for each of the physical units under the 
controller- Current head position of the unit Is held In 
standard RB format. If current head position Is unknown, 
the last bit Is set to 0- Initially, head positions for unit 
0 and unit 1 are stored from the first 2 bytes of 2nd word of 
DST, and bytes for unit 2 _^ unit 7 are set to 0. 

D) SCRAP (following UNIT ) 

10 bytes. A working area of 2 CM words. 

E) lOBUF (717bB —^ 7677B) 

502b bytes of Input/OutpUt buffer for one PRU. 

F) HOLDER (770QB 7777B) 

lOOB bytes. These bytes are used to store PRU No,*s of 
an RB in a logical backspace order. lOOB is the greatest 
number for PRU*s within one RB (6603 outer zone). 

G) PRMSTRT and PAHAM 

Two sequences of locations, one following PARAM of a 
3Sx overlay and the other following PRMSTRT of LSP (which 
will be moved to locations 7600B and up at the loading of 
ISP), are in one-to-one correspondence to each other. 

From the beginning of the sequence items to a zero on 
PRMSTRT, the contents of the locations of PARAM are inserted 
into the location represented by the contents of the correspond¬ 
ing locations of PRMSTRT. From there on the direction is re¬ 
versed until a zero appears o;i PARAM and the linkages are com¬ 
pleted. 
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LINKAGE POINTS BETWEEN ISF AND 3SP - TYPE OVERLAY 


STORED INTO 


ISP 


3SP. 3ST 


3SQ 


ISP 


OVWRTEX+l 
SKPFB+I 
SKPBB-+1 
OVWRTRl+1 
PPRDA+1 
PPWTA-> 1 
RDMSTRA+1 
WRMSTRA+l 

OVWRTEX+3 

SKPFB+3 

SKPBB+3 

OVWRTR2+1 

PPRDA+3 

OVPPWTl+1 

OVPPWr2+l 

OVRDMl+l 

OWRM+1 

OVHED+1 

OVSEC+1 

OVRD+1 

OVWT+1 

SELECTWLl 

OVRDM2 
OVRDM2 +l 

OVADRC+l 

OVODDB+l 


POSIT +1 


RDISK +1 


HEAD +l ■ 

SECOMP +1 

RDINST +1 

WTINST +1 

SHIFT +1 

5500B=RAM 

DlSKl+1 

ALOPAD 


3SS _ I 3SR 


RDRUM +1 


0200B^EJM 
RESTORE +1 


OVPRUB-1 

OVPRU&^-l 

RDINSTA+1 

WTINSTA+1 

OVCTLR+l 

SELECT+1 

ORDEXG+l 

VERIAB 

OWERI 

OVSEEK 


0300B + POSITF-POSINST 
POSINST +1 

PRUINST 

CTLR 

ACTlVC+1 

DROPC+1 

0302B=UJN*+2 

0000 

1203B 0306B 

=LPN 3 =UJN *+6 


0200B-RJM 
ANGLE +1 
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Clont' d 

STORED INTO 
ISP 


3SP-TYPE 

OVERLAY 

OVERLAY 


a\jura j 


ISP 

OVOV2+1 

OVOV2P+1 


3SP.3ST I 3SQ I 3SS _ i 3SR 

CHANEND+8+1 

CHANEND-H8+1 


OVOVl+1 


CHANENDI8 


ODDA+1 


CHANEND+8+L.PPHDR+l 


PPIOX 

PPA 

PCHNA 

PCHNR 

PCHNW 

PCHNC 

PCHNDX 

0000 

SECOMP+1 

NUNOFN 

ORDEX 


CHANEND 

CHANEND41 

CHANEND+2 

CHANEND+3 

CHANEND+4 

CHANEND+5 

CHANEND+6 

CHANEND+7 

POSITPPl 

POSITC+l 

RDISKB+l 

RDIS3+1 

ERRINFA+1 


RDRUMB+L 

RDRM3+1 

ERRINFA+1 


ERRGALL 


POSITG+1 


D1SK13+1 


RDRUM13+1 
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9*2.6 Stack Processor Orders 

Note^ These codes are communicated to the stack processor. 
They are not the codes used In the code/status word- 

Order codes requiring a specific request format are 
indicated. In most cases the format is determined by flag 
bit settings rather than order code. 

0-READ (00); Read into central memory until a short PRU is encountered 

or the buffer is full(IN=0UT). 

O.RDSK (01): Read into central memory until a short PRU is encountered 

or until the buffer is full. Set the FST to reference 
the first PRU following the first end-of-record of level 
X or greater* The level is given in the high-’Order 6 
bits of the order byte* (ie. 1401 would request a read, 
then would require positioning following an EOR of level 
14 or greater) 

O.RCMPR (02): Read Into central memory after dropping the first three 

CM words of the first PRU- This is used by STITCH for 
loading a program from the system library, elimating 
the three word headier added to system programs by EUITLIB- 

O.RDNS (03): Read into CM non-stop. Stops only upon buffer full, 

irrecoverable error, zero record, or level 17 logical record. 

O.WRT (04): Write full PRU^s from central memory. 

O.WRTR (05): Write from central memory, ending with a short PRU of the 

level specified In the high-order six bits of the order 
byte* If an EOF flag bit Is found in this order, a zero 
length PRU of level 17 will be written following the 
short PRU terminating the record, 

(06,07): Undefined. 

O.RJDP (10): Read into the requesting PP ^ s memory until a short PRU 

Is encountered, or until the input area is full- For this 
and other PP I/O orders the format of the second word of 
the request will be: 


byte message first flag last 

count buffer byte bit byte 
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,OFZ j 


O.RDPNP 


O.SKP 


O.SKB 


O.WRP 

O.WRPR 


O.BPRU 


O.RCHN 


(11) : Read into requesting PP after dropi.in{j tiist ttiree uPi 

words of the first PRU, This is usid for all PP system 
program calls. 

(12) : Skip forward n records of level x or greater. The level 

is specified in the high six bits of the order byte; 

the number of records to be skipped is given in the third 
byte of the second word of the order (18 bits^. No data is 
transmitted. 

(13) : Skip backward n records of level x or greater. The level 

is specified in the high six bits of the order byte; the 
number of records to be skipped is given in the third byte 
of the second word of the order (18 bits). No data is trans¬ 
mitted. 

(14) : Write from requesting PP, full PRU's only. 

(15) : Write from requesting PP, ending with a short PRU of the 

level specified in the high order six bits of the order 
byte. If an EOF flag bit Is set in this order, a zero 
length PRU of level 17 will be written following the short 
PRU terminating the record. 

(16) : Backspace n PRU's. The number of PRU's to be backspaced 

is given in the third byte of the second word of the order 
(18 bits). Note that -this requests repositioning defined ty 
physical rather than logical units. No data is transmitted. 

(17) : Release chain. All record blocks assigned to a file are 

released, and the RBT word pairs containing them are 
released. The FST is reset to an empty condition, if 
Its address is supplied in the order. 

Note: requests 16 and 17 require no communication with 
the device, and therefore are given the highest priority 
in the search for the next order to be executed. All 
other requests are assigned priority based on the reposition¬ 
ing required. 


S 
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.3 Equipment Interface 

Explanations of the following des criptions 
Name of Device (Name of overlay) 


RB byte L-i — I —i— » — • —t i? I I ^ I ^ ^ 

(RB No. Is held In RBT word pairs tn this FORMATJ 

Physical Address |___. . - H. c- ib 1 |----- 

(In the event of device errors current physical address will be output 
into System Dayfile in this FORMAT. Bit positions with Utters 
correspond to the bit positions of RB with same letters;) 


Status Word |___I——'—*—'—^ 

STATUS 1 

or equipment status 


L______» 

STATUS 2 

or 6681 converter status 


(In the event of device errors status of the device will be output into 
System Dayfile in this FORMAT. Bit positions with X represent the 
conditions that are checked for error after each Input/Output operation.) 


6603 (3SP) (also for 6603 with option 10124 (3ST)) 
RB 


, * > —.E . . r»lD.C .B .AjlJ 

one of 126 
head positions 



even/odd sectors (0=even) 
one of 2 zones of same type 
one of 2 stacks 
outer/inner zones (0=outer) 


Sector 


Physlc.l Address I" |0 | i I IM I I L£i^ .... ' 

Physical sector No. =(PRU No.) x 2 + (A bit) 


X 


.Jj 


Status Word 


L- 




j — 1 _ 


‘ i —I— 


^ L 


none. 


I 


►parity error 
not ready 
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9,3 Equipment Interface Cont'd 

'6638 (3SQ) 




C T—r»lA^il l 

■w- - - -V ^- 


one of 32 ^ 

head positions A 


even/odd sectors (0 = even) 

■one of 32 selections of head groups 


Physical Address lO .0 . . .C.B . . i lO . 0 , 0 . 0,0 Sector ' TA*-; 

Physical sector No. =(PRU No. ) x 2 + (A bit) 

Status Word i x x . . i_ *J t . 1 *^l |^etj :act , j 



V-- ' \r 

position address position address 
unit I unit 0 


Stack Ho. 
parity error 
not ready 
not connected 
lost data 

Hot-Connected condition is checked after each connection is tried. 


863 DRUM under 3637B controller (3SR) 


RB i 0 >0 ' C ■ 0 > . . B- 




1 > 


^ 'one of 64 head groups 

even/odd PRU (0 =even) 

K 14- 


even/odd Interlaces (1-2 Interlacei 0==even) 


Physical Address |Q; 0 jO t iB , ^ i ^ iA ! 


j_i_ 


-Starting angular positiom; 

_ j i_j —*—— 1 — t — i. -J— * 


Starting angular position has 7 trailing O^s (1638A byte positions 
are grouped into 128 sectors^' of 128 bytes) 


128 sectors are grouped into 42 PRU^s. 
Interrupt i 


Status Word 


conditions 


tp- iiy 


\ i i 


i i t L. I .i 


read parity 
connect reject 



reject 

j'transmission 
Imparity error 


When a CONHECT or FUNCTION is issued and accepted, READY status 
is checked. 


I 
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865 DRUM under 3637 B controller (3SR) 


RB lO. O! r 


A ■*♦! 


i.1 


\ 


T 


- one of 4 subgroups 


one of 64 he/id groups 
even/odd PRU's 


Physical Address jQ >0 i ,B 


*4rk -►if-Sector 


J_L 


J_1-1-1- 


128 sectors are grouped into 42 PRU's. 

1 PRU = 3 sectors, 1 sector = 128 bytes- 

Status Word (Similar to 863) 


|(J A) , VKO ;Q 0 ilLi 


854 Disk Drive (3SS) 

RB 1 ■ , - I 1 I 1 I t » ^ 1 

one of 3720BC=2000) tracks 

f 

Physical Address ^ 0 ^ 0 ^0 ,Q [ , . , . i . i t U i.Q._L_ 


physicar sector 


cylinder 

1 cylinder “ 10 tracks = 160 physical sectors 
1 track = 16 physical sectors ” 5 PRU^s 
1 PRU ^ 3 sectors, 1 sector = 128 bytes 


Status Word 1 ■ . i^—i—i ■ , a ^ 

inte^ru^ i i A 1^ f ^ T 'ready 

conditions^ T \ 1 1 \ ^— busy 



abnormal/unavailable 
address error > 
lost data 


reject 
^trans* 
m i s s i on 
parity 
terror 


checkword error 
write lockout 


if abnormal bit set 


positioner ready 


When a CONNECT or FUNCTION is issued and accepted, READY 
status is checked* 


% 
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9.4 ISX 

INPUT REGISTER 

ISX will get the following information in its INPUT REGISTER: 



' CP 

Error 

- T -- 

CP I ABORT 

Stack Proce^!»or 1 

i 

"IS" 

" X ’’[“"o 

Code 

1 FLA” 

Mess* Buff. Aiidr J 


*For Error Code 73-^77, these 6 bits will be set to 0 as if the request 
came from CPO. Actual CP No. is always in byte A. 

Pof Error Code 3)A and 73> byte 5 has the message buffer address o t e 
Stack Processor PP from which the ISX request has been issued. Information 
will be available on the words 3-5 of the buffer, as follows. 


word 3 
word A 

word 5 




RBR NO.^^ 

_ 

STATUS 1 

STATUS 2 


BHIH 


PRU NO. 

a - 




head position - -- 




for Error Code A-22, if ABORT FLAG #0, the job will abort after the 
ISX has Issued proper error messages. ABORT FLAG will be 0 if the error 
flag In FET (word 2, byte 2, bit A) is set to 1. 

For Error Code 3 (recovered parity error), ISP will always set the 

ABORT FLAG to 0. 


PARITY ERROR PROCESSING 

Error Code 3 is for a recovered parity error and the following message 
will appear on the job dayflle: 

RECOVERED PARITY ERROR. 

Error Code A is for an uncorrectable parity error and the message is 

UNCORRECTABLE PARITY ERROR. 

On the system dayflle (as well as on the Display A), along with one 
of the above messages, information about the location of the error will 
be displayed: 

STATUS xitli xxS 

TRYJtX^ 


EQ ix^ ADDR ixix xxS 


(7) (8) (9) 

RBR XX RBXXXX PRU XXX 
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ISX Cont'd 

PARITY ERROR PROCESSING 
{1) Hardware equipment status 

{2) Hardware converter or controller status if applicable 

(3) EST number of the equipment 

(4) ,(^) Physical starting address of the PRU 

(6) Retry count (retry will be made 76B times until it Is made to be 
uncorrectable). Retry ^ount = 76B for an uncorrectable error. 
(7J,(8)*(9) Logical No.^s for RBR, RB (with flag* bit) and PR13 (logical). 


The above information will be lost if another parity error has 
occurred on the same device and has destroyed the information before 
iSX picks up the information. In such a case the following message 
will appear on system dayfile: 

PARITY ERROR POSITION LOST- 

Note that these PARITY ERROR messages will be used for whatever error 
conditions occur on a data transfer from the device- Errors Include lost 
data or write-lockout, if applicable. The kind of error can be verified 
by the octal STATUS bytes in the message. 


DEVICE UNAVAILABLE 

If a device is not available when it is selected for the execution of 
a stack request, a request is made for ISX processing with rode 73, and the 
request is reissued with a delay counter being set. 

ISX will find information on the device in the stack processor PP 
message buffer. 

ISX will display the following status message at the control point 
on the DISPLAY B: 

REJECT - STATUS 


(1) EST number of the equipment 

(2) ,(3) the equipment status 


As on codes 3 and 4, the information might be lost and the message 
will be : REJECT - EQUIPtlENT NO. LOST. 

The message will be kept there for 1.5 seconds and another ISX will 
come (with code 74) to clear the message. If the status persists other 
ISX^s will come with code 73 to keep the message up, A ISX call with code 
73, 76 or 77 will not come until 0.5 seconds after another ISX call to 
prevent saturation of the PP job queue. 


The condition may occur when the device is not ready, when 6638 
connection failed, or when function/connection is rejected because of 
any system malfunctions. 

The operator may drop the control point to get rid of the job in 
the event of error conditions produced by codes 73, 76, or 77, 
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RBT EMPTY CHAIN NULL 

When ISP finds that no more empty chain members exist, ISP will 
Issue a ISX call with code 77. 

If the processing by ISX to get empty chains is not successful, 

ISX will Issue a message at the control point on Display B: WAITING-RBT 
STORG, and will Issue a delayed call for another ISX with code 75 or will 
simply drop Itself. 

DEVICES FULL 

When ISP finds no more space on appropriate devices available for a 
stack request, ISP will issue a ISX call with code 76. 

ISX will issue a message at the control point on Display B: 

WAITING - FULL DISK 

ISX will Issue another ISX call with a delay of 1.5 seconds to clear 
Che message. 

OTHER ERROR CONDITIONS 

Codes 

5 

10 
11 

22 INVALID STACK ENTRY 


Messages 

NON-EXISTANT RBR REQUESTED 
BUFFER PARAMETER ERROR 
BUFFER 1/0 POINTER ERROR 
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10,0 CHECKPOINT / RESTART 

10,1 CKP - TAPE CHECKPOINT 


Initialization: 

Define constantsj calculate and store the control point number, 
parad address, and set a flag if the sp field is non-zero. 

Gall Validity: 

Determine whether the call is an operator or user call. If the 
call is valid, issue a ’’CKP REQUEST’^ day file message- If it is 
a RESPOND or rolled out job, bypass the checkpoint- 

Find FNT Entries: 

Search the FNT table for entries for this control point. Save the 
FNT addresses in FNTLIST. Input, output, punch, punchb, LGO, and 
the memory dump file are always processed. Non-local files are 
ignored* For each entry, branch to process tape or mass Storage- 

Process Tapes: 

Bypass multi-file tapes. If it is a labelled tape, fetch the label 
from the FET and save it in LABLIST- Locate CHECKPOINT file if 
any defined in job, 

Process Mass Storage: 

Put the FNT address in the last byte of the parameter list entry 
for the file- Also save the proper copy flag. Generate a parameter 
list entry if It is not there but is required. 

Storage Check: 

Increase the storage size if the current storage size is less than 
the minimum limit required to take a checkpoint- 

Memory Dump Process: 

If the memory dump file (MDF) has not yet been defined, make an entry 
in the FNT table* Build an FET for the MDF and open the file- 
Dump the FL onto the file in the format RA+IOOB to RA+FL followed by 
RA to RA+7 7 B. 

Define Checkpoint Dump File (CDP): 

If the CKP file has not been defined, request one. Open and rewind 
the file if this is the first checkpoint taken* 

Write Initial Header: 

Write a 2-word header including the logical file name, checkpoint 
number, field length, status, and Parad, and a level 16 EOF. 
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Process Tape List: 

Write a file in the CKP tape consisting of a 7-word entry for each 
tape file* The first three words are the FNT entry and the last 
four words the label or zeros. 

Process ECS: 

Bypass if no user area attached to control point* Write a 1-word 
header consisting of name CCCGCCE and FE/IOOOB on CKP file- Call 
EXREAD to read lOOOB words from ECS, and copy to CKP file; repeat 
until whole area has been copied- Follow with EOF* 

Process Parameter List: 

For every entry in the parameter list write a four-word record 
and EOF consisting of the list entry and the FNT, and copy the file 
changing level numbers 17 to 16* For the input file copy both the 
control card record and data* 

Dump CP Areas: 

The last file on tape for this checkpoint is the 200B word control 
point area* 

Call overlay: 

Call IRC to reload core from the MDF on disk* 


10*2 CKP SUBROUTINES 
OPEN 

This routine calls CODER to put the OPEN code in the FET for this 
file, and calls OPE. 


CIO 

This routine calls CODER to put the code passed in A in the file 
FET and calls CIO* 

CODER 

This routine stores 18 bits of A in the FET code/ status field. 

It clears D-T2 - D.T3 and saves the FET address in D.T4 as the FARAD 
for the call. 


RPJ 


This routine stores the name, control point number, and auto-recall 
bit in D.TO - D.Tl and writes D*T0 - D.T4 into D.FPMESl* It calls 
monitor to request a PP job and waits until the completion bit is 
set. If any error occured, a dayfile *^I/0 ERROR^^ message is issued, 

BUILD 

This routine builds the first five words of a FET, given the address 
of the file FNT* 
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RESET 

This routine sets the word of the file FET preset in AFET2 to the 
value passed in A. 

PAUSE 

This routine pauses for storage relocatioBj resets the RA and FLj 
and returns if no error has occurred* 

COPYS 

This routine exits immediately if the copy is not BOI-PP- If the 
old PRU count is greater than the current count and the EOI bit 
is not set, return* If it is set, go to copy EOI* If the new 
PRU count is greater than or equal to the old, write only that part 
defined by the old PRU count, including EOR*s, etc* 

WAIT 

This routine waits for all activity at the control point to complete. 
EXREAD; 

This routine calls M.ICE to initiate ICEBOX to read lOOOB words from 
ECS to CM at RA+IOOB. 

10*3 RESTART - CHECKPOINTED JOB 


Initialization: 

Save the new-field length and the new ECS field length/lOOOB from the 
job card. Set up constants and save the parameter count. 

Determine Parameters: 

Default parameters are LFbH3CCCCCC and checkpoint number ^ 1* 

Locate Proper Checkpoint- 

The checkpoint file has checkpoint disposition (0001) if it is not 
special file name CCCCCGC. Read the checkpoint file until a 2-word 
header is found. If the name in the header does not match the check¬ 
point file name supplied on the RESTART card or CCCCCCG by default, 
pause for the operator to change tapes* Compare the checkpoint number 
in the header with the requested checkpoint number. Search until a 
match is found. If the requested checkpoint number is smaller than 
the located checkpoint number, pause for the operator to back up. 

If the requested checkpoint number is greater than the largest checkpoint 
on the tape, issue message to dayfile and abort. 


Process Tapes: 

For each file, set up an FET and 2 REQUEST parameter words- Request the 
file, open and rewind it if it is not closed, reposition it, and reset 
the FNT via CYl. 


October 1969 


10-3 



SCOPE 


Process ECS: 

Read one word header and check that it contains name CCCCCCE* Compare 
current FE with old FE to check sufficient ECS attached. Read CKP 
file until EOF and write to user^s ECS area. 

Process Mass Storage: 

For each mass storage file do the following: Read a 4-word header. 

If the file name is INPUT, change it to CCGCCCl. Copy the file from 
the checkpoint tape to mass storage, changing level 16^s to 17- 
Rewind if required- If the file is the memory dump file (CGCCCCM) 
move the FET to MDFFET at RA420B. If the file is CCCGCCl, skip one 
logical record and again call CYl. Read the 200-word control point 
area and transfer control to RST- 


10.4 RST - RESTORE CONTROL POINT AREA FOR RESTART 
Initialization: 

Set constants, save the control point number, and drop the CPU. 

Call Validity: 

Check for a valid call by examining the checkpoint file. Find the 
FNT entry- The file must have checkpoint disposition (0001) or name 
CCCCCCC. Reset security and code/status fields. 

Read Input FST, Header, and CP Area Dump: 

The input FST and header are found 2 words ahead of the PARAD address- 
The input FST replaces word 15IB of the control point area, which 
is the old FSTl. 

Locate and Process Input Files: 

Search for and save the FNT addresses (if any) of the INPUT file and 
the CCCCCCl file. Interchange names- 

Update Control Point Area: 

Replace CP area word W.CPFST by dump word W.CPFST- Likewise replace 
W.CPERT, the control card section, and the auto-recall pointer. Reset 
the control card pointer in the CP area. Store the checkpoint number 
in the CP area, word W-CKP- 

Update Exchange Package: 

Put the current RA, FL and EM in the dump exchange package as well as 
ECS RA and FL- Then replace the C? area exchange package by the dump 
exchange package- Call overlay IRC by giving control to the PP idle 
prograra- 

10.5 IRC - RELOAD CORE FOR CKP OR RST 

IRC is the last phase in the CHECKPOINT/RESTART operation. IRC reloads 
from the MEMORY DUMP FILE (MDF) made on the disk by CKP or copied from the 
checkpoint dump tape to the disk by RESTART. The MDF is made up of field 
length at checkpoint time in the following formats RA+IOOB to RA'+OLDFL 
followed by RA to RA+77B. 

IRC is called by CKP or RST into the same PP with the following parameter 
set: 

OLDFL - must be 300B OLDFL NEWFL 

FARAD ^ parameter address; (if less than lOOB, special call) 

CKPNUM - the number of the checkpoint being taken 

MDFET - at RA+20B there must be a FET for the MDF and the 

FNT with name CCCCCCM, and equip, type of mass storage. 
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Processing; 

The MDF FET buffer pointer are sat to the following: FIRST“IN=<}UT=^ 
lOOBj LXMIT=OLDFLi The MDF is rewound and a read is issued to read 
RA+IOOB to RA+OLDFL from the HDF into central memory. The HA+IOOB 
to KA+277B is saved in PP memory at CHEOLDI-HIOOE, Now a read is 
issued to read HA to RA-+77B from the MDF beginning at RA+IOOB. Now 
RA to RA+77B is moved to FP memory at CHHOLDl, The new sense 
switch settings are set in RA now FF memory. 

Releasing of the Disk Storage: 

The MDF is then rewound and the disk space is evicted leaving 
only an FNT for the MDF. 

Resetting Core and FNT - FET Linking and Completion Bit: 

Now HA to RA+277B is written from PP memory to central memory. 

Now the old field length (i.e. the user program) has been restored. 
Next the file name table is searched for files assigned to this 
control point and the PNT-FET pointers are reset to point to each 
other. If the checkpoint was not a special callj the completion 
bit will be set at FARAD. 

Ending: 

A dayfile message is sent depending on which program called IRC; 
that iSs CKP or RST. Now the CPU will be restarted and IRC will 
drop out of the PP- 


CYl - RESET FNT 


CYl is Called by RESTART to reset the last word of fhe FST entry of 
an FNT, 


Processing; 

CYl searches the FILE NAME TABLE for a file with the same name 
as the one given it by RESTART and assigned to this control point. 
Then the old FST word two is set in the new FST entry- The users 
label bits from the old FST word one are set in the new FST entry. 
The new FST word one is given to RESTART. RESTART will use this 
word in the special case of the INPUT file. The completion bit 
is set and CYl drops out. 
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11.□ FILE ACTION REQUESTS 
11.1 OPEN 

11-1.1 OPEN ROUTINES AND OVERLAYS 

Open is the file opening procedures for SCOPE 3.D. Its 
basic purpose is to set files ready for subsequent reading 
or writing by the various drivers. Open consists of a pri¬ 
mary PP routine OPE I and subsequent calls are made to three 
other routines if necessary: 

IHR-open read or open alter on a magnetic tape file 

inu-open write on a magnetic tape file 

INF-file positioning on a multifile labelled tape 

OPE only calls 1HR or lHUr these routines would call IMF 
if necessary. The action taken by the open routines is 
determined by -Ca} the equipment of the file being opened* 
Cbl the type of open desired* and Cel whether the user 
has called OPEN or if this is just an internal call from 
a driver- Overlays to the open routines are based also 
on the above considerations• High level overlays used 
by OPEN are □. 

28P called by OPE on all user calls to OPEN 

Link up FNT entry to PET * creates FNT entry 
if needed. 


HES called by OPE on allocatable devices when-Cal 2BP 
has set up an FNT entry to assign the proper 
equipment* Cbl to position files on allocatable 
devices if rewind has been declared* fc> to read 
the index record on a random file into the user 
specified index area. 

STB called by IMR* IMU and IMF to position 1/2 inch 

magnetic tape files Irewind* or skip to begin¬ 
ning of information! 

4LB called by IMR* IMtil and AMF to read and write labels 
on a labelled magnetic tape. 

Due to the large size of the open routines* some of the above 
overlays are relocated at a higher level in the PP, for 
instance* BSP is loaded at 4DDD octal by OPE. 

An additional call may be made by llHil or IMF to load an 
overlay of the close reel routine ECLO! when an end of reel 
condition is detected on reading labels when positioning a 
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multifile or when writing a header label* 


ll.l.S OPEN CALLS 


The various options of the OPEN call are: 

OPEN REAS {z=mQJ - the file is rewound and the security 
code {bits Ifi + n of the FNT word 31 is set to read only 
{□IJ. If a labelled tape is declared the label is read 
into the circular buffer and the ?*INj* pointer is updated* 

The PRU count of the file {bytes M and S of the FNT word 
31 is set to zero* 

OPEN REASNR {z=lDDl - same as above but the file is not 
reqound and the PRU count is not affected* 

OPEN URITE {z=mm - the file is rewound and the security 
code is set to open write ClDl* If a labelled tape is 
declared the VOL and HDR labels are written on the tape and 
the file is left positioned immediately following the tape 
mark following the labels. The P.R-U* count in the FNT is 
set to zero. 

OPEN liIRITENR {z=lD4J - the file is not rewound and the 
security code is set to open write CIDI* If a labelled 
tape is declared the HDR label is written on the tape and 
the file is positioned immediately following the tape mark 
after the label* 

OPEN ALTER {z*ltDl - the same action is taken on as des¬ 
cribed in OPEN READ but the security code is set to open 
for writing {!□.> 

OPEN ALTERNR {z=12D} - the same action is taken on as 
described in OPEN READNR but the security code is set to 
open for writing {!□>. 

OPEN REEL {z=34D> ~ is generally used by a USER to open 
subsequent reels on a tape file* This call is also made 
by the tape drivers at load point of a tape to ensure it 
is positioned properlyr and by CLO when swapping reels 
atuomatically on a tape file* For reference see the headings 
of INTERNAL CALL and REDUNDANT OPEN described below* The 
different driver calls on an internal call define how this 
call is to be interpreted. A call from close reel on a 
swap of tape or a user call to open must have the file already 
opened {i*e* The first tapel in order for OPEN REEL to 
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determine whether to read or write this file. OPEN REEL 
thereforet degrades into one of the above specified opens 
with rewind- 

OPEN REELNR ■Cz=3DQ> - is the same as OPEN REEL but the call 
degrades to an open without rewind* 

Certain exceptions are made to the above descriptions for 
OPENS* If a labelled tape has been declared and a call is 
made for no rewind and the tape is found to be at load 
pointt label procedures are handled as if the call was 
specified with rewind. On a random file regardless of the 
calif the file is rewound after OPEN due to the necessity of 
referenceing that file to skip to and read the index record* 
On a labelled multi=file taper regardless of- the call the 
file is positioned immediately after the labels for that 
logical file^ the rewind option determines the action on 
the taper not on the file {see MULTIFILE section!* 


General Information 


There are certain basic considerations to be kept in mind 
when using OPEN* One of the primary items that OPEN needs 
to process a call is the type of device the file is to be 
for is! on* This is determined as follows: if the device 
has been assigned by a REuUEST function that will be the 
device used* If the device has not been assigned previously 
and if no device is specified by the user in his FET t then 

the device is assigned by 2ES to the most easily accessable 

allocatable device. If the device has not been assigned 
previously and the user has specified a device in his FET r 
this will be the device used* Howeverr the only acceptable 
FET devices are the allocatable devicesi others must be 
requested and assigned. 

FET UPDATING - on a call to OPENr certain fields are modi¬ 
fied or inserted by OPEN and the overlays it calls. If a 

user calls OPENr the following fields are altered 0 

Device type - replaced by current device of file random 
bit - turned off if file is not a random file disposition 
code - replaced by FNT disposition code FNT pointer - 
replaced by address of FNT entry record blocksize - size 
depending on device file is on physical record unit size - 
PRU size depending on device file is on* 


On a labelled taper certain fields in addition to the above 
mentioned are updated by the open routines and by MLBr the 
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label driver* These are filled in only if the fields 
contain binary zeroes at OPEN time* These are: 

Writing 

Edition number - set to 01 

Retention cycle - set to installation standard 
Creation date - set to current date 
Reel number - set to ODDI 

Position number - if existing file - correct posi¬ 
tion Number returned. If new- 
next available position. 

Reading 

File name - from label record 

Retention cycle - from label read- expiration date 

minus creation 

Creation date - from label read 
Reel number - from label read 

Position number - from first file found matching 

filename 

ll.l.M REDUNDANT OPENS 

A redundant open returns a function code 2D to the FET code 
and status* A redundant open is return on the following 
conditions: 

a- The file has previously been opened {and not closed]- 
b. The file has never been opened by the user but the PRU 

Count in the FNT is s* 0 {allocatable devices! 

As a redundant open is not considered an errori no message 
is sent to the dayfile. As a call to OPEN REEL or REELNR 
is for subsequent calls to a previously opened file* the 
above conditions are ignored for these calls. Therefbrei 
it is impossible to get a REDUNDANT OPEN on a OPEN REEL 
call {you can however get an error condition if this call 
is made on a file which has never been opened}. The FET 
fields are updated by OPEN even if the call was redundant. 

On a random file* the index is re-read into the index area 
and the file is rewound. All other files have no change made 
to their current position. 

11-1.5 EXTERNAL CALLS 

User calls to OPEN have the following structure to the input 
register 


BITS 

Data 

4E-ST 

OPE in display code 

4D 

Automatic Recall 

3b-3a 

Control Point Assignment 

□ -17 

FET address 
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The file action is picked up from the FET code and status 
bits 3-6. 


ll-l.b INTERNAL CALLS 


Calls made to OPEN by other PP routines have a different 
format to the input register. Certain flags are set by 
these routines to determine subsequent action by OPEN. 

An internal call is based on the fact that bit Hi is set 
to 1 {this is protected from the user setting it on bv 
nTR> ^ ^ 


11.1.7 


BITS 
42-S'! 
41 

3b-36 

2 ^ 

26 

27 

2b 

25 

12-03 
□ -11 


Data 

OPE in display code 
internal call flag 
control point number 
on if called by 2TW 
on if called by 2TR or 2TF 
on from a previous call from 
OPE {inF> - WRITE side 
on from a previous call from 
OPE {1P1F> - read side 
on if called by Checkpoint 
2 parameter from OPEN 
FNT address {first word! 


Bit 2T on means that the OPEN REEL call will be handled 
as an OPEN WRITEbut 26 means it will be handled as an 
OPEN ALTER. BIT 25 means that there will be no check of 
old labels before writing on a tape. Bits Eb and 27 are 
flags set by IflF when an end of reel was detected spinning 
for position on a multifile. IMF will set these and then 
call CLO to process end of reeli which will call OPEN REEL 
after it is through. This OPEN will then know this is a 
special condition of an internal calli will change this 
call back to a user cal In and continue positioning the file. 


MULTIFILES 


The special processing done by OPEN on multifile tapes 
merit additional notation. The presence of a multifile is 
determined by a non-zero value in the multifile name 
{bits 24—SRI of the FET word 13. This field is only checked 
on a labelled tape filen other types of multifiles can be 
made by the user but OPEN will handle these as any normal 
file. For this consideration! a multifile will be defined 
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as the set of logical labelled tape files consecutively 
written on a common set of tapeCsl and sharing_the same b 
digit multifile name- The sequence of these files within 
the set is determined by a 3 digit position number located 
in the 11th word of the FET {bits 0-17D-. If no position 
is specified for the logical file the correct one will be 
returned to the userr if there is no existing file the 
next available position will be assigned to the file {output 
files onlyl- On a multifiler the reel number in the FET 
pertains to the number of reels within a logical filer so 
that the initial reel of a file on the fifth reel of tape 
of the multi file is oner if the file goes to the sixth 
reel-the FET entry for that file is two- Multifiles 
use a special FNT master entry to contain common information 
such as devicer physical unitr etc-r that is used for each 
of the logical files within the set- This master entry 
also contains the current position of the file last referen¬ 
ced by the user {see entry for multifile FNT entryl- This 
entry must be established by the user prior to any action 
on any of the logical files- This is done by a REwUEST entry 
of the b digit multifile name with a multifile disposition- 
The user does not have to request each of the logical files. 
OPEN will create an FNT entry using information from the 
master entry- 

On an OPEN call on a multifile tape. OPEN will position the 
user to the correct file on that tape. Positioning is deter¬ 
mined by the 3 digit FET position number- A check is made 
prior to positioning to make sure no other files on that 
tape are still OPENEDn so that there will be no possibility 
of overwriting another file- Processing is different for 
a file to be opened for reading or writing. 

Reading - no positioning will be done if the next record 
on the tape is a label with the same position number as_ 
the FET if there is no position number specified no posi¬ 
tioning is done if the filenames are the same {in this case 
the position number on the label is returned to the FET>. 
Otherwise the file is reset to the last HOR label and 
positioning continues as described below {A CLOSE NO REWIND 
and an OPEN NO REWIND on the next file would satisfy the 
the above conditions!- 

Writing - no positioning is done if the FET position number 
is equal to the position number of the last referenced 
logical file plus one- Otherwise the tape is rewound the VOL 
label skipped* and positioning continues as described below- 

Positioning of a file is done by the overlay IflF - IflF is 
called by the above porcedures* and when complete re-calls the 
calling overlay. A call to IMF must imply that a multifile 
tape already exists and positioning is needed on it- An 
invalid procedure by the user could result in erroneous 
processing by IPIF - For instance* a call to OPEN a brand 
new multifile on the fourth logical file of the set would 
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result in an attempt to position to a non-existent file- IMF 
reads the next HDR label and compares the position number 
read to the FET- If there is no position number the file¬ 
names are compared and if equal the routine exits. If the 
position numbers compare the routine also exits- If the 
label position is less than the FET- The tape is spun ^forward 
to the next file. If an end-of-reel is found while spinningr 
a CLOSE-OPEN series of calls continues the positioning on 
the next reel. If the last file has been read -Can EOF label 
followed by two tape marks! checking is made as described in 
the write section above» and if these condtions are not meti 
an illegal function is declared and processing stops- If 
the position number of the tape is greater than the FET 
the tape is rewound and the first header on that tape is 
checked. If the tape is still greater than the fet and the 
reel number of the label says reel one -Cany reel other than 
the first physical reel of the multifile would have reel 
two in the first header! the job is aborted and a error 
message is generated- J^ILLEGAL MULTIFILE POSITION?^. If 
the reel number is other than reel one» the tape is unloaded 
and a request is made to the operator to mount the first 
reel of the multifile set- Processing continues as des¬ 
cribed above. 

Once a user writes a logical file that becomes the last 
file on that tape. So if a user is writing file position 
five* decides to rewrite file three* he can no longer refe¬ 
rence files four and five unless it is to re-write them lin 
order}. When no position number is spcified on a file OPEN 
does not know whether the file identified by the filename 
already exists or if it is to be a new one* Therefore if a 
user is writing a series of files without carrying position 
numbers* he must be aware that each file createdwill cause 
a search of the entire set of files. If a user is faced 
with a problem of not knowing which file is written* a 
suggestion would be to maintain a counter* update this counter 
by one and insert it in the next file FET to be written- 


11.P CLOSE 

ll-S-l Function 

CLO is called to CLOSE files or provide End of Reel pro¬ 
cessing. 

CLO can be called by a user request which is an external 
call* or by another system program* which is an internal 
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call. Internal call procedure is used when the file entry 
location in the FNT is known and marked active- At the 
completion of internal callsf theFNT and FET will not be 
marked inactive. 

On external calls the address of the associated FET is in 
bits O-i? of the input register. The requested CLO function 
is in the code and status field of the FET. On an internal 
call bits D-ll of the input register contain the address 
of the associated FNT and the requested CLO function is in 
bits lS-20. Bit 54 is on to indicate an internal call. 

The various CLO functions are defined as follows; 

Ji30 = CLOSE FILE with no rewind 
ISO = CLOSE FILE and rewind 
17D = CLOSE FILE and unload 
33D = CLOSE REEL with no rewind 
350 = CLOSE REEL and rewind 
370 = CLOSE REEL and unload 


11.5.5 CLOSE FILE REQUESTS 


File named input or output may not be closed because they 
have special use in system processingr requests to CLOSE 
these files are essentially ignored and cause no file action. 
Processing related to file movement and label handling is 
determined by device type as follows: 

Types Q-37 - allocatable devices 

The requested movementi if anyr is passed to 2ES which makes 
the proper stack entry. ESP is called to monitor the stack 
request I upon return from EBPr the stack entry has been 
completed and the FNT is marked active. 

Type 4D = one half inch magnetic tape 

If the last operation on the file was not a write or a 
backspace PRUr the trailer label is read and checked for 
validity. This check is possible for labelled and unlabelled 
tapes made under SCOPE 3.1 because trailer label procedure 
is the same for both types. Unlabelled tapes made external 
to SCOPE 3.1 need not have valid trailer label- This posi¬ 
tioning enables processing of multi-file tapes by issuing 
CLOSEr no rewind -ClBQIf followed by OPENr no rewindf between 
flulti-Files. If file movement is requested? HT8 is called 
to accomplish the movement 5TB will handle trailer label 
procedure before moving the tape. 
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are no label considerations. 

Type SO - line printer 
Type to - card reader 
Type 70 - card punch 

Any requested file movement is ignored as it is illogical* 
There are no label considerations. 


11.2.3 GENERAL CLOSE PROCEDURE 

After movement and label considerations are completedn 
CLOSE procedure is not oriented to device type* The FNT 
is marked closed by turning on bits 13 and I"! in PNT {3>. 

If the file is part of a Multi-File groupi the MFN FNT entry 
is marked closed and its LFN pointer is changed to zero* 
These fields insure proper processing of Multi-File groups 
and will be updated when the next file in the group is 
opened* 

If CLOSE-UNLOAO C17Q> is requested-, job termination pro¬ 
cedure is initiated for the file. The disposition code 
in the FET is used to determine if the file should be_ 
printed or punched* If a print or punch disposition is 
required-i the FNT name is changed to the job name and the 
FNT entry is assigned to control point zero* If print or 
punch disposition is not requested-, 2DF is called to 
process the file. 3BF disassociates common files from 
the control point and writes the index as the last logical 
record if the file is random* If not common-, the file 
entry is removed from the FNT. If the FNT entry has been 
deleted-, CLO marks the FET inactive and exits* Otherwise-, 
the FNT and FET are marked inactive for external calls. 
Internal calls exit without completing the FNT or FET-, but 
there are no internal CLOSE file calls in SCOPE 3*0* 

If a random file is detected and the security code is 
either write or alter the index is written out* 

11.2.^ CLOSE REEL PROCEDURE 

CLOSE reel calls are allowed only for one half inch mag¬ 
netic tape* Requests for other type devices cause an error 
condition - 

If End-of-Information is outstanding on the reel to be 
closed-, the trailer label is read* 

If an End-of-File label -CE0F1> is readn the tape is posi¬ 
tioned before the tape mark* The End-of-Reel status is 
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turned off in the FNT > and the normal exit procedure is 
executed- This process leaves the End-of-Information 
{EOI} on and the tape positioned so that the tape mark 
will be detected on subsequent read requests and EOI will 
continue to be returned. 

If an End-of-Volume label iEOVH is read and the call is 
internal, the up bit is checked. If the up bit is oni end 
of reel is returned to the user. The user must then call 
CLOSE reel and OPEN reel before continuing on the next 
reel. If the up bit is offr CLOSE will call open to 
initialize the next reel. 

11.2.S Hessaqes issued by CLP 

Pause for OP action 

Trailer label is irregular as described by previous message 
Operator is requested to type in N-GOr or N-RECHECK- GO 
will override the irregularity and continue processing. 
RECHECK will cause the label to be re-read. 

(IT XX E 0 T 

An end of volume label has been read on an input tape or 
written on an output tape. 

(IT XX label unrecognizable 

The trailer label on I1T XX does not conform to standard 
EOF! or EOVl format. 

Redundant CLOSE LFN 

The CLOSE request for LFN is redundant as LFN is already 
closed. 

Illegal function LFN 

The request on file Ifn is not of the type processed by 
CLO. 

Invalid file name Ifn 

The file Ifn has no entry in the fnt and cannot be closed. 
INTERNAL fPPJ REflUEST TO CLOSE OR OPEN 

When file action other than the original user request is 
desiredr the following procedure is used. The system 
program called to Satisfy the original request must call 
EBP to validate the FET format and buffer parameters. To 
secure the associated FNT entry* and to prepare the communi 
cation area of PP direct cells- Upon return from EBP 
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the associated FNT entry is marked active. Control of this 
file can be maintained until it is marked inactive in the 
FNT as this implies action on the file has been completed. 
Internal call procedure is based on this implicationr which 
enables a chain of file action without releasing the file 
until all action necessary in satisfying the original request 
is completed. 

tJhen calling a higher level overlay r the requested function 
is placed in the code and status field of FNT in direct 

locations 3>.FNT + fi and D.FNT+*^- The called overlay will 
determine its processing from the function in the direct 
cells. Upon return from the called overlayt additional opera¬ 
tions may be performed in the same manner or the file may be 
released. If the file is to be releasedf the FNT and FET 
are marked inactive thereby reflecting completion of the 
original request. This method requires no change in the 
procedure currently used by I/O drivers as the request is 
determined from direct locations. 

When additional file action requires the full assignment of 
a PPr the requested function is placed in bits 12-2D of 
input register of the called PP along with the name of the 
requested program in bits 42-ST. The control point assign¬ 
ment in bits 3b-3flf bit Ml is on to identify the call as 
internalr and the FNT CM address is in bits 0-11- 

The called program has the responsibility of recognizing 
the internal call and placing the necessary information 
in its PP direct cells rather than using EBP- The system 
macro PP entry will prepare I.PPIRBr D.RA* D*FL and B-CPAD 
if D.PPIRB is given as the first parameter of the macro 
call. 

The address of the FNT in the input register is used to read 
in FNT -CSl and FNT 131 into D-FNT and D-FNT+S. FNT -CSI 
address is stored in FA. The relative FET address is used 
to read FET Ill into 1>.BA. The appropriate buffer parameters 
are read from the FET into D.FIRSTr D-INn D.OUT and D.LIMIT. 
The device type is stored in D-DTS. If the device type is 
greater than or equal to MQ» the EST entry is read into 
D-EST. This entry is located by the primary device number 
in FNT IBl. 

Upon completion of the requested internal call» the FNT and 
the FET» are not marked inactive by the called program. 

The program which initiated the internal call has the respon¬ 
sibility of marking the associated FET and FNT completed. 


Mthird word of the FNT entry. 
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nULTIFILE FNT ENTRY 


The llultiFile FNT entry is used by OPEN and CLOSE to control 
a multifle tape. It must be initially set up by the user 
with a'T^EUUEST XXX-, nT--nF-,N.-, where XXX represents the six 
digit multifile identifier. The structure of the FNT 
entry is 


First word - 

Bits 15-m 
17 
Ifi-S'l 


Control 
Lock Bit 

Filename Cleft justified! 


Second word - 

Bits D-17 

2M-3S 

3b-47 

SD 

54 - 5 ^ 


Current File position number 

■[display codel 

Primary device ordinal 

Secondary device ordinal 

Tape density 

Label bit 

Equipment code 


Third word 

Bits Ifl-l'l 


24-3S 
3b 47 

43 - 4 ^ 


this FNT security code -[always 
closed! 

Multifile disposition -CODOH! 
Logical File pointer -CFNT 
Address} 

Logical File Security Code 
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12.0 GENERAL PURPOSE SYSTEM LOADER (GPSL) 

See the SCOPE 3 Reference Manual (Section 4) for a description of dcsinn 
c oncept s * 

12.1 PROCESS DESCRIPTION 
12.1.1 Operation Modes 

The (GPSL) operates in two modes, control card mode and user call mode. 

The basic difference in the two modes exists in the manner in which GPSL 
requests are initiated. More specifleally> a control card mode is init¬ 
iated when the operating system detects a control card which requires 
processing by the GPSL (LOAD, EXECUTE, NOGO, or ^'program call^’); user 
call mode is initiated when a CPU urogram requires a GPSL loading opera¬ 
tion during execution* 

Operating modes are discussed in greater detail below. 

(1) Control card mode. 

Control cards are interpreted by the operating system program 2TS, 

TRANSLATE CONTROL STATEMENT. If the control card is a call that requires 
processing by the GPSL, 2TS calls the GPSL program LOD into the same PPU. 
Parameters required by the GPSL and the user program are inserted by 2TS 
in CM locations KA'+2 through RA+67 of the user’s job area- 

The purpose of routine LOD is to insure that the GPSL program LOADER is 
present in the user’s job area« If the LOD call was the result of a LOAJ^ 
or ‘’program call” control card, LOD will bring the GPSL program LDR into the 
PPU to Immediately perform the requested load. Otherwise, the LOD call will 
be assumed to have resulted from an EXECUTE or NOGO control card. In this 
Case, LOD requests initiation of the CPU program LOADER and drops the PPU- 

LDR accomplishes the Input of binary text from the specified file(5). During 
loading via the PPU memory, address modification for relocation is accomp-- 
lished by LDR. All LINK, ENTR, FILL, SEGMENT, SECTION and XFER tables are 
loaded into special points in the job area* 

When LOADER determines that a physical load is required. It requests that LDR 
be loaded Into a PPU and executed. , LOADER will continue to process in a de¬ 
lay loop until the PPU program Is Ipaded and requests an inactive status for 
the CPU. 

Upon completion of the physical loading, LDR requests MTR to initiate the 
control point containing LOADER and drops the PPU. 

LOADER completes the linking of all interprogram references and places an 
END in RA+1 to cause MTR to advance to the next control card. The appear¬ 
ance of an EXECUTE card causes the completion of loading* Unsatisfied 
references are filled by loading appropriate library routines. Residue 
externals are filled with out-of-bounds references. A memory map is pro¬ 
duced, and control is transferred to the specified 'fentry point of the loaded 
program. The appearance of a NOGO card causes the same action as an 
EXECUTE card, with the exception that the program load is not executed. In¬ 
stead, the LOADER tables are cleared, and all pointers re-initiated so that 
a new load may follow the NOGO card. 
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Control card formats are specified in SCOPE 3 Reference Manual 3-42- 
(2) USER CALL MODE. 


The user call mode is essentially Identical to the program loading, linking, 
and initiation functions of the control card mode. Exceptions are that 
NOGO, EXECUTE and overlay generation functions are restricted to control 
card mode. Overlay loading is restricted to the user call mode- 

The user call Is always to the LOADER program which is resident in the user*s 
job area. If the loader is intact, the user^s call will be processed- 
LOADER will call the GPSL program LDR for all physical loading. 

Once a program is in operation a user may request the loading of a new binary 
program or group of programs, overlays or segment- The major difference 
between overlays and segments is that segmentation permits dynamic storage 
allocation while overlays are stored in fixed core maps created at initial 
load time- 

The user format is specified In SCOPE 3 Reference Manual. 

12-1-2 Normal Loading 

Most jobs loaded by the GPSL will not be segmented or overlayed- These 
will consist of one or more relocatable binary decks, preceded by control 
cards and followed by data cards- 

The binary programs are loaded by placing a LOAD card in the control card 
deck. 


If it is desired to load and immediately execute a major system prograrot 
a single 'program call’^ card can be used- To execute major systems pro¬ 
grams such as fortran or OOMPASS, a card of the following form could be used: 

FORTRAN p(l),....p(i) 

When the EXECUTE card is encountered the load process will be completed by 
the GPSL by searching the system libraries in an attempt to fill in all 
unsatisfied external references. Once this operation is complete, all 
external references remaining unsatisfied will contain out-of-bounds 
addresses. 


Prior to program execution a memory map is produced and put on the dayfile- 
CPU program execution will begin at the point indicated in the last loaded 
XFER table unless another entry point is specified by the EXECUTE card. 

12.1.3 Segment Loading 

A programmer wishing to segment his programs can initiate loading of the 
basic segments in a manner similar to that described above. Assuming that 
the entire program load is contained in the logical record following the 
control cards, the deck setup might be as follows: 


Job Card 
Setup Cards 
LOAD (INPUT) 

EXECUTE 

^8^ (end-of-record) 
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SEGZERO (P, A, B, C) 
SEGMENT (G, D, E* F) 
(prog A deck) 

(prog B deck) 

(prog C deck) 

(prog D deck) 

(prog E deck) 

(prog F deck) 

7^ (end-of-record) 

Data Decks 
6^ (end-of-file) 


The LOAD card will cause a load frcm the input file; however, unlike the 
normal loading scheme, the SEGZERO card triggers only the actual load of 
the segment zero programs (A>B,C). All loading of segments at levels 
greater than zero must be accomplished by the user in his object code. 

The execution (during object program operation) of a user call initiatirg 
the load of a segment at a level lower than existing segments causes a 
process of ^^delitiking. ” The GPSL delinks all segments equal to or less 
than the level of the called segment- All programs to remain in core must 
have external references which point to entries in the segment being de¬ 
linked re-established as unsatisfied externals- This entails filling &ut:h 
addresses with out-of-bounds addresses and clearing certain positions of the 
LINK tables* 

The deck setup example Included at the beginning of this section will no** 
be extended to illustrate several features of segment loading* Assumf- a 
user call of the following parameter list format is poocessed for user call 
format- 

Fn = INPUT 

SL ~ pointer to a list with the following program names: E,F, and A 

L = 1- 

Note that program A was also loaded in SEGZERO. It is permitted to load the 
same program at several segment levels* If this case exists, however, loading 
proceeds in the following manner: All programs In this segment (level 1) are 
loaded and linked to each other first* Any unsatisfied externals from other 
segments are then linked to the entry points in the segment- Since program 
A already exists at a lower level, all external references to A occurring 
in lower level segments will have been already satisfied- Thus, no program 
in a lower level segment may reference a program in a higher level segment 
if a copy of that program already exists at a lower level* A core map after 
the loading of segment levels 0 and 1 would appear as follows: 


SEGZERO_SEGMENT I 


(Re¬ 

served) 

Section 

L 




Seg 

0 




Seg 

1 

Unused 



Segment 

Tables 

A 

B 

c 

LINK 

Fables 

E 

F 

A 

.INK 

Tabl 

core 

LOADER 


RA RA’+’lOO RAiM 
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A user call might also load programs not appearing on the INPUT file. 
In this case the file name Fn In the parameter list roust not be zero 
and all programs in that segment must come from file Fn. For example, 
assume that later in the execution of the object program we have been 
discussing a user call with the following parameter list format is 
processed; 

Fn q 

Bl. pointer to a list with tl>e following program names: G,[l 

1 . 2 


Another segment will be loaded (and linked) beyond the first two segments 
at level 2, This segment would be l*)aded entirely from file Q* A core 
map of this load would appear as follows: 



RA RA-^lOO 


As a further example, assume a subsequent call with the following para¬ 
meter list format is processed: 

Fn == X 

SL = pointer to a list with the following program name: Y 

L = 1 

Current segments levels 1 and 2 will be delinked and the new segment loaded 
at level 1- A core map after this action would appear as follows: 


SEGZERQ_SEG 1 



SEC 

& 

SEG 

This 

A 

B 

D 

SEG 

0 

LINK. 

Tbls 

Y 

SEG 

1 

LINK 
. Tabl ■ 

(Unused 

core) 

LOADER 

RA 

RA-t-100 


FL 


12.1.4 Overlay Loading 

Overlay loading differs from segmentation loading in that all overlays are 
relocated, linked and written to a ‘^save^^ file in absolute format prior to 
being called at execution time* 

In addition, certain other features are unique to the overlay loading scheme. 
They are: 

• Shrinkage of blank common may be accomplished during loading by 
orlgintng an overlay at a location within blank common^ 

•The deck structure for overlay loading is similar to that for segment 
loading. In the overlay structure, however, a BCD OVERLAY loader 
directive must precede each program or program group to be included 
in that level. The first overlay level must be (0,0). 
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If the user wishes to build and load overlays, a deck setup of tlvc 
following type might be used: 

Job Card 
Setup Cards 
LOAD (INPUT) 

EXECUTE 

(end-of-record) 

OVERLAY (Q, 0, O) 

(Prog A Deck) 

(Prog B Deck) 

OVERLAY (I, 0, C000200) 

(Prog C Deck) 

OVERLAY (1, 1) 

(Prog D Deck) 

(Prog E Deck) 

OVERLAY (I, 2) 

(Prog F Deck) 

(Prog G Deck) 

OVERLAY (2, 0) 

(Prog H Deck) 

OVERLAY (2, 1) 

(Prog 1 Deck) 

7_ (end-of-record) 

Data Decks 
6^ (end-of-flle) 

®9 

"^he GPSL 17111 read in all decks for OVERLAY (OjO), in this case programs 
A and B. All linking will be done and loading completed by searching the 
library and filling in external references. A special version of LOADER, 
called OVERLOD , is attached to the upper end of OVERLAY (0,0) for loading 
of overlays at execution time. The largest blank COMMON reference, if 
present, will be origlned Immediately following OVERLAY (0,0). For the 
current example, assume that a 2000 word block of blank COMMON is origlned 
immediately following OVERLAY (0,0). 

Once the building of OVERLAY (0,0) is completed, it is written onto the 
specified file. The next program, OVERLAY (1,0), is then read into memory 
in the same position vacated by OVERLAY (0,0), However, "virtual" address 
relocation is performed on the program text (in the current example, the 
base address used for relocation would be the origin of blank COMMON + 200). 
Again, the overlay is written to the "save" file. 

Subsequent overlay decks are processed in the same manner and written to 
the "save" file. Consequently, the file would have the following format 
following the overlay generation phase: 


0 

V 

Prog 

Prog 

0 

V 

0 

V 

Prog 

0 

V 

Prog 

Prog 

0 

V 

Prog 

Prog 

0 

V 

Prog 

0 

V 

Prog 

EOF 

L 

A 

B 

E 

L 

C 

L 

D 

E 

L 

F 

G 

L 

H 

L 

I 


0 



R 

T 

1, 


1, 

4 



1, 

A 



2, 


2, 




0 

D 
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IE an EXECUTE card is processed next» execution will begin at the entry 
point for OVERLAY (0,0). Subsequent overlays are called by the user in 
his object program - only OVERLAY (0,0) is loaded as a result of a control 
card. A typical user call would be: 

Fn = X (X = name of "save" file) 

ST. = 0 



In this case, OVERLAY (1,0) would be called from the "save" file. Following 
the loading process, the overlay entry address is placed in word 2 of the 
Call. Assume a user call from OVERLAY (0,0) of the format? 


Fn = X 
SL = 0 



In this case, OVERLAY (2,0) would be called into memory Imntedlately following 
blank COMMON. 

As a final example, assume that an OVERLAY (1,0) was called by either OVERLAY 
(1,1) or OVERLAY (2,0). Such a call is Illegal and will result in: (1) the 
loading of all overlays and recording of consequent memory maps; and (2) the 
bypassing of the next EXECUTE card (this does not necessarily mean the abor¬ 
tion of the entire job). 

12.1.5 Memory Mhps 

A short list of data is placed on the output file each time a load is 
cccnpleted. In addition, every time an overlay is generated the loader will 
place on the output file certain information identifying the overlay and 
the location In which it is to be loaded. 

This output is provided to facilitate debugging and testing and may be 
suppressed by the proper setting of the NOMAP flag In the user call para¬ 
meter list. 

During segment loading a map similar to the standard load map is produced 
for each load* This may be suppressed by properly setting the NOMAP flag. 
When loading from control cards, a map is always produced except for system 
programs (such as FORTRAN andCOMPAS^ loaded from'the library. 


12.2 INTERFACES 

The GFSL programs communicate with each other and the remainder of the SCOPE 
system through a series of parameters (status indications and pointers) 
located in CM. Parameters utilized for communication between GPSL programs 
are termed internal and those utilized for ctxnmunlcation between GPSL 
programs and other SCOPE system programs are termed external. 

Two general CM areas are used for program communication. 

(1) location RA through RA+778 of the user's job area. 

(2) the system pointers, tables, and communication areas in low CM core. 
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The low core composition is covered in other descriptions of the SCOPE 
system and will not be discussed In detail in the GPSL documentation. 

12.2»I Inte r nal Interfaces 

The GPSL programs communicate with each other through four words in CM: 
RA^-64 through 67 of the user ^ s job area and words W.PPTIME and W-CPLDR 
in the jobs control point area. 


Parameter data contained in each of the CM words are referenced as bit 
configuration within a 60 bit CM word of the following format: 

CM Word: 



Internal interfaces are summarized by the following table. 

P- 1 - r — - ■ 2 j >—- 

RAi-6A PROGRAM CALL OR FILE NAME I ! 


NAME 

r j NUMBE- 

1 OF 

_ 

1 { PARAMO 

STERS 


RA+65 


RAi-66 


I DURING SEGMENT LOADING 
! FWA 9F SEGMaNT T4BLES 

___ 26 . ^ 2 _ 


lADDREST 

UOB ARi 


1 OP NEXT LOC 
:a. a^il_K>r 


VriON IN USER'S 
?R0G LOADING 


!-1— 

—r-r 

. 1 !1!( irwAo! 

OBJECT PROG 

-1—1— 

_L_S_ 

1...I.!! !! !ni us| 

iIR's JOB AREA 


/ 


Address of the next location 
available for the loading of 
tables accompanying LOADER 
in CM. As the tables are 
loaded adjacent to and below 
LOADER* successive locations 
for loading are obtained by 
negative addressing frcsm 
this pointer. 


FLAGS SET BY LOD to indicate 
the following options: 

bit 32 REDUCE for current 
run 

bits 33-35 001=^AP(ON) 

OiOH^AP(OFF) 
100=MAF(PART) 


FLAGS SET BY 2TS when 
following cards occur: 

bit 28 DEBUG - LOADER will \ 

write DEBUG file ’ 
so that DMP may 
produce labeled 
dumps. 

bit 29 DEBUG(C) LOADER will write 
DEBUG file so 
that DMP may pro* 
duce labeled and 
change dumps. 

bit 30 DEBUG with T parameter-During 

overlay or segment¬ 
ation runs, this 
bit Indicates to 
LOADER if TRACE is 
being used. 

bit 31 DEBUG with S parameter-During 

overlay or segment* 
atlon runs, this 
bit indicates to 
loader If SNAP is 
being used. 


LOADER DIRECT¬ 
IVE CARD FLAGS; 
SET WHEN LDR 
DETECTS THE 
CARDS 

SECTION(bi t IB) 
SEGEERO(bitl^) 
OVERLAY(bit 20) 
SEGMENT(biL21} 

^OVERLAY FLAG 
felTE giving the 
level of the in¬ 
coming overlay 
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KA-!67 


18 


^—•— 

-1 — WmT — 

— 1-1 - 

— 


(FWA OF LOADER 
_1_^_ 


During segment loading the 
address of the linkage 
table accompanying the 
lowest level program in 
user^s job area 



-RSS mode operation 


EQUEST exit flag LOADER 
routine REQUEST sets this 
bit to zero before exciting 
to LDR to service a loading 
request* REQUEST will be 
in a loop monitoring the 
bit when the CPU is dropped 
by LDR. Upon reactivation 
of the CPU LOADER program, 
a status setting of one 
(by LDR) will allow REQUEST 
to exit from the loop and 
continue processing. 


. the last control 
card type inter¬ 
preted by 2TS: 
OOO^^'PROGRAM CALL- 
card 

001=LOAD CARD 
010=EXECUTE card 
lOO^OGO card 
(External interface) 

Map flag set if, 
during program 
loading for a job, 
access is requested 
for a program not 
listed in the li¬ 
brary directory. 

Maps will then be 
produced according 
to bits 33-33 in 
RA^^6. No memory 
maps are produced 
for runs whose pr^ 
grams are loaded 
entirely from th —^ 
system libraries. 



set by LOD: 

01==^NAF cards but not 

trace cards have occurred* 
10“SNAP cards have been 
followed by TRACE cards, 
thus making any more 
SNAP Cards illegal* 


END OF LOAD bit: indicates to 
loader that LDR has completed 
the requested load* 


.^partial map bit: Indicates that 
a single line header Is to be 
output Instead of the entire map* 


TRACE control bits 
set by LOD3 

OI^RaCE Cards but not 

SNAP cards have occurred- 
10=^RACE Cards have been 
followed by SNAP cards, 
thus making any more 
TRACE cards illegal- 
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Control Point + 24 

Control Point W.CPLDR 

i'’ I? 


Bit 36 "Loader already in" flag: indicates 
that LOADER has been loaded the the 
user's job area (by a prior access 
to the LOD program). 



REDUCE card is 
processed. LOD 
places this in 
RA+B6 (bit 32) 
when initializing 


Set by 2TS when DEBUG card 
is processed. LOD places 
these bits in RA-+b6 (bits 
28-31) when initializing 
for each run. 


for each run. 


Set by 2TS when MAP card is 
processed. 

00:^AP (OFF) 

01=^AP (ON) 

10=MAP (PART) 

LOD formats these bits into 
RA+66 (bits 33-35) when 
initializing for each run. 


Program linkage is accomplished by LOADER through the use of a set of tables formatted 
and loaded by LDR. These tables are adjacent to the LOADER routine in the user’s job 
area. A core image after a normal link and load would appear as follows on the next page, 

NOTES for table on page 12-10 


1. Format of word containing table pointers. 


59. 


M 


Position 
relative 
PTBL NO.l 


of LINK cable 
to start of 


Position 

relative 


of 

to 






Position of 
relative to 
PTBL NO.1 


ENTRY point table 
start of PTBL NO.l 


FILL table 
start of 


4 -- 


)le\ 

' 1 

Position 

to start 




Position of 1st word of 
PTBL NO.2 relative to 
start of PTBL NO.l 


of 

of 


REPL table 
PTBL NO.l 


relative 


2. Following the above word is a list of COMMON block names referenced by this program. 
Blank common is indicated by bits 54-39=77. A zero word terminates the list. 

3. Each pointer is relative to the start of this PTBL. 

4. During segment processing tables for each program are condensed and moved to a 
position adjacent to the program in lower core. The contents of this position 
will be changed to contain a pointer to the set of linkage tables adjacent to the 
next higher level in core. The pointer will be set 0 for the last set of tables 
in the list. 
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PTBL yn. 


1 . 


2 . 


3. 

2 . 


PTBL # 2 


LOADER 

XFER XFERADD 

POINTER TO BLANK COMMON , 

PREVIOUS XFER 

PROGRAM #1 N^E PROG. LOCATION 


UUMMUIN A IMAWt A jLul; 

COMMON B NAME B LOG 

CCMION C NAME C LOG 

00 000 000000 

LINK TABLE 

00 000 001 

ENTRY POINT TABLE 

FILL TABLE 

ENTRY POINT TABLE 

REPL TABLE 

PROGRAM #2 NAME PROG. LOCATION 

1) NAME-ITLOC---- 

COMMON E name E LOC 

00 000 000000 

ENTRY POINT TABLE 

LINK TABLE 

REPL TABLE 

FILL TABLE 

UNUSED 

CORE 

PROGRAM #2 

CCMION E 

COMON D 

PROGRAM yn 1 

CC»!MON C 

COMMON B 

COMMON A 

SEGMENT TABLE 

SECTION TABLE . 1 


RA + FL 


RA + 100 
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The tables Included In the core Image 
are outlined In greater detail below. 

SECTION 


★TOR LAST PROGRAM 
IN LIST 


SEGMENT 


OVERLAY 
ENTRY POINT 


LINK 


REPL 


FILL 


diagram of the previous page 


SECTION NAME 1 „ 

BIT 59=1 

0 0 0 ' 

PROGRAM name 1 

0 

PROGRAM NAME 2 

BIT 59=1 

0 0 0 0 

SECTION NAME 2 q 

BIT 59=1 

0 0 0 0 0 

4)_0^0 Q Q 0 0 0 0 

0 0 0 0 __ 

SEGMENT NAME 1 q 

0 0 0 0 

BIT 59=1 

PROG. OR SECTION 
NAME 1 

0 

SECTION 0 

0 0 0 

^QMEm^NAME 2 

-■_ J 

56a L2 LI FWA 

ENTRY ADDRESS _j 

0 0 0 0 0 0 

NEXT ENTRY 

TABLE 

ENTRY POINT 1 NAME 

abs location 

IRA 

ADDRESS 

ENTRY POINT 2 NAME 

ABS LOCATION 

IRL 

ADDRESS 

ENTRY POINT 3 NAME 

ABS LOCATION 

IRL 

ADDRESS ' 

0000000000 

0 


0 0 0 0 0 0 0 

NEX'l' ENTRY 

TABLE 

EXTERNAL REF. 1 

0 IF UNSATIS 

FIED OR address 

P RL LOC 

ERENCE *2 014 

EXTERNAL REF- 

UNSAT P 

RL LOC 1 

lo 0000000 


0 0 0 0 0 0 0 

NEXT REPL 

I SR 

s 

C B DR 

D 


000000 OOP 


0 0 0 0 0 0 0 



NEXT 

FILL 

CONTROL BYTE 
BIT 59=0 

RL 


ADDRESS 

RL ADDRESS 

T 

0 

0 0 0 

0 

0 0 0 0 0 0 0 

0 

0 
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12-2-2 External Interfaces 


External interfaces are summarized by the following table. The ^'program'' 
column refers to the SCOPE system program with which the GPSL Interfaces. 


Program 

2TS 


MTR 


Description 

The system program 2TS will call LOD 
as a PPU overlay after processing a 
load, NOGO, execute or "program call" 
control card- The control card 
parameters will be placed in the user^s 
Job area starting at RA +2* In the 
"program call" case where no ident¬ 
ifier is found, the first word on the 
card will be interpreted as a parameter 
and stored In RA +64. In addition, 2TS 
will store a code in RA +67, bits 24-26, 
indicating the type of control card 
interpreted. Refer to table of RA t^ 67 
for the app]icable codes. PPU program 
loading is now done by LOD- 
MTR or storage cells set by MTR are 
utilized by the GPSL in the following 
ways- 

1. The PPU programs LOD and LDR will 
interpret the program by which they 
were called by the contents of their 
associated PP input register- 


The conditions indicated by the contents of 
bit positions 41-59 (in display code format) 


are as follows: 

CONTENTS 

lAJ 

LDR 

LOD 

LOD 


CONDITION 

LOD called by 2TS or, 
LDR called by LOD 
LDR called by LOADER 
LOD called by LOADER 
(bits 0 17=0) 

LOD called by RUN 
(bits 0 17^4b) 


2- LOADER will call the PPU programs 
in the following manner: 

LDR or LOD will be put in RA+1, left 
justified and In display code format. 

In the case of a user call, the address 
of the associated parameter string will 
also be placed in EA+l, right justified- 
LOADER will continue to execute in a 
delay loop until the GPU is dropped by 
the called PPU program. 

3. The PPU programs may enter the CPU 
program LOADER at several different 
entry points. The entry point is preset 
by altering the program address in word 0 
of the associated control point. The PPU 
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then requests :he CPU with a MTR function 
code of IS* 

4- LOADER may request the system to access 

the next control card by placing an END in RA^L* 

5- The LDR routine will access word 23 of the 
user's control point area at the end of each 
program load In order that load times may be 
included in user requested memory maps- 

CLL The system program CLL wlllbbe dropped from 

SCOPE system library, and its functions 
performed by LDR. 

CIO The system program CIO will be utilized to 

output memory maps and OVERLAY* 


PROCESS FLOW CHART 


Control Card Call 


SCOPE SYSTEM^IKTERFACE 


User Call 


MTR recognizes that a control 
point needs service and calls 
lAJ- lAJ calls 2TS to process 
control cards* 2TS recognizes 
a GPSL associated control card 
and calls in LOD. 


I 


I 


User jumps to LOADER routine 
resident in Job area. 


LOD 


LOADER 


LOD is called by 2TS for con¬ 
trol card processing or by 

LOADER for reloading Into the 
user^s Job area- 

LOADER is loaded when re- 


LOADER is the CPU portion of 
the GPSL which accomplishes the 
linking and delinking of inter- 
program references , the pro¬ 
cessing of selected loader tables 

qulred. GPSL pointers In RA + 

65t 66, and 67 are cleared for 
initial job entries. 

LOD entries for : (1) EXECUTE 


and user calls, and the initiation 
of job processes. 

or NOGO control 
LOADER reload c 
in an exit to L^ 
LOD entries 
''program call" 
result in an ex 

cards; or (2) a 
all will result 
OADER. 
for LOAD or 
control cards 
it to LDR. 

w 


1 

LDR 1 

' V 1 

LDR can be called by LOD when control cards are being processed or by 

LOADER when a user call is being processed* LDR accomplishes the physical 
loading and relocation of all programs, the processing of loader directives, 
and the storing of all program tables such as FILL, LINK, ENTRY, REPL AND XFER- 
The processing of these tables is left to the main CPU LOADER. 
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2.A LOD, initializing LOADER 

12.4.1 General 

The three primary purposes of the GPSL program LOD, initializing Loader 
are: (1) to perform the initial loading of the GPSL routine LOADER into 

the user's job area* (2) to ensure that the routine LOADER is intact in 
the user's job area upon subsequent calls* and (3) to perform certain 
initializing tasks In order to facilitate the loading process. 

More specifically* the following main functions are performed by the LOD 
program: 

1) Perform the Initial loading of LOADER upon encountering the 
initial GPSL control card 

2) Test for the presence of LOADER in central memory by performing 
a preliminary checksum test for the validity of LOADER 

3) Upon failure of the checksum test, to perform a reload of LOADER 

4) Upon request of LOiU)ER, to perform a reload of that routine 

5) Initialize certain parameters to facilitate LDR - LOADER commun¬ 
ications during the loading process 

6) Call upon the GPSL program LDR to perform the actual physical 
loading of user programs 

12.4.2 Detailed Description 
12.4.2.1 Program Calls 

The LOD program may be called into a pool PPU by: (1) the operating system 
upon discovery of a GPSL control card; or (2) the GPSL program LOADER upon 
discovery chat part of the LOADER program In the user's job area has been 
destroyed. 

Operating system calls are initiated by the system library program 2TS, 
Translate Control Statement. Upon entry into LOD* the type of control card 
will be indicated in word RA + 67B, bits 24 - 26. Specifically, the control 
cards which cause LOD to be called together with the corresponding bit 
settings are given below: 

Control Card Type RA-h67B. Bits 24-26 

"Program Call" 000 

LOAD 001 

EXECUTE 010 

NOGO 100 

Control card parameters will be available in locations RA +2 through RA +63B 
of the user's job area. Note that the GPSL design permits a maximum of fifty 
parameters. 

GPSL program LOADER, residing in the user's Job area of central memory, will 
initiate a call to LOD whenever' it determines, by performing an internal 
validity check (checksum test), that part of LOADER has been destroyed. The 
LOD program will reload LOADER into central memory and return control of the 
14 CPU to an entry point within the LOADER validity test routine. 
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12-4.2,2 LOADER Residence Test 


When the LOD Is called by LOADER^ It is presumed that part of LOADER has 
been destroyed and a reload of LOADER ensues* On the other hand, when the 
LOD program is called by 2TS» it Is possible that the LOADER routine has 
already been loaded by a previous request, this condition (^^LOADER-Already- 
In”) may be determined by checking a status bit in the user's control point 
area --- the LOADER -Already-Iti Flag* Specifically» this status flag occupies 
bit 24 of the control point area plus 24B. 

If the status bit Indicates that LOADER is already resident in the user's job 
area (i.e. equal to X), LOD will perform a preliminary validity (checksum) 
test for a portion of LOADER* A valid result for this test will result in the 
bypassing of the LOD process which loads the LOADER program. LOD does not 
perform a total checksum of LOADER due to the excessive processing time that 
would be required. Specifically» the portion of LOADER that Is checksummed 
by LOD is the routine within LOADER which performs the checksum of the entirety 
of LOADER and which calls LOD if that checksum fails* 

12,4.2.3 Pointer Initialization 


If the LOADER-Already-In Flag indicates that this is the first entry into the 
LOD program for the current run (i.e* equal to 0), all fields in the LOADER 
communication area in RA +65B through RA +67B will be initiated as follows: 

1) CORNEXT, the next available location for program loading 
Is set to lOOB (RA + 65B, bit 0 - 17). 

2) TBLNEXTj the next available location for storing loader tables 
is set to FWA LOADER - 4 (RA +66B, bits 36-54), 

3) The control card type bits, RA + 67B, bits 24 - 26, which are set 
set by 2TS, and the RSS bit, RA + 67B (bit 27), which is set 

by LOD, are preserved, 

4) FWA LOADER in RA + 67B, bits 0 - 17, is preserved. 

5) The MAP, REDUCE, and DEBUG control bits are picked up from 
the control point area and placed in RA + 66, bits 28-33. 

The REDUCE BIT in the control point area is cleared. 

6) The remaining bits in RA + 65B through RA + 67B are cleared. 

7) Words FWALODR-1 through FWALODR-5 are cleared. 

Should the LOD program call be the result of an EXECUTE, NOGO, SNAP, TRACE, or 
"program call" control card, the LOADER-Already-In Flag will be set to 0 prior 
to program exit. This will cause GPSL initialization --- reload of LOADER and 
initialization of address pointers --- upon the processing of a subsequent 
control card for the job in question. 

12.4.2,4 LOADER Loading Process 

The process required to load the LOADER program into central memory consists 
of two major functions: (1) Searching the system library to determine the 
location of the LOADER program, and (2) the physical loading and relocating 
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of LOADER Into the user's central memory job aree« 

The library directory Is searched for the presence of LOADER. Failure to 
locate the program results In the error message "LOADER NOT FOUND IN LIBRARY" 
and termination of the Job, 

If LOADER Is found to be on disk resident, then a disk READ request is issued 
which will read as much of the LOADER text stream as possible Into the CM 
area which LOADER will occupy in its final state. Since the text stream is 
longer than the relocated program» the remainder of the stream is kept in the 
PPU, This method is used to ensure that the disk will be read at maximum 
speed and no disk revolutions lost. Once this process has been accomplished, 
the unrelocated text is processed one word at a time and replaced In central 
memory - 

If LOADER is found in the RSL, then the text stream is processed one word at 
a time from its location in CM resident. 

The LOD Input routine accomplishes the loading and relocating of the LOADER 
program into the extreme end of the user's job area. Upon termination of the 
loading process^ LOD will place In word RA + 67B, bits 0 - 17, a pointer to the 
FWA of LOADER. 

12.4.2*5 Program Exits 

There are four possible exits from LOD. 

1) Error Exit the foilrowing error conditions will cause the job to be 
aborted with the appropriate message: 

A) LOADER NOT FOUND IN LIBRARY -- LOD could not find an entry in the 
Program Name Table for LOADER, 

B) FL TOO SMAXjL FOR LOADER * The user's field length is not large 
enough to contain all of LOADER* 

C) INVALID CONTROL CARD - The name specified on a program call card 
cannot be located In either the FNT or the Library Directory, or 
there is a format error In the parameters on a control card re¬ 
questing a PF program. 

D) LOADER CONTROL CARD OUT OF SEQUENCE - An EXECUTE or NOGO card has 
appeared without a prior LOAD card pertaining to this run. 

E) error in loading loader - Internal checks on the stack processor 
performance while reading LOADER from disk have failed* One of the 
following conditions is the cause: 

1, A false End-of-Record status is given after the start of LOADER 
is read to Sentral Memory. 

2. £nd-of-Record status does not occur after reading the remainder 
of LOADER into PP memory, 

F) TRACE OR SNAP CARDS NOT CONTIGUOUS - while processing SNAP and TRACE "" 
Cards, LOD has discovered that the sequence SNAP-TRACE-SNAP or TRACE- ^ 
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SNAP-TRACE has occurred* All cards of one type must appear before 
the cards of the other type. 

2) PP program exit -- When a program call control card specified the name 
of a PP program, LOD requests that the program be loaded into another 
PP and then exits to the idle loop. 

3) LDR Exit . 

If the LOD program call was the result of a LOAD or "program call" 
control card, the GPSL program LDR is called into the PPU to begin 
loading of user program text limaedlately. 

4) LOADER Exit . 

If the LOD program call was the result of a LOADER call from the CPU, 
or an EXECUTE or NOGO control card, MTR Is requested to activate the 
LOADER program in the CPU. The PPU is dropped by LOD. A program call 
card for SNAP or TRACE will also cause an immediate exit to LOADER 
if the appropriate routine (SNAP or TRACE) is already loaded as a 
result of a previous SNAP or TRACE card. 

/ 

Prior to normal exits (LDR and LOADER) from LOD, the LOADER entry 
address for subsequent processing is preset. This is accomplished 
by setting the program address in the related control point exchange 
package to the proper entry point. The LOADER entry point settings 
are summarized by the follcpwing table. See Section 12.4 LOADER, for 
a more detailed description of LOADER entry points. 


Entry Point 

Location 

Condition 

LOADER 1 

RA + FL - 2 

Return used by LOD 
after it has completed 
the reload of LOADER 
upon the request of 
LOADER 

LOADER 2 

RA + FL - 3 

loader has just been 
loaded initially or 
just reloaded. Upon 
entry into LOADER, an 
initial checksum must 
be taken for subsequent 
comparison. 

LOADER 3 

RA + FL - 4 

LOADER was not reloaded 
as it has passed the 
preliminary checksum 
test* Upon re-entry 
into LOADER, a check¬ 
sum will be taken and 
coiT^ared with the value 
stored when LOADER 
was Initially loaded. 
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LOADER 4 


I: COPE 3 


I RA + r- - 5 

! 


Overlaps are being generatt 
and this is at least the 
second LOA!) card for this 
run- The checksum is 
verified upon entry to 


LOADER. 


LOADER 5 RA + FL - 6 This is the entry to LOADER 

when instant replication 
is to be perfomed. This 
entry is made from LDR, 
but is mentioned here for 
sake of continuity. 


12.4,2.6 PP Call Processing 

When the LOD program is called by 2TS as a result of a control card, it is 
immediately discernible to LOD what type of control card is involved. This 
Can be determined by examination of RA + 67B, bits 24-26. However, it cannot 
be determined in the case of a ^program call” control card whether the program 
calls for the execution of a CPU or PPU program. Hence, when this type of call 
to LOD is made, LOD searches the File Name Table (FNT), the Library Program 
Name Table and the Library Entry Point Name Table. 

If a match is found in any of these three lists, LOD assumes that a call for 
a CPU program has been made and proceeds to load LOADER according to the pro¬ 
cess described above. 

However, if a program name cannot be found in any of these three lists, LOD 
presumes that a call for a PPU program has been Initiated. In this case LOD 
performs certain preliminary checks on the validity of that assumption. 
Specifically, these checks are: (1) the program name must not exceed three 
characters in length, (2) the first character must be alphabetic, (3) there 
must be no more than two parameters present, and (4) the parameters must 
consist entirely of octal digits. If the program call passes these tests, 

LOD forms a PP call word from the name together with the parameters and places 
this word in the PP recall register associated with the control point in 
question. If the program call is for DMP, checks (3) and (4) above are skipped, 
and the PP call word is formatted with bits 0-35 set to all ones. This gives 
DMP the capability of accepting more than two parameters and accepting alpha¬ 
numeric parameters, both of which are needed for labeled dumps. The PP 
containing LOD is then released. If the program call does not pass the above 
tests, the message "INVALID CONTROL CARD" Is Issued to the dayfile, and the 
control point is aborted. 

12,5 LDR, CM LOADING AND PROGRAM RELOCATION 
12.5.1 General 


12.5.1.1 Introduction 


LDR Is the GPSL routine which accomplishes the physical loading and relocation 
of programs Into the user's central memory job area. The routine resides in the 
system peripheral library (RPL or PLD) and may be called by GPSL routine LOD 
to process control card calls or GPSL routine LOADER to process user calls. 

Input text or data to be processed by LDR must be in relocatable subroutine, 
loader directive or absolute overlay format. Relocatable subroutine format 
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consists of a group of tables within a logical record which contain the 
information necessary to load, relocate, and link the subprogram. Loader 
directives are control cards which accompany program text and supply in¬ 
formation to the GPSL regarding the building and loading of jobs containing 
overlays or segments. Absolute overlays represent a special class of sub¬ 
programs which have been preprocessed by the GPSL and are no longer in re¬ 
locatable subroutine format. Although such programs cannot be relocated and 
linked at load time, substantial savings are afforded the user in the amount 
of time required for program loading and execution, 

12.3*1.2 Program Interfaces 

The loading of all user programs is provided by the combination of the GPSL 
PPU routine LDR and the GPSL CM routine LOADER. The major functions of LDR 
in the loading process are as follows: 

1) Formatting and storing of relocatable subroutine format tables 
CpIDL, FILL, LINK, ENTR, REPL, and XFER) for subsequent LOADER 
processing. 

2) Processing and relocation of program addresses for relocatable 
subroutine format TEXT tables* 

3) Editing of leader directives and formatting of SECTION and SEGMENT 
tables for subsequent LOADER processing* 

4) Absolute overlay generation and loading. 

3) File and library searching and selective program loading. 

6) Error processing for invalid program formats, loader directives 
and/or file co^ositlon. 

7) Physical loading of programs from disk and magnetic tape I/O devices. 

12.5-1*3 Program Composttlon 

Three PPU routines (2LA, 2LB, 2LE) are retained on the system library as 
overlays to LDR. Overlay 2LA Is called to edit loader directives and, in 
certain processing modes, load absolute overlays; overlay 2LB performs no 
processing and Is used to restore LDR after 2LA has been called and terminated; 
and overlay 2LE Is utilized to format and output error conditions detected by 
LDR and 2LA. Overlay routines 2LA, 2LB, and 2LE are described in greater de¬ 
tail in Section 12-5.2. ^ 

LDR and the program overlays communicate through a series of program vectors and 
constants at the extreme lower end of the LDR program. As these locations are 
absolutely addressed by the overlay routinest it is mandatory that their direct 
core locations not be altered. 

The upper end of PP core occupied by LDR is used as the input buffer during 
normal relocatable loading. Depending on the PRU size of the input device 
(disk, disk pack, drum, etc.) several portions of the LDR program which are 
required only during the Initial LDR entry or are not required during the 
normal loading operation, are located in the buffer area and will be overlayed 
when triple buffer loading is being performed. 

To the extent practical, LDR is constructed in a modular fashion with distinct 
blocks of coding perforiuing functions which may be logically grouped together. 
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The modules composing the LDR program are described in greater detail in 
Section 12.3.2. 

12*5.1.4 LDR Calls 

As previously stated, LDR is called by GPSL routine LOD as an overlay to process 
control card calls and by GPSL routine LOADER to process user calls. Error 
conditions detected in the control card mode will result In the abortion of 
the job. Error conditions detected in the user call mode will normally result 
in the abortion of the loading operation and a return to the user with an error 
flag denoting the nature of the error (fatal or non-fatal). When such an error 
occurs during the loading from a file, the Integrity of loads from the same file 
by subsequent user calls cannot be guaranteed. 

Wien LDR is called upon to load from a file, the system file directories FNT 
and library directory are searched for the file (or program) name in the de¬ 
signated order. Absence of the file (or program) name in the aforementioned 
directories will result in the output of an error diagnostic prior to job 
abortion or user return. 

12.5.1.5 Loader Directive Processing 

Loader directives are processed by LDR only in the control card mode and are 
Ignored during user call processing. SECTION and SEGMENT directives are edited 
and formatted into tables beginning at RA + 100 of the user's job area. When 
such directives are encountered at beginning of a file, loading does not proceed 
In the normal manner. After formattir.g the SECTION and SEGMENT tables, LDR 
will exit to LOADER prior to the loading of any program text, LOADER will return 
to LDR with a call to load only those programs from the file which comprise ^ 

the Initial segment (SEGZERO). Subsequent control card calls (occurring prior 
to the execution of the current job) which request loading from files containing 
SECTION and SEGMENT cards will result in the loader directives being ignored. 
Within the same job, control card calls requesting the loading of files con¬ 
taining both overlay and segment loader directives will result in the abortion 
of the job. 

A control card call requesting the loading of a file containing overlay loader 
directives will result in the conversion of all programs on the file to the 
absolute overlay format. LDR will build overlay tables within LOADER from the 
overlay loader directive and load each program on the file sequentially. LOADER 
will process each program in the normal relocatable subroutine load manner and 
write it to the file(s) designated by the loader directives. When all programs 
on the file have been processed, the control card will be analyzed for its type. 

If the type was a "program call", the first (0,0) level overlay generated will 
be loaded into the user's job area and executed at the entry point. If a LOAD 
control card was processed, control will be returned to the operating system 
to process the next control card. 

12.3.1.6 Normal Relocatable Loading 

Programs in relocatable subroutine format consist of PIDL, ENTR, TEXT, FILL, 

REPL, LINK, and XFER tables as described in the ref msiiual. With the exception of 
the PIDL, which must precede all tables for a given program, tables may be 
encountered In any order during the loading of a program. ^ 

TEXT tables are loaded directly into their specific locations by LDR and all 
relocation of addresses (other than that directed by FILL tables) accomplished. 
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Relocation of programs after they have once been relocated into CM from the 
specified file is not permitted, as all relocation bits are discarded. A 
program to be relocated to some other core area must be reloaded from the 
applicable file. 

All remaining tables are formatted in tables descending through the user's job 
area and immediately below LOADER. These tables are used by LOADER for program 
linking and delinking. Sufficient rocm must be allowed in the job area for the 
program, LOADER, and all tables. If, during the loading process, LDR detects 
that LOADER tables and program text are being overrun, the load or the job 
(depending on the type of call) will be aborted. 

12.5.1.7 File Processing 

Due to the memory constraints imposed by the utilization of multiple 1/0 
device drivers, LDR is designed to load most efficiently from the disk 1/0 
device. When loading is requested from a file resident on a magnetic tape 
device, the file is first copied to disk. All subsequent accesses for this 
file will hence be made to disk. 

In the normal loading process, LDR reads into its PP memory as many PRUs of 
input as will fit into the input area. For the disk file, three PRUs can be 
read at a time. A specialized loading scheme Is utilized for the loading of 
absolute overlays in user call mode. This absolute overlay loader is described 
in greater detail In the next section. 


As per system convention all programs within files are assumed to be separated 
by end-of-records. 

A selective file search option Is provided in the user call mode. When such 
an option is employed, files are searched and left positioned at the original 
starting location. More than one program or overlay with the same name or 
level numbers may exist on the same file. In such a case, the position of the 
program or overlay on the file is a contributing factor to the uniqueness of its 
identity. 

12.5.1.7 Absolute Overlay Loading 

Programs In absolute overlay format have been preprocessed by the GPSL and no 
longer require relocation and linking. Such programs are preceded by a one 
word (cm) header specifying the overlay level, the address at which It is to be 
loaded within the user's job area, and the overlay entry point. 

In control card mode, the loading of programs in absolute overlay format can 
be detected only after the overlay header has been processed. In such a case, 
the 2LA overlay is loaded using the normal input scheme described in the pre- 
ceeding section. Once an absolute overlay is encountered on a file, all sub¬ 
sequent programs on the file must be in absolute overlay format to be loaded 
by this LDR access. This Is necessary due to the retention of the 2LA overlay 
in PPU memory during overlay loading. 

When processing in the user call mode, LDR can detect, from user call parameters, 
that absolute overlay loading is required. In this case, a special routine within 
LDR is utilized to load the absolute overlay. With the exception of the over¬ 
head required to process the overlay header during the first disk revolution, 
this routine will load absolute overlays at disk speed. 
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12. j. 1.8 Call Processing 


"User calls'- are calls from LOMER during the normal loading process or t . om 
OVERLOD during absolute overlay processing. ^ 

GVERbOD, a specialized version of LOADER which I-u^’n n,. 

level overlay, passes user call parameters directly to U)R. 

the requested loading operation, user user 

sent, and entry point address) are formatted directly by LDR into the 

reply. 

User calls to LOADER in the normal processing mode are pre-edited 

^lline LDR In addition to the user call options specified in Section 2.1. 

LOADER^ormlts its own call to LDR to search for e^ 1 

references from the library. User reply parameters to are 

the call constructed by LOADER for return to the user. User cal 
discussed in greater detail in Section 12.4. 

12.5.2 Detai l ed Descripti on 

The following are detailed considerations for LDR. These considerations are 

the Elo-chetts. LDh its thtee -et ay ^pto.ta.s .2tA, 

2LB, and 2LE) are described in Sections 12.5.2.1, L.^.5. . 

12.5.2.4 respectively. 

12.5.2.1 

LDR is composed of a series of modules which perform logical processing function- 
These modules are defined and described in detail below. ^ 

1) INIT - INIT is the entry processor for the LDR program. The PPU input 
reglst.t U tasted ior the prasente of •’LDR", classifying the tall as 
a LOiDER or "user cell". Absence of "LDR" Indicates the call cane fro.. 

LOD or is a Control card call* 

The GPSL communication area from RA + 65, 66, and 67 of the user ^ 
area is read and formatted internally. For a control card call, -■ ‘ 
tests bits 24-26 of RA + 67 to determine where to pick up the file 
nLe from which to load. U a -program call." the file name is found 
in RA + 64; if a ^'LOAD^' control card» the file name xs found in RA 
The FNT&library are searched respectively and the file read routine 
Initialized it Ihe file or program is found. If the name is not found 
overlay 2LE is called for errors processing, an error message is p 
to the DAVFILE, and the job is aborted. A successful scare w 
suit in the file being read and a transfer to the CNIDE mo u e 
gin table processing. 

If the call is from LOADER, user call parameters are formatted inter- 

nally and status words are constructed for subsequent 

call types, as determined by the various parameter ^ , 

(See Reference Manual p. 3-41 ff. for parameter symbol definitions) 


Call Type 


Parameter Status 


Overlay Load 0 

Unsatisfied External UE(bit 42, word 2)# 0 
Overlay Generation FN= 0 

Total File Load FI# 0. SL-- 0, V= 0, I.tE= 0 

Selective File Load 0, SLt^ 0, V= 0, UE- 0 


IMIT Exit 

OVLCAL 

UEXCAL 

OVGEtJ 

FKCAL 

FNSLCAL 
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OVGEN Is a minor routine which fetches the file name from which over¬ 
lays are being generated (from an Internal LOADER table) and exits tc 
the basic control card load entry* The remaining INIT exits are meijt/r 
rouintes and are described below* 

2) OVLCAL - If the TIE bit is set, the routine is searched for and loaded 
from the system library. Otherwise, the FNT only is searched* All 
searching is done against the FN field. If the overlay Is resident 
on magnetic tape, transfer will also be effected to the 2LA overlay 
processor in order that the file can be copied to disk. 

Library and FNT disk programs are Loaded using the special absolute 
overlay loader (loading at disk speed). FNT files will be searched 
end-around for the requested overlay. 

3) UEXCAL - The programs in the SL list are utilized to search for matching 

entries in the library. Programs which have been previously loaded 

will not be reloaded. Exit is effected when all SL list entries have 
been processed. 

4) FNSLCAL - The file specified by the FN entry is searched against the 
SL list* Programs previously loaded will not be reloaded. Searching 
continues end-around until all entries have been satisfied or the orig¬ 
inal file position is reached. 

5) CNIDENT - CNIDENT is always entered when a table is to be initially pro¬ 
cessed. The table code number (CN) in the identification word is compared 
against a list of valid CK identifiers. A valid comparison will result 

in a vector jump to the proper table processor. If the absolute overlay 
mode flag Is set, relocatable subroutine format tables will not be allowed 
Exit vectors from CNIDENT are summarized by the following table: 


CN 

Table Processor 

Exit 

50 

Absolute overlay 

Overlay 2LA 

46 

XFER 

XFER 

44 

LINK 

LINK 

43 

REPL 

REPL 

42 

FILL 

FILL 

40 

TEXT 

TEXT 

36 

ENTR 

ENTR 

34 

PIDL 

PluL 

77 

Ignored 

ADVrsiJF 

None 

Edit for Loader Directive 

LDTST 


6) LDTST - Called when valid CN identifier cannot be found for table. Over¬ 
lay 2LA is called to edit the field for a valid loader directive- Return 
from 2LA will be to ADVBUF to.progress to the next relocatable subroutine 
format table (if the unidentified table proves to be a valid loader dir¬ 
ective.) 

7) XFER,LLINK, REPL, FILL, ENTR - Table processors which format named tables 
as entries in CM LOADER tables. Exit is always to ADVBUF to fetch the 
next table. 
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H) TKXT - Table processor which relocates program text to program area 
of the user's job area. Addresses are relocated as indicated by table 
relocation bits* 

9) PIDL - Table processor to Initiate processing for a program, including 
the Initiation of a new table subgroup within the CM LOADER tables* 

COMMON allocation, if any, are saved in the LOADER tables and assigned 
storage addresses* 

10) ADVBUF - The several table processors process a single CM word (5 PPU 
bytes) at a time* Each time a new word is required, ADVBUF is accessed 
to advance the buffer pointer to the next CM word* ADVBUF keeps track 
of the number of words to be processed for each table- When a tablets 
word count has been exhausted, ADVBUF will, instead of returning to the 
table processor, exit to CNIDENT to classify the next table. 

As all table processors access ADVBUF to advance the buffer pointer, this 
routine also provides the interface between table processors and the I/O 
routines. When all data has been processed within a buffer, ADVBUF 
acquires a new buffer before returning to the table processor of CNIDENT. 
Should an EOR or EOF occur, ADVBUF will honor the flag when applicable 
and execute the exit condition for the particular call being processed- 

11) READ, READCM, READISK, READIT, COPYFTL - All normal processing (triple 
buffer) I/O interfaces are performed through the READ subroutine. FNT 
and RSLCLD table searches initially set up pointers to the table entries 
containing required I/O device and positioning information- When READ 
is Called, it determines whether the required program or file is in CM 
or I/O device resident. If in CM, READCM is called to perform the 
physical loading. Otherwise, the file or program is on an l/O device 
and READISK is Called. The input is read by means of READP request to 
the stack processor. READIT Is called to do the actual formatting and 
issuing of the request. If READISK initially determines that the file 
is on a non-allocatable device such as magnetic tape, COPYFXL is called 
to copy the file to an allocatable device. The FNT is changed so that 
the file copied to the allocatable device then takes the name of the 
original file, and the original entry is discarded. 

12) FNT, RSLCLD - Subroutines to search the system directories for matches 
against specified names. If a match is found, I/O interface pointers 
to the directory entry are set up prior to exit. 

13) TSTCALR - Subroutine to store flag denoting error condition discovered 
by LDR or 2LA and call 2LE overlay to process error. 

14) EXIT - EXIT performs a multitude of status restoration and Initialization 
functions required prior to the exit from LDR and the activation of the 
CM LOADER. The clock time and LOADER table sentinels are updated; status 
flags and current CM core pointers are formatted and rewritten to the 
GPSL coimHunication area in RA + 65, 66, 67; the FST entry is updated to 
reflect the next sector to be processed from the current file; activity 
on the control point is requested and the PPU dropped. 
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12*5.2-2 2LA Overlay 

When sn absolute overlay is to be loaded during control card mode, this routine 
is loaded into PPU core (starting at location 1773^)* Entry is made at 2002^- 

There are four types of loading that tnay occur. These are as follows: 

1) When a LOAD card has been processed j loading will take place until an 
end-of-file mark is reached* When the file has been completely loaded, 
the PPU is released, and control is passed to the PPU idle loop* 

2) When a program call control card is processed, loading will take place 
until an end-of-record mark is reached. When loading has been completed, 
the CP is activated, the PPU is dropped, and control is passed to the PPU 
idle loop. 

3) When a user library call requests that an unsatisfied external be 
satisfied, the file is preposxtioned* One record is then loaded. When 
the loading of an 0,0 overlay has been completed, the CP activated, the 
PPU is dropped, and control is passed to the FPU idle loop. If the 
overlay was not at the 0,0 level, instead of the CP being activated, re* 
turn Is made to the user (OVERLOD)* 

4) When a user requests an overlay to be loaded, a search is made for the 

requested overlay. The search is in end*around fashion, i-e-, search 
to the EOF, rewind the file, and search to the starting position. When 
the requested overlay is found, it Is loaded. If the overlay is not 
found, error number 74 is set up for error processing. After the over¬ 
lay has been loaded, processing continues, as is defined in (3), above. 

All of these loading types use the same routine tc do the actual loading of the 

program into the user^s job area- This routine (ABOVWR) determines urhere the 
program is to be loaded, and determines when the loading is completed. 

When a loader directive is to be edited, 2LA is loaded into PPU core (starting 
at location 1773g). Entry is made at 2000*. The routines which edit the loader 
directives, and a brief description of each, are as follows: 

1) LDPROC- This subroutine determines whether the loader directive is of 
proper format* Error numbers produced are 46, 47, and 50. ^'An explana¬ 
tion OL the error numbers and the routine that handles them may be found 
in 12.5*2.4), If the loader directive is found to be in the correct 
format, one of the following subroutines is entered: SEGZERO, SECTION, 
SEGMENT, OVERLAY. 

2) SECTION - Several conditions are tested fort 

a) To ensure that no segment or overlay cards have been previously pro- 

cessed-- 2 rror number 51 

b) To ensure that no text has been previously processed--error number 71- 
ihe segment tables produced for a segment start at RA d- 100 for that 
segment. If text has been processed, and the first segment is being 
processed, then the next available core Iccatlon will be greater than 
RA + 100. 
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For a detailed description of this overlay refer to section 12.5.2.1. 

12.5.2.4 2LE Overlay 

This routine is loaded into PP core (which contains LDR), starting at location 
1173 f when any error is detected by LDR or 2LA. The routine is entered at 
localion 2000^. 

Essentially I the routine produces an error message and sets either a non-fatai 
or a fatal error flag. This flag may then be tested by the user when control 
is returned to the user* 

Upon entry to 2LE, TEMP5 contains an error^message number* This number deter¬ 
mines which error message will be sent to the dayfile. Message numbers 1-37^ 
are non-fatal errors. Fatal error message numbers are 41-77^. 

The error message in the dayfile is preceded by a line which indicates that the 
error message was detected by the loader and which of the error flags have been 
set. 

If the error message has been detected while processing an image, the image is 
placed in the dayfile immediately following the error message. 

The messages are placed in numeric order. Error messages 1 and 41 are identical; 
hence to conserve space, essentially the first error message is 41. If any non- 
fatal error messages are added, a slight modification of the existing program 
will need to be made. The following is a list which contains an error number, 
the message produced, and the routine which detected the error- 

ER1,(ER41): XXXX ERROR, CANNOT FIND FILE NAME * where XXXX is either "UCER'' or 
^*CARD^^ 

If LDR was called by LOADER a user call is being processed, hence ’’USER'' 
is placed in the XXXX field; otherwise ”CARD't is placed in the field. 

ERl Is produced when the user has not placed a file name in the required 
parameter* 

ER41 is produced when a file, which has been referenced in a call, cannot 
be found- The call may be either a user or system call. 

Both errors will produce the call Image which contains the illegal para* 
meter. 

Both errors are detected by LDR* 

ER42: XXXX ERROR, FIELD LENGTH TOO SMALL - where the XXXX field is defined in 
the same manner as It Is for ERl* 

ER42 is detected by 2LA and LDR# 

The ER42 error message is produced when the field length for the user^s 
program is too small (the storage available between the starting point 
in the user ar«a and the highest available location below the GPSL 
produced tables will not accomodate the user^s program). 
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When this error Is detected^ the image being processed will not be 
placed in the dayfile* (The image being processed is most likely a 
binary card, hence the display code representation of it would be 
meaningless*) 

ER43: BAD TEXT - 

This error message is produced when LDR determines that an illegal TEXT 
Table entry is being processed, specifically, the relocation code is 
illegal* 

When this error is detected, no image is produced following the error 
message* 

ER44: FILE INITIALLY POSITIONED WRONG - 

This error message is produced when LDR determines that an input file 
is initially positioned at an end-of-file mark* 

When this error is detected, the image being processed (EOF) will not 
be sent to the dayfile* 

The remaining error messages will cause the image being processed to be 
sent to the dayfile- 

ER45: FIELD GREATER THAN 80 CHARACTERS - 

LDR detects this error when a loader directive is improperly imple- 
raented- 

ER46: ONLY ONE PARAMETER - 

This error message is produced when 2LA finds an overlay loader direct¬ 
ive with only one level-parameter- 

ER47; INVALID CARD FORMAT - 

2LA produces this error comment when it finds a termination character, 
T!^Ti Qj- prematurely implemented on a loader directive. 

ER50: INVALID LOADER DIRECTIVE - 

This error message is produced when 2LA determines that the first 7 
characters on a loader directive card do not match one of the following 
7 character words: 

SEGZERO 

SECTION 

SEGMENT 

OVERLAY 

ER51: SEG OR OVERLAY CARD PREV PROCESSED - 

A SECTION card cannot be used in the overlay mode. When it is used 
in the segmentation mode it must precede all segment cards. 

When 2LA determines that the rules in the above paragraph have not been 
followed, the message for ER51 is sent to the dayfile. 
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ER52: SEG2ER0 HAS NOT BEEN PROCESSED - 

2LA produces this error message In two Instances; when a SEGMENT card 
is being processed and the required initial (SEG2ER0) segment card has 
not yet been processed,and, when a SEG2ER0 card is being processed and 
an OVERLAY card has been processed. (Segmentation and overlay modes ma\ 
not be mixed.) 

ER53: SEGZERO SEGMENT NAMES DIFFER - 

When there are too many parameters to fit on one SEGZERO loader direct¬ 
ive card an additional SEGZERO card may be used. This card must define 
the segment with the same name. When the segment names differ for 
contiguous SEGZERO cards. Error Message 53 is sent to the dayfile. This 
is determined by 2LA. 

ER5^: NAME GREATER THAN 7 CHARACTERS - 

When 2LA determines that a name used on a loader directive card is greater 
than 7 characters in length, this error message will be produced. 

ER55: NO TEEMINATOR FOUND - 

When 2LA determines that a loader directive card does not have a legal 
terminator, or this error message is sent to the dayfile. 

ER56: INVALID CHARACTER - 

This' message Is produced wheii 2LA finds a character on a loader direct¬ 
ive card that is Illegal. The legal characters are letters, numbers, 
parentheses, blanks, commas, and the period. 

ER57: SEGMENT OR SECTION CARD PROCESSED - 

When 2LA is processing In the overlay mode and determines that a SEGMENT 
or SECTION card has been processed, this error message is produced. 

ER60: 1ST OVERLAY CARD HAS HO FILE NAME - 

When 2LA determines that the first character of this first parameter on 
the initial overlay card Is not alphabetic, this error comment is pro- 
ducedp 

ER61; 1ST OVERLAY CARD LACKS 0,0 - 

When the option to load the overlay a designated number of words above 
blank COMMON is used on a level zero overlay card, this error message 
Is produced. 2LA detects this error. 

ER63: 1ST PARAMETER MAY NOT EQUAL ZERO - 

The zero level overlay may not have secondary overlay levels, e.g., 0,1 
Is illegal. 2LA detects this error. 
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ERftiit: ONLY 1 OVERLAY DESIGNATOR USED'- 

When 21.A determines that the user has not designated both a primary 
and secondary level on an OVERLAY card, this error message Js produced. 

ERh'’): c; 01‘TION NOT l.AST PARAMETER - 

When 2LA determines that a termination character does not foHow the ( 
option on an OVERLAY card, this error message is produced. 

ER66: TOO MANY CHARACTERS IN PARAMETER - 

When 2LA determines that a level number on an OVERLAY card is greater 

than 77„, this error message is produced. 

o 

ER67: C OPTION DOES NOT START WITH C - 

The option used on an overlay card which allows the user to designate 
how many words above blank COMMON the overlay should be loaded. Must 
have the alphabetic character "C" as the first character. 

When 2LA determines that the 1st character is not "C" this error message 
is produced. 

ER70; DIGIT IS NOT OCTAL - 

When 2LA determines that a digit used on an OVERLAY card is not octal, 
this error message is produced. 

ER71.: TEXT HAS BEEN PROCESSED - 

When 2XiA is processing a SECTION card and determines that text has been 
previously processed, this error message will be produced. 

ER73: ERROR IN ABS. OVERLAY FILE FORMAT - 

This error message is produced by LDR in two places; when LDR is in 
overlay mode and determines that the Identification code of the sub¬ 
routine being processed is not equal to 50g. 

ER74; REQUESTED OVERLAY PROG. NOT FOUND - 

This error message is produced by LDR when absolute overlays are being 
input from a file. 

It is also produced by 2LA when absolute overlays are being loaded from 
a file. 

In both instances the file is searched in an end-around fashion, i.e., 
it is searched up to the EOF mark, the file is rewound, and the file is 
then searched up to where the searching began. 

When the overlay program requested for input cannot be found on the 
file being searched, the message is produced. 
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12-6 LOADER, BOOKKEEPING AND PROGRAM LINKING/DELINKING 

12 < 6i1 Genera 1 

LOADER Is the CPU portion of the CPSL which accomplishes the linking and de¬ 
linking of inter-prograin references, the processing of FILL and REPL (replicat i tin) 
tables and user calls, and the Initiation of job processes. 


The siise and location of the LOADER varies with the type of processing being 
performed- Normally, the LOADER will be resident In the extreme upper end of 
the user's field length and consists of the following general format: 


Communication 


Unused 

LOADER 

LOADER 

areas 

Programs 

core 

tables 

program 


RA RA+77 RA+FL 

A special loader program called OVERLOD (OVERLOG If debugging routines are being 
used) is included in the (0,0) overlay for overlay runs. This routine elimates 
the need to retain LOADER in core while making user calls to load overlays at 
execution time. 

LOADER consists of the following main routines: 


1) CALL 

2) CONTROL 

3) OVERLAY 

4) OVERLOD, OVERUX^ 

5) SEGMENT 

6) LINK 

7) CONTINU 

8) REPL 

9) FILL 

10) XFER 

11) CHKSUM 

12) MAP 

13) CLEANUP 

14) SATISFZ 
(satisfy) 

15) BLDCHK 

16) USERSEG 


(user Call process) 

(control card processing) 

(overlay generation) 

(overlay loading - not Integral with LOADER) 

(segment loading) 

(for linking all external references) 

(for normal Program Loading) 

(for processing replication tables) 

(for processing fill tables) 

(for processing XFER tables) 

(for checksumming the remainder of loader) 

(for building and writing out the MAP) 

(for performing functions for closing out a load) 
(for satisfying unsatisfied external references) 

(builds checksum for checking by ClflCSUM) 
(processes user calls for SEGMENT loads) 


These routines will be explained In greater detail in Seclon 12.4.2. 


In addition to the above^LOADER contains a sec of routines which are basic to 
the operation of almost all code in LOADER; 


1) THREAD 

2} SEARCHL 
3) EHTSRCH 


(fetches the next entry from a given threaded 
list in the loader table structure) 

(retrieves the next external in the LOADER TABLES) 
(searches for an entry table which matches a 
specific 7 character name) 


4 ) 


RELOCAT 


(performs necessary relocation of any legal 
address) 
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5) REQUEST 


(performs calls to LDRj LOD and MTK) 


LOADER also contains a set of subsidiary routines which are usually used by 
one two or three of the main routines (1 thru 15) Identified above* 


1) SHUFFLE 

2) BLDXNX 

3) BUMPADD 

4) FCHBYTE 

5) BLKOMN 

6) FCHCOMN 

7) FLUNSAT 

8) CONVERT 

9) CONVADD 
10} BREAKUP 

11) WRITE 

12) WNX 

13) TSTFILL 

14) SEARGHU 

15) PLUNK 

16) SCSGSRC 

17) LOADSEC 

18) LOADSEC 

19) PUTPROG 

20) CLRLIST 

21) STOBYTE 

22) SQUEEZE 

23) USRFATLL 


(restores parameters to their place at !^A ^ 

after processing of REPLICATION tables) 

(used by OVERl^AY to compute indices for t\\i* 
processing of current overlays) 

(used to update the addresses of instructions 
according to the string of data bytes in FllJ, 
and LINK tables) 

(used to retrieve one left adjusted iO bit byte 
from the current thread being processed in the 
LOADER tables) 

(allocates or reallocates the origin and length 
of blank common) 

(fetches the next common reference table from ttte 
LOADER tables) 

(fills in all unsatisfied externals with out-of- 
bounds references) 

(converts octal numbers of up to 30 bits to 
display code) 

(uses CONVERT to establish display code form of 
18 bit address for core map) 

(subdivides LOADER table entries into name-- 
address for core map) 

(sets up print buffer and accomplishes the output 
of core maps using WNX to write to the output 
file) 

(performs circular buffer 1/0 to output file) 
(counts programs loaded from library by LDR in 
response to unsatisfied externals as well as 
user Calls) 

(utilizes SEARCH to find the next unsatisfied 
external in the LOADER tables) 

(places a specified address into the control 
byte of a given LINK table) 

(searches SECTION or SEGMENT tables for a given 
named entry) 

(sets up the physical loading - by LDR -- of all 
programs in a specified section) 

(sets up the physical loading - by LDR - of all 
SECTIONS or programs in a specific SEGMENT) 
(places a given program name in LDR parameter list 
for physical loading - calls LDR when the list 
is full) 

(clearsaddresses in SECTION or SEGMENT list and 
counts programs actually loaded by LDR) 

(places a 30 bit byte into the next available 
location in a thread in LOADER tables) 

(combines all LOADER tables into two condensed 
streams of LINK or ENTRY tables and moves the 
whole mess immediately adjacent to their 
associated segment) 

(sets the fatal error list in a user call replv 
and skips over normal load processing) 
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24) 

HUNT 

(searches for a SEGMENT of higher or equal 
level to the segment being loaded) 

25) 

DELINK 

(delinks all external references to levels of 
segmentation greater than or equal to the 
segmeTit being loaded) 

26) 

USERSCH 

(searches for a matching entry when the K flAy, 
is on) 

27) 

RESET 

(establishes LOADER in original unloaded state 
for subsequent loading of ^^fresh” programs) 

28) 

ENTFINE 

(returns the address of a given entry point name, 
if such a name currently exists in the LOADER 
tables) 

29) 

LOADPROG 

(loads a program of a given name) 

Detailed Description 



12,6-2*1 Entry Points 

LOADER entries from the PPU routines LOD or LDR are achieved by presetting the 
control point program address (word 0) prior to requesting the CPU- Entry points 
are described in the following table* 


Entry Point 
LOADER 

LOADERl 


LOADER2 

LOADERS 

L0ADER4 

LOADERS 


Description 

Normal entry from user calls. 

It sets up an exit from CHKSUM 
to go to CALL and then enters 
CHKSUM- 

First entry to LOADER following 
a reload of LOADER into the user^s 
job area* LOADER will call LOD if 
during the processing of a ^^user 
call'^ it has determined that the 
program LOADER is not intact- This 
entry Is taken by LCD upon completion 
of the re load. 

Normal entiy to LOADER from LOD or 
LDR during control card processing 
when LOADER has been reloaded into 

CM- 

Entry from LDR during control card 
processing when LOADER has not been 
reloaded. 

Special entry made from LOD when over* 
lays are being generated from input 
from more than one file- 

Entry to LOADER from LDR when LDR has 
encountered a REPL table, but the re¬ 
plication is to be performed prior to 
the loading of more text- 
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12.6.2.2 LOADER Exits 


The following exits may be made from LOADER: 

Exit Description 


After LOADER processes an EXECUTE, or 
Program call card, it transfers control 
to the job at the point specified. 


After LOADER completes processing a 
LOAD or NOGO it places END in RA + 2 
and waits. This causes the CPU to be 
dropped and the system to advance to 
the next control card. (REQUEST) 

During the LOAD process LOADER calls 

LDR for I/O and library searching. (REQUEST) 

When LOADER discovers, by execution of the 
routine CHKSUM, that part of the LOADER 
program has been destroyed, LOD is called 
to reload the LOADER. (REQUEST) 

Any error which LOADER cannot handle will 
result in AST being placed in RA + 1. 

During Instant replication, when LOADER 
completes, it clears a flag (at FWAL0DR-7), 
causing LDR to drop the CPU. 


12.6.2.3 General Flow 

Each of the individual routines are discussed in later sections. The purpose 
of the following is to demonstrate the operation of LOADER, the interaction of 
LOADER routines and the LOADER/LDR/LOD interfaces. 

1) Standard Subprogram Loading . 

A standard subprogram load is considered to be any program loading 
not involving segmentation of overlays. Host of the processing done 
for standard loads is also done for overlay generation and segment 
loading. 

A standard subprogram load might consist of one or more relocatable 
binary programs, some of which require the loading of binary text 
from the system library. Assume that program decks A, B, and G 
(on file X) are to be loaded. As a further example, assume that B 
and C require programs SIN and ARCTAN respectively from the system 
library, and that ARCTAN requires programs SIN and SQROOT. 

The loading process could be initiated by the control card sequence: 

LOAD (X) 
execute (y) 

where Y Is an entry point in program A. The program loading, linking 
and execution would proceed in the following general matmer- 
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When systeiT program 2TS detects the LOAD control card it sots hit 
23 of RA^^7 to indicate a LOAD control card to LDR and LOaDEH- 
then calls :OD which, ascertaining that LOADER has not yet been 
loaded into the job area, does so* LOD then calls 1>I)H which reads 
to CM the e tire file X, storing all of the loader tables adjacent 
to LOADER a d storing the binary text beginning at KA^lOO or as 
directed by the text cards* During the storing operation, all 
addresses a:e relocated required* When LDK has completed loading 
A, B, and C into CM, it requests activation of the CPU at that contr<»l 
point at thi address in P which was preset by LOU- 

Upon entry into LOADER at LOADER 2 the following events take place' 

(a) Tht^ entire loader is checksummed and the result stored in 
CHE<KSUM RA + FL-l. CONTROL is entered- 

(b) CONTROL determines that LOAD control card processing is 
required and that there is no segmentation or overlay* 
CONTINU is then entered. 

(c) CONT!nU calls LINK for the linking of all references- 
Then^REPL is called for processing or replication tables- 

(d) CON:'^tNU then calls REQUEST which places an END in RAU- 

System program lAJ will advance to the next control card fthe EXECUTE 
Y Card) which u.TS detects^is a LOADER card, 2TS calls LOD which 
checksums the feuKSUM routine and determines that LOADER is apparently 
intact. LOD llien Initiates LOADER at L0ADER3- 

Upon entry at LOADERS the following occurs: 

i 

(a) The intire loader is checksummed and determined valid* 
Exltjls made to CONTROL. 

(b) CONT^'lOL determines that it is processing on EXECUTE card 
and exits to REGEND which calls CLEATrUF* 

<g) cleanup calls SATISFY to fill in all unsatisfied externals 
with:.n the program load being processed- 

(d) SATISFY places the unsatisfied externals SIN and AKCl AiN 

into a parameter list ^ and then calls LDK 

requesting the physical load of these routines. 

(e) Upon completion of this loading by LDR SATISFY links up 
all references and processes any REPLICATION tables- 

(f) SATISFY then loops back to find any further unsatisfied 
externals and discovers that ARCTAN has the unsatisfied 
e xt e rna1 SQROOT. 

(g) Steps*d, e, and f (above) are repeated but on this sub¬ 
sequent pass no further unsatisfied externals are found 
and SATISFY then exits. 
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(h) CLEANUP then calls SHUFFLE to move any parameters 

(which have been saved within LOADER by LOD) to CM 
locations starting at RA+2- ^ 

(i) Next CLEANUP calls BLNKOMN to establish the origin ol 
blank common at the last word address _Ll 

program loaded (SQROOT). 

(4) Once blank common has been established CLEANUP then calls 
FILL to process all fill tables (many of which will refer 

to blank common)* 

(k) CLEANUP next calls XFER to process the entry point "Y” 
which has been provided by 2TS from the execute card* 

The absolute address for "Y" is merged with that name 
and placed in location XFERTBL for later use by LOADER 

■when it enters the loaded program. 

(l) If the MAP bit - RA67 - bit 31 is a one and if the MAP 
(off) bit in RA+66 is not set, then CLEANUP calls MA to 

produce the core map- The MAP bit in RA+67 will be on 
under normal control card loading such as this except 
when all programs loaded come from the library. 

(m) Once mapping is completed, all unsatisfied externals are 
filled in with out of bounds references. This is left 

to last so that MAP can detect and printout any references 
which have not been filled in by LINK. 

(n) Upon return from CLEANUP, REGEND sets the field length 
into A0 as required by Chippewa convention, and the first 
word address for the next load is set to the current 
value of the pointer CORNEXT which is the last word address 
of the current load. 

(o) Next the RSS bit (which has been set in RA67 by LOD if 
DIS has set the corresponding bit for lAJ) is tested. 

it is on,LOADER terminates this phase of the job by placing 
END in RA+1. 

(p) The transfer address is pliiced in B7, and entry Is made to 
BLDCHK. The entire loader is then checksumraed and the re¬ 
sult stored in the last word of LOADERJ BLKCHK then enters 
the loaded programs at the address preset in B7. 


2) Overlay Generation . 

The control cards for overlay generation and processing could be 
IdenticalToTh^e described under Standard Subprogram Loading. 

The major difference is that the first card on file X would be an 
OVERLAY directive in BCD format. In this case, when LDR detects 
the card it sets the Overlay Flag in RA+66 and builds a one word 
identifier in the LOADER table OVLINPT. This identifier contains 
the overlay levels L^ and the first word address of the program ^^ 
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(FWA), and the entry point which Is added later hy i.UAUEK 


Assume that file X is organized as follows: 


0 

Prog 

Prog 

0 

Prog 

0 ’ 

Prog 

EOF 

V 

A 

B 

V 

c 

V ’ 

D 


E 



E 


E 


6 

R 



R 


R 


7 

L 



L 


L 


8 

A 1 



A 1 


A 1 


9 

Y 





Y 



0,0 



El 


2,C 




The first overlay encountered on the file must he Overlay 0,0 or 
the "MAIN" overlay. At least one overlay of level N, 0 must appear 
in the input file prior to any overlays of level N, M. (This is to 
permit establishing the proper starting location for each overlay.! 

When LDR encounters the file X as above it will load the binary text 
for Prog A & B and the loader tables as described in the previous 
section. LDR then Initiates the CPU at this control point at LOADE82. 

Upon entry at L0ADER2 the following occurs: 

(a) The LOADER is checksummed by BLUCIIK and the results stored 
away. Exit is to CONTROL. 

(b) When Control finds that it is processing a LOAD card in 
overlay mode, it exits to OVERLAY. 

(c) Upon initial entry, OVERLAY expects that the 0,0 overlay 
has been loaded starting at RA^lOl with information stored 
in a table labeled OVLINPT. 

(d) OVERLAY then attempts to satisfy externals through S<.TlSF'i . 
Then it processes FILL tables, RBPL, (replication table), 
and the XFER table. This completes the entity for overla'. 
( 0 , 0 ). 

(e) Once the overlay (0,0) has been established any blank common 
declared is then origlned at the LWA ^ 1 of that overlay, 
and CORNEXT Is updated to reflect the space taken up by 
blank common. 

(f) Since this is the first overlay and LDR has detected the 
fact that there are subsequent overlays the RELOAD bit 
will be zero. OVERLAY thereupon constructs a call to LDR 
to load the next overlay beginning at CORNEXT, with tables 
starting at TBLNEXT ( following the loader tables for 
OVERLAY (0,0)). 

(g) OVERLAY then attempts to l.INK up all references within the 
newly loaded OVERLAY (0,0). Once this is completed, an 
attempt is made to link op any' remaining unsatisfied ex¬ 
ternals in OVERLAY (0,0). 

Ch) Any further unsatisfied externals result in a search for 
corresponding library routines(using SATITFZ). Anv 
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references to the entry point LOADER are replaced by 
OVERLOD (or OVERLOG) so that one of these routines will 
be loaded with the first overlay referencing LOADER, The 
XFER, FILJ and replication tables are then processt^d for 
OVERLAY (1,0). 

(i) Assutning that blank conmnon had been allocat ud i t niiiin 
overlay, all references to it in OVERJ.AY (1,0) are then 
linked up. Note that no externals in overlay (0,0) are 
Linked to entries in 1,0 since they were filled in vjith 
out-of-bounds values prior to loading OVERLAY (1,0). 

(j) On this pass through OVERLAY, the RELOAiJ bit will be a 
one, since LDR has detected that the next overlay is also 
at the primary level (2,0). This causes OVERLAY to out¬ 
put the overlay 1,0 to the last named file. 

(k) Prior to initiating a CIO call for output, OVERLAY constructs 
a table header consisting of a ON of 50 , L , L , the FWA 

of the overlay, and the entry point (EA7 to^that overlay, 

(l) In addition a sixteen word area immediately preceding each 
overlay is established for a standard ID (77 ) table. 

The parameters for the CIO buffer are established such 
that output will commence at the FWA of the 77 table, 
proceed to the end of the buffer (16 words away) and then 
end-around to the beginning of the buffer, which starts at 
the ^50g) table header for the overlay. 

(m) After I/O is complete, XBLNEXT and CORNEXT are reset to the 
Values held prior to loading overlay (1,0)^ LDR is then 
called for the load of the next overlay- 

t 

Cn) This subsequent load is treated as in steps g through 1 
(above). However, prior to the initiation of the I/O of 
step 14,OVERLAY will detect that only overlay (2,0) must 
^^Itten since bits will be set indicating that overlay 
(0,0) has already been written out to the file. 

(o) Upon completion of the writing of the 2,0 overlay to the 
file, OVERLAY senses that on end-of-file has been en¬ 
countered by LDR (the E0L0AD or end-of-load-flag = 1). 

(p) OVERLAY then either exits to monitor or initiates loading 
of the overlay (0,0) by constructing a user call for that 
overlay. 
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3) Initial Segment Loading 

Assume a load deck in file X of the format: 



Where SEGZERO has the format SEGZERO (MAIN, Prog A, Prog 15). 

Further assume the following control cards are processed: 

LOAD (X) 

EXECUTE 

When 2TS detects a loader related control card (LOAD), it calls 
LOD which loads the LOADER and calls LDR for the physical load 
of the file Into CM, Instead of loading the program text and 
loader tables, LDR will load the SEGZERO tables beginning at RArlOO. 
Since there are two programs plus a segment header, defined in 
SEGZERO, 3 words will be taken up by this segment table. The first 
word of labelled conanon or program text will be loaded later at 
RA+103. LDR then enters LOADERl by initiating CPU activity at the 
control point and dropping the PPU. 

Upon entering at LOADERl, the following occurs: 

(a) The LOADER is checksummed by BLDCHK and the results 
stored away. Exit is to CONTROL. 

(b) CONTROL determines that it is processing a LOAD card 
and that SEGMENT flag is set. Exit is to SEGMENT. 

(c) SEGMENT is only entered as a result of a control card 
call. It uses the SEGZERO table to effect the loading oi 
all programs for SEGZERO. 

(d) Each name appearing in the SEGZERO table (other than the 
first parameter, the name of SEGZERO) is used to search 
first any other SEGMENT table, then any other SECTION 
tables. 
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(e) In tliis example, since there are no Segment or Section 
tables, SEGMENT will construct a Call to LDR for the 
loading of Programs A and B, since they are defined as 
SEGZERO* 

(£) Once these programs are loaded, they are linked up, and 
the Replication tables processed as in a normal load, 
SEGMENT then exits to monitor to initiate processing of 
the next control card, 

(g) When the execute card is encountered, LOD enters at 
L0ADEK3, Causing LOADER to checksum itself and transfer 
to CONTROL, 

(h) CONTROL determines the existence of the EXECUTE card and 
exits to SEGEND to complete the load- Under these 
conditions SEGEND calls CLEANUP to fill out SEGZERO- 

(i) Once all loading is complete, the loader tables for SEGZERO 
are moved down in core, immediately following SEGZERO, 
using SQUEEZE, 

(j) Blank COMMON is origined irtanediately following the loader 
tables and all pointers set up. 

(k) SEGEND then ititiates processing at the entry point 
specified in the last XFER card, 

4) User Call Processing - Segment Mode 

All user calls enter at LOADER which executes CHKSUM. If the CHKSUM 
test proves valid, control Is transferred to CALL to process the user 
Call* Assume a user call with the following key parameters: 

FN = X 

SL — pointer to a list containing the program names: D, B, 

S ^ 1 



The call would be processed in the following manner: 

(a) CALL breaks down the user call and determines the legality 
of the call- Based on the contents of this caU, CALL 
will exit to USERSEG. 

fb) USERSEG Calls HUNT, which searches through the segment 
tables to find a segment at a level equal to or greater 
than the segment level being requested in the user call* 
if one exists, 

(^c) HUNT establishes a pointer (FWADLNK) to the segment table 
for levels at or higher than the level to be loaded. ^ 

(d) USERSEG then calls DELINK to scan all segment tables below 
the pointer FWADLINK. During this scan all LINK tables 
which reference entry points at addresses greater than the 
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address in FWADLNK are "delinked \ This process involves 
the clearing of the entry address in the link table to zero 
and the subtraction of this entry address from the proper 
location In each instruction for which a data byte exists. 
Out-of-bounds references are also thus delinked- 

Ce) Once delinking has been completed, USERSEG initiates the 
loading of programs from file X, In this case the SL 
list will contain program names D and B, Since there arc 
no defined Segments or Sections, LDR will be called to 
load D and B. 

(f) Once programs D and B have been loaded, USERSEG attempts 
to link up all references within the segment. Then all 
external references in SEGZERO are linked to the new 
segment- All external references in the new segment are 
then linked to SEGZERO- 

Cg) Once all references are linked, residual externals are 
satisfied from the library- The newly loaded Library 
routines are linked within and between segments, as 
described above in Step Cf)- Then if there are any new 
residual externals arising from the library routines, they 
will be satisfied by repeating this Step Cg)• 

(h) Blank common is then allocated (if this is the first 

declaration) and linked up. Fill and Replication tables 
are processed, the XFER table processed; and if the M 
flag is zero, a core map is produced. 

(1) Unsatisfied externals are then filled in with out-of-bounds 
references if the F flag in the user call is a one- 

(j) The loader tables for the new segment are then condensed 
and moved down adjacent to the LWA of the new segment by 
SQUEEZE. 

(k) USERSEG then exits to SKPFLLl which is a common routine 
for exiting from user call processings 

(l) SKPFLLl provides the reply to the user call by clearing 
the first word to zero and forming the error reply bits, 
entry point 1 (EA) and entry point 2 (AA) into the second 
word of the call* 

(m) Since there is only one call to LOADER (signified by a 
word of zeroes following the 2nd word of the parameter 
list), SKPFLLl then returns to the instruction following 
the user call pointer to the parameter list- 

5) User Call Processing - Overlay Mode 

A special loader (called OVERLOD) is used for overlay loading. It 
is made part of Overlay 0,0 by LOADER during overlay generation, 
OVERLOD only checks the validity of the call and then calls LDR 
for the loading of the overlay. OVERLOG is used in place of OVERLOD 
if use of SNAP, TRACE, or labeled dumps Is requested. 
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b) User Call ProcessinR - Subroutine Loading 

The same sequence is followed as for USERSEG with the exception 
that no delinking occurs, and the loader tables are not moved 
down adjacent to the last loaded program. 

12-6.2.4 LOADER Routine Descriptions 

The various routines which comprise the LOADER program are described below. All 
routines in LOADER call each other by the use of RJ X, where X is the entry point 
of the required routine (BLDCHK and CHKSUM are exceptions). 

A standard scheme for register allocation has been followed throughout LOADER, 
with a few minor exceptions which are specifically identified by routine- 

B1 - 1 

B2 = On return from a subroutine B2 ” 0 means that the subroutine did 
not accomplish what it was supposed to do, or that the end of a 
list has been reached. 

B3, 4, 5, 6 = Transient 

B7 “ Normally contains the address of the FIDL table corresponding 
to the program being processed. 

Al — Fetch 

A7 “ Putaway 

AO, 2, 3,5,6= Transient 

A4 = Address of current entry in a given list being processed. 

X0 - Search keys 

XI = Fetch 

X2 = Masks 

X3 = Transient 

X4 = Current entry in list 

X5, X6 = Transient 

X7 — Putaway 

The following is a brief description of the operation of the major routines: 

(1) OVERLOD 


This routine is a small overlay loader which becomes part of OVERLAY 
(0,0). It validates the user call, and if valid transmits the 
interpreted parameters to LDR for loading of Its requested overlay. 
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Vallidation Includes: 

(a) Parameter legality test. 
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(b) Relationship of call to OVERLAY mode, 1-e-, if a call is 

encountered for a nortnal program load, OVERLOD will reques" 
that LOADER be loaded in by LDR and then the user call is 
passed to LOADER* 

During overlay generation all external references to LOADER are 
linked to OVERLOD; thus, entry to OVERLOD is the same as any LOADER 
Call. 

The following parameters in the user call are examined by OVEKLOIJ: 

(a) The overlay flag (V) - must be a one for overlay loading. 

(b) Level numbers L2 and LI must be valid. 

(c) FN must contain a file name, and SL must be zero. 

All other positions in the call are ignored . No mapping is done for 
OVERLAY loading. 

(2) BLDCHK 

This routine checksums the entire loader and places the result in 
RA+FL-l* The exit is taken by executing a JP B7, 

(3) CHKSUM 

This routine checksums the entire loader and compares the result with 
RA+FL-1. If RA+FL-1 # 0 and the checksum agrees with it, the exit is 
taken by executing a JP B7. If the checksums do not agree* LOD 
is Called to reload LOADER* 

(4) CONTROL 

This routine is entered either by LOD (when it discovers an EXECUTE 
or NOGO card) or by LDR as a result of a LOAD or program call card. 

By examining bits 24, 25, and 26 of RA+67 CONTROL determines the 
type of control card processing required- In addition, bits 19-20 
in RA+66 indicate whether or not a SEGZERO or OVERLAY card were 
discovered by LDR during the loading* The following matrix gives 
the condition for entries into other LOADER subroutines. 


CONTROL 

CARD 

None 

LOADER DIRECTIVE FLAG SETTING j 

Segment Overlay | 

LOAD 

CONTINU 

SEGMENT 

OVERLAY 

EXECUTE 

REGEND 

SEGEND 

OVLEND 

NOGO 

REGNOGO 

SEGNOGO 

OVLNOGO 

Program Call 

PROGCAL 

SEGCALL 

OVLCALL 1 
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Note that SEGMENTS and OVERLAYS are mutually exclusive, 
existence of both bits detected by CONTROL is prohibited 
Therefore if CONTROL detects them both, the jobs will be 


The 

by LD R * 

aborted p 


The entries CONTINU, REGEND, REGNOGO and PROCAL are all within 
CONTROL. The actions of each of these rouintes are as To ows 


(5) CONTINU 

This routine is called as a result of a LOAD card during normal 
loads. When it is entered all program text and tables have been 
loaded* 


LDR will have loaded all loader tables with the PIDL table of the 
first program orlglned at'FWALODR-4. CONTINU thus establishes the 
value of FWALNK (first word address for entry table search! as 
FWALODR-4. The limit for both entry and link table searches is set 
to zero, indicating that all tables In both strings are to be searched. 
CONTINU then calls LINK to link up externals and entry points in these 
two tables* 


Using the same starting parameters, CONTINU then calls REPL to 
process replication tables- 

Upon return from REPL, CONTINU exits to BLDCHK to rebuild the 
CHECKSUM and then places an "END" in RA+l and loops awaiting the 
release of the CPU. All subsequent entries to CONTINU result in 
identical processing. 


(6) REG END 

During normal loads, this is the last main LOADER routine to be 

entered prior to entering the user's program. 

(a) If a DEBUG card has appeared (bits 28 or 29 of RAtbfe set), 

ENTFIND is called to determine whether or not DEBUG has been 
loaded. If not, the routine LOADPROG is called to perform the 
load. 

(b) The routine CLEANUP is called so as to complete the loading 
process- 

(c) The field length is set in AD so as to be easily accessible by 
the user. The current value of CORNEXT is saved in FWALOAD. This 
value of FWALOAD will be used in the next loader map produced 

for a user call during this run. 

(d) If the RSS bit (bit 27 of RA+67) is set, LOADER goes into Recall 
until the bit is cleared. 

(e) From this point on, the flow in REGEND is also used prior to user 
entry, for a segment load from control card. If NOGOFLG is set, 
it means that a NOGO card has been encountered. Exit is there¬ 
fore made to ENDIT, so as to exit by way of END in RA+l. 
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(f) The transfer address is picked up from XFERTBL (FWALODR-l). 

If no transfer address was specified, this value will be equal 
to zero, and an error will result. 

(g) The check is now made to determine whether this run involves 
TRACE or SNAP. If so, the debugging routines must be entered 
prior to entering the user. The address of SETADR (within 
DEBUG) Is determined by calling ENTFIND. Finally, bl-U(.liK is 
called to checksum LOADER. The user entry address is passed 
on to SETADR. 

(h) If TRACE and SNAP are not being used, it is still necessary 
to check whether or not a DEBUG card has appeared in the job, 
because if so, LOADER must make sure the DEBUG file has been 
updated to reflect the most recent load. Therefore, if bits 
28 or 29 of RA+66 are set, ENTFIND is called to supply the 
address of WRDEBUG, an entry point in the routine DEBUG. Exit 
is made to WRDEBUG, the DEBUG file is updated, and return is 
made to step (i) below. 

(i) The final processing in REGEND involves determining whether or 
not field length reduction is to take place. This code (CKREDUC) 
is placed near the end of LOADER to allow greatest chance for 
reduction when blank common overlays LOADER. Reduction will 
only take place when bit 32 of RA+66 is set (as a result of a 
REDUCE card for this load). Reduction is performed by placing 

a three^word long routine at the end of loaded core (CORNEXT 
plus blank common length) and entering it. This routine calls 
MEM to perform the reduction and then enters the user. Re¬ 
duction is not performed if blank common extends past the re¬ 
duce routine in LOADER. 

(7) REGNOGO 

This routine Is entered as a result of a NOGO card during normal 
loading. NOGOFLAG is set and exit is made to REGEND. 

(8) PROGCAL 

This routine is entered as a result of a program call card during 
normal loads. LINK and REPL are called in the same manner as in 
the routine CONTINU. Exit is then made to REGEND, unless the program 
call was for SNAP or TRACE. 

If the call was for SNAP or TRACE, then the situation is different. 
SNAP or TRACE are not actually to be entered at this time, nor is 
the load even complete. Therefore, REGEND is not called. Instead, 
the routine TSCARD (in DEBUG) is entered. This routine builds a 
TRACE or SNAP table from the parameters on the card and returns to 
LOADER. LOADER then places END in RAl, so that the system will 
advance to the next control card. 

(9) CALL 


This routine is entered by a call: 
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irpon entry CALL locates the beginning of the parameter list by 
fetching the return address of the call from location LOADER* The 
first pair of parameter words and the parameter pointer are stored 

within CALL. CALL then validates the parameter as follows: 

(a) The overlay flag must be zero* 

(b) If the segment flag (S) Is one> L2 = 0. 

(c) Bit 28 of RA+67 (the MAP flag) is set according to the inverse 
of the NOMAP flag in the user call- 

Cd) If SL=0, FN is the name of an entry point to be found in the 

library, or a file name in the FNT. 

(e) FWA Is less than LWA- 

(f) LWA is less than TBLNEXT. 

CALL then exits to one of two routines: USERSEG or USERLOD* IISERSEG 
is an entry point in the SEGMENT subroutine- CALLOK is contained 
within CALL- 

(10) CALLOK 

This routine processes user calls for non-segmented loads* The only 
fields of Interest in the user call are Fn, R, SL, K, F, C* LWA, and 
FWA. CALLOK primarily preprocesses the call before passing it on to 
REQUEST and, following coilipVetion of LDR loading, CALLOK completes 
the loading based on the user call- 

Preprocessing consists of clearing all unnecessary bits in the user 
Call to zero to ensure a clear interface with LDR- XI Is then loaded 
with an LDR call pointing to the two word user call stored within 
LOADER. REQUEST is called to initiate LDR. When LDR completes the 
required loading it returns control to the CPU at REQUEST which will 
return to CALLOK. 

Upon this return, CALLOK calls LINK and REPL, Upon return from REPL, 
the C flag In the user call is examined; if then CLEANUP is 

called. Otherwise, FILL is called since the common references must 
be filled but no library routine need be brought in. The F flag 

is then examined; If F#0, all unsatisfied externals are filled in 
and the non-fatal error flag is set if any are encountered. Once 
the load is completed, the reply is formulated and the user call 
replaced in Its original location in the user's program. The next 
location In the parameter list is examined. If it is zero, CALLOK 
returns,to the user's program* Otherwise, the next parameter call 
is processed as described previously. 

Note that each parameter word pair is processed to completion (or as 
far as permitted by the C and F flags) before the next parameter is 
processed. 
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(11) FILL 

This routine Is entered by a return jump (RJ) with the beginning 
address of the tables to be processed In FWAALL. FILL processes 
all fill tables appearing between the start address and table 

Fill utilizes a routine called FCbBYTE to fetch single, left ad¬ 
justed byte from the stream of FILL tables. Every control byte 
(bit 50=0) contains an address relocation value. This value is 
relocated using RELOCAT and the resulting address is saved in XO. 

Then BUMPADD is called to add the address found in XO to each 
instruction for which a data byte exists in the stream. Upon return 
from BUMPADD the stream pointer is stationed at the next control byte 
or the table terminator (a word of zeroes). 

(12) REQUEST 

This routine is a short program used for calling LOD and LDR. 

REQUEST places the PPU call in RA+1, clears bit 29 of RA+67 and 
then waits for It to be set by LDR when loading is complete. Once 
the bit is set, REQUEST exits to the calling program. In some 
cases the return to the calling program may be made by one of the 
LOADEROl or L0ADER02 entries which make their return via an entry 
to REQUEST. 

(13) REPL 

This routine processes all REPL tables, starting at the address of 
the first loader table and proceeding until all REPL tables have 
been processed. The REPL tables are processed directly as indicated 
by the fields appearing therein. 

(14) CLEANUP 

This routine is used to complete loading and any bookkeeping required 
for completion of loading. CLEANUP Is entered with FWA and LWA 
of loader tables to be processed. CLEANUP first calls SATISFY to 
fill In external references. Upon return from SATISFY, CLEANUP scans 
the program name list. If SATISFY has loaded any program during this 
load, bits 0-17 of the program name word i€). In this case, CLE^UP 
calls LINK and REPL, giving as FWA and LWA the starting and ending 
locations of theloader tables for the programs just loaded. If no 
programs were loaded by SATISFY, CLEANUP then calls FILL to process 
all fill tables for the programs just loaded. CLEANUP then expands 
Its scope of table processing to include all current loader tables 
in the job area by setting FWA to the first table and LWA to its 
last table. CLEANUP then calls LINK to link up all remaining 
references. Upon return from LINK, CLEANUP searches for all un¬ 
satisfied references in all LINK tables if bit 29 of RA+67 /O (fill 
flag). All such unsatisfied references are filled In with 377777. 
Bits 0-17 of each LINK table control byte are also filled in. Once 
complete, CLEANUP returns to the calling routine. 

(15) LINK 


This routine links up external references appearing in LINK tables 
beginning at FWALNK and ending with LINKLIM (or table sentinel) with 
entry points appearing in ENTRY tables beginning with FWAENTR and 
ending with ENTRLIM (or table sentinel). 
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LINK initializes the thread index (see THREAD) and thread limit for 
link table searching. Then SEARCHU is called to scan the tables fcr 
unsatisfied externals. If none are found SEARCHU will return wit ■ 
B2^0. If an unsatisfied external is found, the name will appear ' 

X4. This name is tested to see if it is "LOADER". If so, and if 
we are in OVERLAY mode, the name is changed to OVERJ.OD(or OVEkHX. i1 
any debugging aids are being used), and the reference replaced in 
the LINK, stream. The effect of this is to create an unsatisfied 
external called OVERLOD, forcing this special routine to be loaded 
froni the library when SATISFY is called later* 

If we are not in overlay mode the actual address for LOADER is 

placed in the entry by PLUNK. Then BUMPADD is called to ^ this 
address into every instruction for which a data byte exists in thjt 
particular stream. 

If the unsatisfied external is not found, LINK preserves the present 

position in the link tables of the search and initializes the entry 

table search* and then calls ENTSRCH- 

If a match is found for the name appearing in ENTSRCH will 

appear in bits 0—^17 of X4- This address is replaced in the link 

entry and the result stored in the table- The address is then added 

into the referencing instructions by BIJMPADD, and the search for 
unsatisfied externals is then resumed. 

If a match is not found the address is set to zero and BUMPADD 
is called anyway. This is no more than a convenient way to position 
the link stream at the proper control byte following the one just 
processed. 

(16) XFER 

This routine searches for entry points for the last loaded XFER 
table, the next to the last loaded XFER table, or the specified 
entry point from an EXECUTE card or the name given on a program 
call card, depending on the type and mode of loading being under¬ 
taken. 

If XFER processing results from a user call, then only the last two 
XFER tables are processed. Each name, in turn, is searched for in 
the entry table stream. If a corresponding entry point is found, 
the associated address is placed in the transfer table. IE an entry 
point cannot be found for the last loaded XFER, a warning message is 
produced and the non-fatal error flag is set. 

If XFER processing results from a control card, the routine utilizes 
the entry name provided in an EXECUTE card or the program name on a 
program call card. These names will be found in RA+64. If no name 
exists or no match is found, XFER then uses the last loaded XFER 
table to provide the entry point to the program. 
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(17) MAP 


The MAP routine provides the core map for a given load. It is 
essentially a straightforward exercise In printllne construction. 

The first line of the core map contains the following: 

"COREMAP" 

"Clock Time" of last LDR Load 
"NORMAL/OVERLAY/SEGMENT" 

LI, L2 or blanks 

"CONTROL" or address of user call 
blanks or 2 word parameter list In octal 
, First Word Address of load 
Last Word Address of load 
First Word Address of Blank Common 

Length of Blank Common 

f 

The second line (if this is a full map) contains the header informa¬ 
tion for the first line. It follows, rather than precedes, this 
first line in case the P (partial map) bit is on in the user call* 

In that case only the first line and no others would be printed out. 

The third line contains the First Word Address of LOADER and the 
First Word Address of the loader table. 

The fourth line contains the header for the printlines to follow, 
which are a list of the program names loaded, and by program, the 
list of labeled Coninon blocks associated with each program. 

The next mass of printing consists of all entry points in the load, 
with a cross reference for each entry point giving the absolute 
address of the reference, and the program name in which it appears. 

Finally, if any unsatisfied externals exist a list of these unsatis¬ 
fied externals will be produced with a cross reference for each one 
giving the absolute location of the reference and the program name 
in which it appears. Tnis is not printed if the short Map option 
has been selected by means of a MAP(PART) control card. Note that 
this differs from the partial Map option described above. 

MAP utlliees a circular buffer I/O routine borrowed from the FORTRAN 
compiler with a few modifications. Each printllne is only as long 
as needed for the information in that line, with a 60 bit zero word 
terminator. The I/O routine (WNX) places this line into a 129 word 
buffer and attempts to maintain a continuous output stream to the 
buffer, as CIO moves the printers. 

Upon completion of the MAP, an end-of-record is written and MAP 
delays until CIO has completed. 

(18) OVERLAY 

This routine may be entered from CONTROL (in the case of a LOAD card), 
OVLEND (in the case of an EXECUTE card), OVLCALL (In the case of a 
Program Call card) and OVLNOGO (in case of a NOGO card). A discuss¬ 
ion of OVERLAY generation in this Section describes the general flow 
of this routine.. The following are detailed points necessary to the 
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understanding of actual OVERLAY generation, 

(a) The communications between LDR and LOADER during overlay 

generation are through: 

1. EOLOAD bit - (End of LOAD bit) in RAJ67, bit 30, indicates 
that an end of file has been reached or an overlay has been 
encountered on the file whose level is less than or equal 
to one in core. 

2, WRTBIT « (Write out overlap bit) in RA+66, bit 23, indicates 
that at least one overlay should be written out in the 
current file. 

3- OVLINPT - (The overlay Input Table) which contains the 
following entries* 

OVLZZHD, OVLPRHD, OVLSCHD (Overlays zero-zero, primary 
and secondary headers) 

OVLZZFN, OVLPRFN, OVLSCFN (Overlays zero-zero, primary 
and secondary file names for output) 

LASTOVF - (Last file name used to write an overlay) 

OVLINFN * (Current source file for overlay generation) 

OVLZBCM - (Blank common pointer'and length for a given 
level) 

OVLZLWA - (Last word address of last loaded overlay) 

4. Contained in each level overlay file name word (OVL22FN, 
OVLPRFTl, OVLSCFN)in the low order 18 bits is the first word 
address of the loader tables for that overlay t 

5. Each header contains the level numbers and FWA of the over¬ 
lay, 

6. The sign bit of each OVLZLWA entry (when a one) indicates 
that the overlay at that level has already been written 
out. 

7. Bits 23 and 24 of RA+bb form the binary pointer to the over¬ 
lay to be processed by loader (l,e, - 0,1,2). 

8* Bits 25 and 26 of RA+66 form the binary pointer to the level 
overlay which will be replaced upon the next call to LDR 
by LOADER. 

9. The physical structure of the main LDR-LOADER communications 
table is: 
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Main (0,0) Overlay Entry 


Primary (X,0) Overl.iv 
Entry 


Secondary (X,Y) Overlay 
Entry 


Main (0,0) Overlay Entry 


Primary (X,0) Overlay 
Entry 


Secondary (X,Y) Overlay 
Entry 


It Can be seen that by utilizing the two, two-bit pointers pro¬ 
vided by LDR in RA+66, multiplied by two, each required entry 
In the above table can be accessed. 
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(b) When LDR encounters an OVERLAY card the parameters file name, 

level numbers and first word address of the overlay are placed 
In the table and the indexes In RA+66 are set to the current 
overlay Level just loaded. ^ 

(c) During the physical loading of programs constituting the overlay, 

LDR continues loading until another OVERLAY card or an end of 
file is encountered. The level of the next OVERIjAY dictates the 
setting of the two bit replacement index in RA^66- If the level 
of this next overlay is less than or equal to the level (main, 
primary or secondary) of the overlay currently being loaded, the 
WRTBIT and EOLOAD bit are set by LDR. 

(d) LOADER deals with all levels of overlays in an identical pattern; 
however^ prior to processing overlay levels 0,0 the loader table 
pointers and blank common are initialised to ^^first load** con¬ 
dition, 

(e) When entered for the first time, LOADER enters OVERLAY which 
accomplishes all the initialization for the main (0,0) Overlay^ 
which has already been loaded by LDR, Thereafter, and until all 
overlay generation is complete (for the present input file) the 
routine OVERLAY deals directly with LDR, requesting the load of 
the next level overlay, and with CIO requesting the output of 
an overlay- 

(f) Each overlay is linked, and all FILL, replication and XFER tables 
are processed and externa 1 references satisfled• After all 
possible library programs have been loaded to satisfy externa 1 
any remaining ones are filled in with out of bounds references, 
thus Inhibiting any further linkage for that overlay. This 
process then inhibits the linking forward" of references from 

a lower level overlay* to a higher level overlay. 

Cg) Blank common is then established (if this is the first declara¬ 
tion of blank common) or linked up to the appropriate references 
with FILL tables. 

(h) Once Loader has completed all of this standard bookkeeping, the 
actual process of overlay generation takes place. If the WRTBIT 
and EOLOAD bit are not set,LOADER establishes the next available 
location for loading text and tables, and these pointers are 
saved in the table for the next higher overlay- Loader then 
calls LDR to load In the next overlay* If the WRTBIT is set* 

LOADER scans the table of overlay headers, file names and common 
pointers to determine which is the overlay to be written out 

to the output file. 

(i) On the first occasion of encountering the WRTBIT, for example, 
LOADER may have loaded and linked overlay (0,0)* (1,0), and 
(1,2); the WRTBIT being set during the loading of overlay (1,2), 
since each overlay just loaded has been established, it is now 
possible to write out all three, prior to loading the 1,3 over¬ 
lay. This permits the ordering of overlays on the output file, 
in the same order in which they were loaded from the input file. 

(j) LOADER processes each Overlay table, searching first for the 
lowest level that must be written out. This is established 

by the rule th-t the lowest possible level not already written 
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out will be written out. Once an overlay is written out* hit 
59 of the blank common pointer word for that overlay is set to 
one- This bit will remain a one until the overlay is replaced 
by a new overlay- 

(k) Each overlay is output individually, using CIO. losing our 
previous example of overlays (0,0), (1,0), and (1,1); the prin¬ 
cess would be accomplished as follows- The header table ftir 
overlay (0,0) is retrieved, and the entry point inserted from 
the already processed XFER table- This one word table is then 
placed at the FWA of overlay (0,0)(normally location 100^). A 
sixteen word card image is cleared, beginning at the last word 
address of overlay (1>1) (in the next available location in core) 
and the PIDL name and a 77^ table CN code placed at that address- 
The CIO buffer parameters are thus established as follows: 

FIRST = FWA, overlay (0,0) 

IN = ^ast word address plus one of overlay (0,0) 
(RA+lOOg) 

OUT = Last word address+1 of overlay (1,1) 

LIMIT — Last word address of overlay (1,1)+16 

(l) When CIO is called, the overlay will be put out in a circular 

fashion from the resulting buffer, starting with the It woid 
77 Card, proceeding for 16 words to LIMIT, then end-around to 
RA^ overlay table header, and continuing to IN at 

the end of overlay (0,0). 

(m) If SNAP, TRACE, or labeled dumps are being used during the 
overlay run, it is necessary to keep a record of the loader 
tables of each overlay for later use* Therefore in this case, 
an additional record is written on the overlay file after each 
overlay. It consists of the loader tables for all of the pro- 
grams in this and associated Lower level overlays. Thus, after 
a (3,1) overlay, the tables for the (0,0), (3,0), and (3,1) 
overlays are written. These records are given an identification 
of 76 so that LDR may skip over them while searching for overlays. 
The CIO buffer pointers are set up as follows when writing out 
the loader tables: 

FIRST = TBLNEXT for the appropriate overlay 
IN = FWALODR+1 (So that FWALODR will be the last 
word written) 

OUT ” Same as FIRST 
LIMIT = FWAL0DR-f2 (IN+1) 

(n) Once all overlays are written out, that are required, OVERLAY 
proceeds to call LDR for the load of the next overlay and pro¬ 
cessing cycles as stated above- If the END OF LOAD flag was 
on, however, OVERLAY is done, since all overlays will have been 
written out by the above procedure. Xn the case where only three 
overlays (0,0), (1,0), and (1,1) have been generated before the 
end of file is encountered, OVERLAY will output the overlays in 
the same manner ask thru I (above), 'since the existence of 
either a WRTBIT or EOLOAD bit will trigger the output procedure. 
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(o) The determination of whether to proceed following this output 
process is made on the basis of the EOLOAD condition! If it 
exists, OVERLAY exits to OVLDONE, which determines whether the 
loading was Initiated as the result of a LOAD or program call ^ 
Card- In the first case, LOADER exits by placing an ENP in 
RA+l- In the second case, LOADER creates a psuedo user call 

to LDR for the loading (first file built) overlay(0,0)* Once 
LDR commences this load, control is transferred by LDR to the 
entry point of that overlay* 

(p) The logic Just discussed, results in several peculiar conditions: 


More than one OVERLAY (0 ,qJ may be generatedi Which one to 
be loaded by OVERLOD is determined by position on the file, 
and the position of the file at the time of calling for that 

overlay* 

(q) Any overlay may call any other overlay; however If a higher level 
overlay calls a lower level overlay or one of equal level, the 
LOADER system assumes that the user call will be wiped out by 
such action, and thus control is not returned to the CP Eollowi''-^ 
the user call but is Instead returned to the entry point estab-^ 

■ lished for that OVERLAY, 

(r) This permits the exchange of control between main overlays for 
various systems. 

(19) SEGMENT 

i' 

The general flow of segment processing was covered in the discussion 

in section 12.6.2.3(4). Pertinent details are covered below: 

(a) The initial entry to SEGMENT is initiated by control card pro* 
cessing of a LOAD or Program Gall C^rd* The segment mode is 
established by the existence of a SEGMENT or SECTION card 
immediately preceedlng any other records on the file used for 
loading. All SECTION cards must precede any SEGMENT cards, and 
such defined SEGMENTS must be of that level segment. Should 
the list of programs or sections making up a segment Cor the 
list of programs making up a section) exceed a single card, the 
overflow may be carried .on the following card If the same section 
or segment name is used as the first parameter of that card. 

(b) When SEGMENT has been entered, only the SECTION or SEGMENT cards 
will have been loaded beginning at RA+lOOg. The SECTION or 
SEGMENT table thus formed consists of a segment or section name 
(in display code, with bit postion 39 changed to a one) foil owe 
by a list of names in display code (with bit position 39 0). 

Thus a SEGMENT or SECTION definition Is terminated when a new 
entry is found which Is negative, or aero (since the section 
tables are separated from the segment tables by a word of zeroes 
and the segment tables are terminated by a similar word of 
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(c) If any section tables exist, they always begin at RA+lOOg, and 
continue to the first word of zeroes. If any segment tables 
exist (and at least segzero must be there I) they are located at 
the address found in bit positions 36 thru 53 of RA+65. Obvious* 
ly, if there are no sftction tables, this address would be RA+lOflg. 

(d) Prior to the loading cf any segments, one preliminary step must 
be taken if SHAP or TKACE are to be used. If bits 30 or 31 of 
RA+66 are set (the result of a DEBtrC(T) or DEBUG(S) card, it 

is expected that the last control cards to appear were SNAP ami/ 
or TRACE cards, and that SNAP and/or TRACE tables will be pre¬ 
sent. These tables must be saved at this time, however, because 
once loading of SEGZERO begins, they will be destroyed. There¬ 
fore, the routine TSSEGUP (within DEBUG) is called to increase 
the field length and move the SNAP and/or TRACE tables up into 
the added field length. TSSEGUP returns directly to LOADER at 
step below. 

(e) Using this address, SEGMENT then calls LOADSEG, which will load 
the predefined segment whose first entry may be found at the 
address in register Al. 

(f) LOADSEG begins by taking the first name in the list (following 
the segment name) and searching the list of predefined sections 
using SECSRCH. If a section exists whose name matches that 
entry, SECSRCH will return with B2 non-zero and the address of 
the matching entry in Al. If this is the case, LOADSEG will 
then call LOADSEG to load the predefined section beginning with 
that entry. 

(g) Since a predefined section can consist only of program names, 
LOADER now has on its hands a ready made parameter list for 
calling LDR. All that is left to do is to search to the bottom 
of that particular section’s name list, save the entry following 
it, and replace that entry with a word of zeroes. We then have 
a legitimate appearing parameter’list. LDR is then called for 

a selective file load from the current input file, with a pointer 
setup for the first name in the given section table, 

(h) Upon return from LDR, two things must be accomplished, the list 
must be restored to its original condition so that it may be 
used again, and a determination made as to the state of the 
loading process. First LOADSEG restores the last entry +1 to 
its original condition, wiping out the word of zeroes that was 
used to terminate the parameter list. Then LOADSEC returns to 
LOADSEG. 

(1) The routine CIRLIST is then called to clear out the 18 bit 

address which LDR sets in each entry (if the program is loaded), 
then counts the programs loaded versus the programs requested, 
and lastly sets LODADDR to the address of the first program 
loaded for that section. This last little bit of fluff is for 
the use of USERSEG and has no importance in our current dis¬ 
cussion. 

V ■ 

(j) If the name found in the SEGZERO list is not a predefined section 
name, it is placed in a separate list at the address PARAMTR. 

When all names have been processed, (or the PARAMER list has 
become overcrowded) LOADSEG sets up a call to LDR for the physical 
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loading of all programs In’that parameter list. The loading is 
accomplished by a routine called NOVILOAD, which after return 
from LDR calls TSTFILL to process entries in the parameter list ^ 
In the same manner as did CLELIST. 

(k) Once LOADSEG has completed the above activities, it returns 
to SEGMENT, which then compares the count of the programs 
actually loaded with the ones called for. If all of the pro¬ 
grams defined in SEGZERO are not present in core, an error 
message is produced and the job aborted. If all are present, 
they are linked up and their replication tables processed. 

|i 

(l) After the loading of the user^s programs in SEGZERO Is^com- 
pleted, the debugging routines are loaded into SEGZERO as 
required. The prior presence of any DEBUG card (bits 28-*31 oL 
RA+hb non-zero) will cause DEBUG to be loaded. SNAP and/or 
TRACE are then loaded depending on the presence of a DEBUG(S) 
or a DEBUG(T) card, respectively. 

(m) SEGMENT now makes one of two possible exits- If a program call 
card was being processed, exit is made to SEGEND. Otherwise, 

a LOAD card was being processed, and exit is made by placing 
an END in RA+1. 

<20) SEGEND 

Once an execute card or program Call card is encountered, the seg¬ 
ment loading is completed by SEGEND. This routine accomplishes 
all the normal processing through CLEANUP, that is attendant to 
normal loading- Once all standard bookkeeping is completed, howeve*^ 
SEGEND then calls SQUEEZE to condeme the loader tables into low cort 

Upon return from SQUEEZE, SEGEND takes the pointer in A7 and places 
It in bits 36*53 of RA+67 so that the head of the SEGZERO tables 
can be located by HUNT during user call processing- 

SEGEND then exits to the loaded segment by entering a location in 
REGEND (location CONT), at which the procedure is identical for 
normal and segment runs- 

(21) SQUEEZE 

SQUEEZE acconiplishes the condensation of loader tables, and moves 
them physically adjacent to the last word address of the segment just 
loaded. The process is as follows. 

Only LINK and ENTRY tables are processed. All such tables for .the 
current segment are scanned beginning at FWALODR-4 and proceeding 
to the end of the chain. The putaways begin In increasing order 
starting at LWA+1 of 'the associated segment. This process thus 
reverses the order in which the entries will appear in the tables. 

The ENTRY tables are moved first, one word at a time. If the ENTRY 
table has already been processed by LINK or MAP, the data byte 
(containing the relocation information) will already have been trans¬ 
formed into an absolute address which will appear in 0-17 of the 
ENTJDf name word. If this has not been accomplished, then SQUEEZE 
must call RELOCAT to make this transformation. In any event* only 
the entry name word and the absolute address are moved down, while 
the second word is discarded, Aug 196? 
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The moving of LINK tables Is a bit more complicated. First the 
format of the LINK table is modified somewhat. VIhen LINK tables 
are maintained in high core as standard LOADER tables, each control 
byte contains an external reference name and zeroes in bits 0-17 if 
unsatisfied, and an absolute address in bits 0-17 if satisfied. Each 
data byte associated with that control byte contains the relocation 
information necessary to access the instruction which is referencing 
the named external, 


The scan of LINK tables proceeds downwards through memory, beginning 
with FWALODR-4 while the tables are stored in increasing order, 
following the ENTRY tables. Not only does this step reverse the order 
in which LINK tables are encountered, but also the order of each 
LINK table. It is therefore necessary to save the control byte until 
all data bytes for the LINK stream have been moved to their new 
location. As each set of data bytes is moved, the related control 
byte is replaced at the head of the group so that it will be encount¬ 
ered first during LINK as Is customary for normal,loading. 

After the last data bytes of the entire LINK stream has been moved, it 
may be necessary to fill in one 30 bit group before replacing the 
last control byte so that the total stream will begin on an even word 
boundary. This last byte is constructed with an address pointing to 
a vacant space in LOADER, so that during the subsequent LINK pro¬ 
cessing of these tables modification by BTJMPADD due to the entry will 
not destroy vital information. The location chosen was EPPPPP? which 
is tlie first word of the core map print buffer vdiich is unused during 
linking. 

As each data byte is moved down, its relocation information is re¬ 
duced to an absolute address, thus minimizing future overhead, during 
segment call processing, for relocation of tbs addresses. 

During the moving of both ENTRY and LINK tables ail table headers, 
intermediate pointers (see THREAD) and sentinels are removed. Thus, 
there will be one continuous stream of all programs in the segment 
while each Individual program loses its identity within the SEGMENT, 


WORD 1 

WORD 2 

WORD 3 

4 


After all link and entry tables have been moved, a zero word is placed 
immediately preceeding the first word of its LINK table. A pointer 
word is then established, with pointers to the entry and link tables 
and finally a false PIDL header is constructed for the entire segment. 
The result appears thus: 


59 48. 16_24_L2-0. 

1 

POINTER TO 1 POINTER TO i qoOO ' 0000 ' 0000 ’ 

ENTRY TABLE 1 LINK TABIE 1 i 1- 




Segment; TBLNEfe for this ' 0000 * 0000 * 0000 1 

Segment. _ ,J-1-1- 1 


0000 1 0000 1 0000 J 0000 J 0000 

Link Sentinal 

Link Table 

Entry Sentinal 

Entrv Table 


Zero Word 

Programs in Segment 
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Upon completing the above, SQUEEZE’ returns to the calling program 
with A7 pointing to the header word for the segment. 

(22) USERSEG 


This routine performs all user call processing for segment loading. 

It is entered from CAI^L after the baste user call has been edited. 

The following are specific details of operation, 

(a) Upon entry, USERSEG calls HIM to find the level of segment to 
be replaced (if any). 

(b) HUNT performs two basic tests - searching for a segment at a 
level greater than the one requested by the user call and the 
setting of pointers between segment tables to maintain the 
thread for linked and delinked segments. On the first entry 
to USERSEG the only segment present in core will be SEGZERO 
whose LINK and ENTRY tables will be SQUEEZED down adjacent to 
the segment. HUNT begins by picking up the segment table pointer 
in RA+67 and using that address to access the segment table 
header for SEGZERO. 

(c) HUNT then finds that the level appearing in the segment header 
is less than the one requested (assuming a call for a level 
greater than sero). The absence of a pointer in the header to 
any other segraents indicated that the incoming segment will be 
an addition and not a replacement to the current core load. 
Further, this Implies that the next segment will be loading 
starting at the next core location following the segment table 
header just "peeked at-*, HUNT terminates with this address 

'FWADLl^I (first word address for delinking). 

(d) On subsequent entries the activities of HUNT are more complex. 
Let us say, for example, that the first level loaded after 
SEGZERO was at level 1 while-the next one to be loaded will be 
at level 3. Before HUNT is called for this second segment, the 
condition of the segments is as follcrjs; 


Segment 
tab le 
header 
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Dovmhi 11 

Uphill 

Segment 

- pointer 

pointer 


Downhill Pointer = address of next lower level segment 

table header 

Uphill Pointer = address of next higher level segment 

table header 
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(e) Oh this second scan :lirNT first fetches the initial pointer from 
RA+67* The segment table thus accessed will be the SEGZEKO 
table. HUNT determines that the level of the called overlay 
(LI—3) is greater than the one In the table (LI 0)* Since a 
pointer exists to another higher level segment (uphill pointer/OJ 
HUNT uses this address to access the next segment table. 

(f) When accessing this table HUNT detects that the downhill pointer 
is vacuous and sets it to the address of the SEGZERO segment 
table header, HUNT also determines that the level of this next 
segment is still less than the one being called and that there 
are no higher levels present (uphill pointer^). FWADLNK will 
then be set to the next core location following the segment 
table header- 

(g) Assuming that the next user call is for a segment at level LI 2 
HUNT will search for a greater or equal level as shown above, 
but when the level 3 segment table header has been encountered, 
HUNT will set FWADLNK with what would have been the downhill 
pointer which points to the last encountered table header. 

(h) Once HUNT has completed its search USERSEG sets up CORNEXT to 
the value FWADLNK + 1 and initializes loading pointers* If 

a total file load Is required, a simple single LDR call is made. 

(1) If an SL list exits USERSEG commences to process it in the 
following manner: 

1. Each entry is fetched from the SL list and SEGSRCH (search 
predefined segment list) is called. If there is a defined 
segment name matching the name from the SL list (B2#0) then 
LOADSEG is called to load the segment, (Action described 
under SEGMENT) 

2. If there Is no matching name, SEGSRCH (Search for pre¬ 
defined Section) Is called* If there is a defined section 
(B2=^) USERSEG calls LOADSEG (action same as in SEGMENT) 
to load the section* 

3. If the given SL entry results in its loading a predefined 
Section or Segment the CLRLST routines will have set LODADDR 
to the address of the last program loaded for that Section/ 
Segment. Upon return from the loading process, LODADDH is 
placed Into bits 0^#17 of the particular SL entry, 

4. During this pass over the SL lists all names not identified 
as SEGMENTS or SECTIONS are ignored* 

5- When the full list has been processed only these entries 
which do not get processed (either single program names or 
misspelling) will have their address fields still zero. 
USERSEG then calls LSR with the full SL list as parameter? 
however, LDR will ignore all entries already filled in. 
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Once all specified programs have been Loaded» the values 
FILLOUT and INCOMPL are composed. If unequal, the number of 
programs loaded does not match the number requested and USHRSF.i * 
puts out an error comment and the non-fatal error flag is set 
for the USER CAIX reply* 

If the load was complete, USERSEG performs linking and KKfM> ,.nd 
XFER table processing. Any unsatisfied externals remaining after 
the linking has been completed will then be satisfied by calliriK 
SATISFZ. 

There are two exits from SATISFZ which may be used to return 
to USEREG. The first, normal exit is taken when no programs 
have been loaded from the library during that particular entry 
to SATISFZ, The second exit is set in B7 by the calling 
program. It is taken when at least one program has been loaded 
by LDR. 

If a program has been loaded from the library to satisfy an 
external It will most likely possess a number of externals some 
of which may be linked within the segment, others will be limited 
to lower level segments and some may again be satisfied from 
the library. For this reason, the exit address in E? will 
return to the linking processor of USERSEG. The normal exit 
proceeds to the remaining portion of USERSEG. 

Linking of all programs loaded proceeds in the following manner: 

‘ 1- FWAALL, FWAKLNK and FWAENTR are set to FWALODR-4 as in nornwn"* 
loading. When LINK Is called, this effects the linking of 
all LINK and ENTRY tables for the programs just loaded which 
make up the new incoming segment, 

2- FWALNK is then set to FWADLNK, and LINK is called again. 

This will link up externals in the next lower level segment 
(remember that FWADLNK is set to the address of the segment 
table header for the last segment to be saved) with entry 
points in the Incoming segment* 

3. The downhill pointer is then placed into FWALNK, (Aha! 

That’s what that thing is for)and LINK is again called- 
This causes the linking of all external references in the 
segment immediately lower in level than the Last one pro* 
cessed in step 2 above to the entries In the incoming segment. 

4. This process continues until a downhill pointer of zero is 
encountered, indicating that there are no further lower level 
segments. Matters are then reversed with FWAALL being replaced 
in FWALNK, and FWAENTR is set to FWADLNK. When LINK Is called, 
this time, any unsatisfied externals in the new segment will 

be linked to entry points in the next lower level segment* 

5. Entry points in all lower level segments are linked to the 
current new segment by processing each set of segment tabl^ 
until a zero downhill pointer is encountered* (in the same ^ 

manner wherein the link tables for lower level segments were 
handled.) 
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(o) Once all linking of programs and Library routines has been accom-- 
pUshed, a coremap is produced if the M bit in its user call is 
zero- Then all unsatisfied externals are filled in with an out 

of bounds reference of 3t7777B If its F flag is a one. 

(p) The loader tables are then condensed and moved down using the 
SQUEEZE subroutine (described in SEGMENT), mien SQUEEZE is complete, 
the uphill pointer in the segment header, at which FWADLNK points, 

is updated to point at the new segment header just created, Durinj^ 
the loading of each segment, the main loader tables from previous 
segments are discarded, since all needed information is kept in the 
squeezed tables. However, If the debugging aids are used, it is 
necessary to have record of all tables for all segments in core, 
so these tables are preserved. The correct tables are saved during 
each load by using the TBLNEXT values kept in bits 36-53 of word 2 
of each set of squeezed tables* 

(q) USERSEG, after some final bookkeeping, exits to the terminal pro¬ 
cessing in the user call processor CALLOK* 

(r) LOADPRQG 

This routine issues a user call to LOADER in order to load a pro¬ 
gram of a given name. Since this means a call to LOADER is being 
Issued within LOADER, great care must he taken. This routine cannot 
be used if LOADER is already processing a user call- It is used to 
load the debugging routines (SNAP, TRACE, or DEBUG) when it is 
necessary to do so, and this involves calls from REGEND, SEGMENT, and 
FROGCAL. Since the checksum must be verified as soon as LOADER is 
■ entered, LOADPROG calls BLDCIflC just prior to issuing the RJ LOADER. 

12.6.2.3 Special LOADER Routine Descriptions 

There are several routines which are the heart and soul of LOADER, and whose 
logic should be understood if one is to perform Intelligent maintenance of 
LOADER. These are THREAD, SEARCHL, ENTSRCH, RELOCAT and REQUEST, Their 
operation is detailed below: 

1) THREAD 

This routine accomplishes the fetch of a single entry from a specified table in 
the loader table area- It operates on a threaded list of loader tables produced 
by LDR during the physical loading process. The structure of these threaded 
tables can be found in section 12.2, INTERFACES. Referring to diagram above 
the access of a table proceeds as follows: 

(a) Prior to entry to THREAD a 60 bit word called THDINDX (thread index). 
Is set up . A MACRO has been established which does this, called 
SETHRD. The form of the macro is SETHRD address, N where address 
is the location of the first PIDL table for the first set of programs 
to be processed and N is a number from zero to four which gives the 
position (left to right) of the table pointer to be used in the 
leader tables. For example if N=0, then the first or pointer 

would be used, indicating that LINK tables are to be accessed* (See 
diagram of tables). 
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(b) The result of executing SETHHD is to form an index word whose v.irioi- 
fields are: 


; . 

N 

Address of 

Address of 

Address of 

Current PIDL 

Next Table 

ENTRY 


of bits from right of word to THREAD Pointei:)/2 

(c) On first entry to THREAD, note that all but the address and N fields 
are zero, since these are the only ones established by SETHRD. 

THREAD is subdivided into three portions; Fetch the next word, start 
a new table in the same program string, and start a new string for a 

new program PIDL, On first entry it is necessary to do all three of 

these things. First, given the address of the PIDL header, THREAD 
must access the appropriate pointer, designated by N and with this 
pointer, and the PIDL address build the address called NEXT TABLE. 

This address Is Inserted in the THDINDX- Next THREAD processes the 
specified table header which may contain a pointer to the next table 
in that program chain. This address is placed In THBINDX* Upon 
completion of this process, the address of the first word of the 

given table (after the table header) is available in A4 and the first 

word 1s in X4. The pointer in a 4 is also placed in THDINDX, thus 
filling in all fields. THREAD then exits with the required entry 

in X4- 

(d) On a subsequent entry to THREAD, the THDINDX is fetched and the next 
word address taken taken from bits 0-17. This word is fetched into 
X4, and if bits 18-59 are zero, a sentinel (end of table) has been 
found. If not, THREAD exits normally with B2/0. 

(e) If a sentinel has been encountered, then THREAD must determine if 
any other tables are in the chain- The next address in THDINX is 
then obtained through shifting, and if zero, it indicates tfeat the 
end of that particular chain has been reached. If there is an 
address, the word at that address is fetched (it will be a new 
table header) and the NE>T TABLE pointer from that header will re¬ 
place the old pointer in THDINDX. The next word (in descending 
order) will be the next entry to be returned by THREAD, which will 
exit normally after putting that address in the last field (bits 0-17) 
of THDINDX. 

(f) If the address was zero, indicating that there were no more tables 
in the string, the next program PIDL table must be accessed to see 
if there are any more tables to be processed at all. This is 
accomplished by taking ti>e address field of the current PIDL and 
fetching the pointer word at PIDL-1* The omega pointer (bits 0-17) 
gives the relative location of the next PIDL from the current PIDL, 

If it is zero, there are no more program tables to be processed, and 
B2 Is set to zero and THREAD exits. Otherwise the address of the 
new PIDL table is replaced in THDINDX and then the process of getting 
a new table, and a new entry in that table are undergone, with 
THREAD exiting with the entry in X4 and B2#0- 
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(g) Each time a new PIDL is accessed* the address of that PIDL is 
compared against THODLMIT (thread limit) and if it is less than 
THDLMIT (remember we are in descending order) the search is term- 
Inated, B2 Is set to zero and THREAD exits* 

We therefore have the concept of a string of loader tables beginning at FWALODR-^ 
which are grouped by program and headed by a PIDL header and pointer word. One 
may proceed from PIDL header to PIDL header down this chain using the ^'omoga 
pointer word. Using THREAD we can proceed down the chain of LINK, ENTRY» FII.Im 
and REPL tables* within each program group* for each program in the chain. We 
will call the major chain of LINK tables* specified by the PIDL header pointer, 
the THREAD, Within the thread there are one or more tables, which do not 
correspond to the exact tables produced by the compiler and assembler. These 
tables are linked together by the pointers In each table header. This scheme 
permits the generation of any type of table at any time in the input stream, 
thereby eliminating the need for the compiler or assembler to gather together 
all LINK or ENTRY points for issuing tables to the source stream. 

It is obvious that the current position in the thread may be saved by preserving 
only the thread index. Thus during the processing of LINK tables THREAD will be 
called upon to retrieve entries for ENTRY tables for each LINK, entry, requiring 
that the thread index for LINK scanning be saved in LNKSAVE,aand the thread 
index for ENTRY processing be saved in ENTSAVE by the calling program, 

2) SEARCHL 

This routine fetches the next control byte (60 bits containing EXTERNAL name 
and either zero or an assigned address in bits 0-17), into X4, from the LINK 
thread* beginning with FWALNK and ending with LNKLMIT, 

First the THDINDX is set up with FWALNK and the LINK pointer, and LNKSTRM^, 

Then SEARCHL calls FCHBYTE to procure one 30 bit byte from the stream. If the 
most significant bit (bit 59) is a zero* and the byte itself is non-zero* we 
have found part of the control byte* This half is then saved and FCHBYTE called 
to retrieve the second half byte which is shifted end around and merged ^ith the 
first byte, SEARCHL then exits with B2=?£0 and the full 60 bit control byte in X4, 

If a control byte cannot be found in the remainder of the thread being searched, 
FCHBYTE returns with B2=0, and SEARCHL then exits directly to the calling pro¬ 
gram. 

The approach taken here is due to the fact that control bytes, although sixty 
bits long* may be split between computer words, to decrease the core storage 
requirements of the LINK stream, which can get quite long. The variable LNKSTRM 
is a flag indicating whether the left or right half word is to be accessed next. 
If the sign bit (59) Is a one* the address contained in bits 0-17 of LNKSTRM 
points to the word which must be accessed to retrieve the right half byte- If 
the sign bit is a zero* the next word in the LINK stream is fetched using THREAD, 
and the left half byte isolated. For this reason* LNKSTRM is set to zero upon 
first entry to FCHBYTE from SEARCHL to ensure that the scan begins at the head 
of the stream* 

3) ENTSRCH 

This routine searches for an entry in the ENTRY table whose bits 18-59 match 
the corresponding bits in XO. ENTSRCH sets the THDINDX to FWAENTR and the 
THDLMIT to ENTRLIM ( which is usually zero). Then an entry is taken from the 
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ENTRY table using THREAD. If thread returns with B2---0, no more entries are 
available in the table, and ENTSRCH exits Inmediately. 1£ an entry is found 

it is compared with the key in XO. If a match is not found, ENTSRCH loops b.n k 
to get another entry. If the two names match, ENTSRCH exits with the T 

first word of the ENTRY pair in XA and the address of that entry tn kU. If thi'. 
matching entry has not been previously accessed, bits 0-17 of the entry will tu' 
zero. In this case, the second word of the table (at AA-l) is fetched anti t lu¬ 
re location information extracted. The routine REl.OCAT is then called to provide 
an 18 bit absolute address which is derived from the base address and relocation 
bits. This address returned by RELOCAT is merged into bits 0-17 of the entry and 
this is replaced in the ENTRY stream. Subsequent accesses of this table will 
then not relocate this address again. 

ENTSRCH thus returned to the calling, program with the entry and an 18 bit address 
in X4. 

4) RELOCAT 

This routine computes an absolute address from a relative base address and 
relocation flags positioned as a 30 bit byte in the upper half (bits 30-59) of 
the X4 register. The base address has a quantity added to it whose character 
is determined by the relocation bits: An BL of 0 means no addition 

An RL of 1 Causes the PIDL header for the 
program tables being processed to be fetched- This header contains the 
the FWA of the program in bits 0-17. This address is then added to the 
base address to make an absolute address out of an address which is 
relative to program origin. 

An RL of 2 causes the fetching of the PIDL header and this address is 
complemented and added to the base to provide an absolute address for '* 
one which was relative to the complement of program origin. 

An RL of 3-77 causes the fetching of the corresponding entry following 
the blank common entry in the PIDL table. The address computation is 
the same as for blank common relocation. 

The result of this computation will be found in bits 0-17 of X3 while 
the original entry will remain in X4. 

12.6.2.6 loader error MESSAGES, MEANINGS AND RECOMMENDED ACTIONS 

1. OVERLAY CALL FROM RELOCATABLE 

A relocatable program has made a user call for an overlay load. This is one of 
the few redundancy checks made to validate user calls. This mode of operation 
is illegal, since once overlay loading is initiated, control is taken away from 
the user call and returned to the called overlay. It is possible to accomplish 
the same activity, if the file named in the user call contains all absolute 
overlays. This will trigger absolute mode, and if 0verlay(0,0) has not been 
called for, control will return to the user call. 

2. FIELD LENGTH NOT SUFFICIENT FOR OVERLAY GENERATION 

This Is self explanatory. During OVERLAY generation room must be allocated from 
the main LOADER of about 3500 locations and all loader tables for a given core 
map. During OVERLAY execution a great deal less core is required. 
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3. CANNOT COMPLETE THIS OVERLAY, BAD INPUT 

During overlay generation, if LDR encounters difficulty in loading text or other 
tables, it will produce an appropriate message such as *’USER ERROR, BAD TEXT 
TABLE"* Wlien LOADER commences to complete the overlay the fatal error bit 
(set by LDR) is detected, and the above message put out and the job aborted. The 
core map will contain the last good overlay generated. 

4. LOADER TABLES GARBAGE, OR OVERLAY SEQ ERROR 

LOADER tables are threaded in a list below the LOADER in CM. If these tables 
are destroyed by a user program (in normal mode only), the THREAD routine will 
be unable to cope with the situation, the above message will be output, and the 
job aborted. If an attempt is made to generate a secondary overlay, without 
first having generated its corresponding primary overlay (or zero level) the 
THREAD routine will have the same difficulty, and this message will result, 

5. WARlilNG BLANK COMMON GREATER THAT PREVIOUS DECL 

If blank common has been previously established in a set of programs (Segment, 
Overlay or a file loaded as the result of a control card) all subsequent re" 
ferences must not be greater than that which has been allocated. This is a 
warning only and does not abort the job* However none of the references to 
blank common are truncated, so it is <iuite possible for a program to destroy 
itself, if the caution is not heeded, 

6. BLANK COMMON EXCEEDS AVAILABLE CORE, TRUNCATED 

During blank common allocation, no length will be established which would exceed 
FL or overlap the 20 word residence set aside for the LOADER. As in 5 (above) 
no reference is truncated, only the a'llocation, for core map purposes. 

7. REPLICATION EXCEEDS AVAILABLE CORE 

During the replication process each putaway is checked to see that it doesn^t 
destroy the LOADER or its tables. If this should occur, the replication table 
processing is terminated but loading and execution are continued. 

8. SOURCE IS ZERO IN REPL 

If no address is furnished for the sburce stream to be fetched from, this 
warning is given. The source is then set to location RA+l (which usually 
contains zero) and replication initiated. 

9. LEVELS NOT PERMITTED IN STANDARD CALL 

If the S and V bits are not on In the user call, it is interpreted as a "normal 
load". If LI and L2 are non-zero, it is possible that the call was intended as 
an Overlay or Segment call but the appropriate bit is missing. This warning is 
put out, and processing continues as if a "normal" load. 

10- SEGZERO INCOMPLETE, JOB ABORTED 

If all of the programs specified on the SEGZERO card cannot be found on the 
input file, this error message results and the job is aborted. Please note the 
distinction between the necessity for finding all programs explicity called for^ 
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nnd the possibility that not all external references from these programs can 
satisfied. In the latter case no error comment is made, since tiiis is a norT::al 
condition for a segmented job, 

11* SEGMENT CALL, BUT WO SEGZERO PRESENT 

This is the result of a user call for a segment toad. If it is accomplished 
from a Normal or Overlay program, it is impossible to establish the necessary 
delinking point, since certain pointers are established for all segment loading 
during the initial loading of SEGZERO. This is probably the result of an 
erroneous setting of the S bit. 

12. SYSTEM ERROR IN LOADER. .HELP. .CALL CDC 

This is explanatory. LOADER has been designed to "FAIL SAFE", that is,all 
communications with the system are checked out and edited In some manner. If 
one of the interfaces degenerates or a new appears in LOADER, the comm* 

unication checking can result in this error comment* 

13. SEGMENT REQUEST WHILE IN OVERLAY 

In general the loading of segments and overlays is mutually exclusive, although 
normal loading may be done by both. This indicates that OVERLOD has called for the 
loading of a segment. The present implementation cannot permit this, since the 
original pointers to segment tables will not have been preset by the SEGZERO 
processor. 

14. SL LIST 1$ EMPTY, FATAL ERROR 

This is the result of a user call containing an SL pointer which gives an 
address at which there isaa sera word (signifying a vacuous selective load). 

It would be unusual for a programmer to Incur the overhead for such a call when 
there are cleaner ways, thus this condition is assumed to be an error, and a 
fatal error bit is returned in the user reply* 

15. NO PROGRAMS FOUND FOR SEGMEtfT 

This is the result of a user call where not one of the programs requested could 
be found. Since this would aid the programmer in tracking down an error (most 
likely a misspelled file name) it is included| although It performs the same 
function as the following message* 

16. REQUESTED SEGMENT INCOMPLETE 

This comment results from a user call and is produced for the same reasons as 
SEGZERO INCOMPLETE. Please note again that this message does not result from 
an inability to satisfy all externals, but instead arises when all the programs 
explicitly requested cannot be located. 

17. UNSAT BIT NOT PERMUTED, EXCEPT IN OVERLAY MODE 

There are two ways in which programs may be called from the library* A single 
program can be loaded by putting the name in FN and setting SL=0. If it is 
desired to load an absolute overlay from the library, LOADER must be informed ^ 
by setting the overlay bit and the unsatisfied external bit. If this bit is 
set at any other time, it will override the error flags returned by LDR, and 
could cause LOADER to begin loading absolute overlays on top of proper programs. 
This condition Is thus prohibited* 
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18. WARNING NO MATCHING ENTRY FOR XFER 

During XFER table processing if a non-zero or non-blank entry point is found in 
the XFER table, all available entries In the LOADER table are searched. If one 
matching cannot be found, this warning is put out. If this was the result of an 
EXECUTE card or program call card the Job is abortedJ otherwise the non-fatal 
error bit is returned to the user. 

19. CANNOT COMPLETE LOAD, JOB ABORTED 

This is intended to correct fatal error conditions which occur in control card 
mode when LOADER requests LDR to load library routines. Since a request of this 
type appears to LDR as a user request, 2LE, after giving a fatal error message, 
returns to LOADER rather than aborting. Thus, an error message from 2LE appears 
before this message. 

20. NO TRANSFER ADDRESS 

If, at the completion of processing a load, no program provides a transfer address, 
the job is aborted with this message. This condition will not occur if the load 
is completed with a NDGO card or an EXECUTE card which specifies an entry point. 
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12.7 

12.7.1 


CP LOADER 


Introduction 

The purpose of the CP LOADER is to provide the same functions as the 
standard 6FSL Loader ones but faster than GPSL- 

The objective is to relocate the text in normal load mode, at the disk 
transmission in 6600. 

It is expected to lose no more than one disk revolution out of ten by 
using 6638 and 6600 with a circular buffer size of 2000g CM words, and 
one disk revolution out of two with a 6400. 


The improvement of the loading speed is due to the following reasons? 

- PP programs are only used to initiate physical reading and to provide 
some CHR information. 

- TEXT is relocated by a CP program by executing e very efficient stack 
LOOP. 

An External Reference Table has been in^lamented in the directory, 
so that it is possible to set up the list of all library routines 
which are necessary and to load them with one PP request only. 

_ Buffer for mapping has been increased, we use for that all the CM 
space which Is avallable- 

- To load CPLOADER needs only one disk access and the relocation of 
CPLOADER is performed by itself. 

- A new high speed read function has been implemented in the stack 
processor. 

With this new function, the stack processor does not stop the read function 
at EOR. Also it does not lose one disk revolution each time it has to 
recompute the buffer parameters. So that it is possible to read-a file 
in its entirety at the transmission speed with a normal buffer length. 

CPLOADER and standard GPSL can coexist in the system. A new control card: 
LOADER has been in^lemented in order to determine what LOADER is to 
be used: LOADER (PPLOADR) indicates standard GPSL, LOADER (CPLOADR) in¬ 
dicates CPLOADER; default option is an installation parameter: 

IP.LDR = 0 PPLOADR 

IP.LDR = 1 CPLOADR 

The external specifications are exactly the same as the standard GPSL ones. 
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Except in search file mode, the file is searched twice starting from 
the last position and if the requested program is not found, the file 
is positioned at End of File. 

In case of fatal error, the name of the program being loaded is indicated 
by a message. 

The action of CP Loader is Irrelevant when attempt is made to load a 
program which has been assembled in absolute mode and if this program 
is such that some information is written in RA+1 at the loading time 
(ORG 1 for instance). 

About the internal structure, the part of CPLOADER which performs the 
normal loading is only present in CM permanently; four "relocatable 
overlays" of CP Loader have been provided to perform special functions*. 
Segmentation, Overlay generation. Mapping, processing of fatal errors. 

The structure of the LOADER tables is the same. 

Some areas have been added to the Loader tables- 

circular buffer^ 

- the list of ail programs which have been loaded, 
the list of all common blocks, 

- an area to load LOADERV or LOADERS overlay * 

These areas are put together in the same part of CM, between the CM 
loader tables and the first word address of Loader. A pointer has been 
provided in FWA Loader-4 which points to the first CM Loader table so 
that the CP Loader tables look like the GPSL ones. 


12.7.2 Organization 

CPLOADER includes five CP programs and two PP programs which are named: 

LOADERQ 

LOADERS 

LOADERV 

LOADERS 

MAPOUT 

LDQ (PP program) 

LOQ (PP program)■ 

Further, in user call mode, the following programs of the standard GPSL 
are used to load absolute overlays: 

OVERLOD (or OVERLOG) 

LDR, 2LA, 2LE 
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12.7.2.1 

The PP program LOQ is called by 2TS when a loader control card is de¬ 
tected and i£ the new CP loader flag is set in the control point area. 
Also, LOQ Is called by LOADERQ to reload itself if the checksumming 
fails. 

If the program to be loaded is an overlay of the library, LOQ loads it 
in CM and enters this overlay. 

Otherwise, LOQ looks at the flag "LOADER alteady-in". If LOADERQ is 
not in CM or if the checksum of the checksum routine in LOADERQ does 
not agree, LOQ loads It from CM or makes a request stack to load LOADERQ 
by one disk access only. When this request is completed, CP is Initiated 
at this control point to execute a short CP program included in LOADERQ 
(CPLOAD). This program, like a bootstrap, relocates LOADERQ into the 
highest addresses of the CM user's area, then LOADERQ is entered. 


12.7.2.2 LOADERQ 

This program has to relocate TEXT tables and builds the CM LOADER tables; 
it calls CIO or LDQ to read the file. When the physical loading of the 
file is over, LOADERQ achieves the loading process. The linking of all 
inter program references is completed. Then, in load card mode, an END 
request is placed Into RA+l and MTR advances to the next control card. 

If there is to initiate the execution of the user's program (EXECUTE OR 
PROGRAM call card), unsatisfied references are filled by loading appropriate 
library programs. A memory map is produced if it is required by the user, 
and control Is transferred to the specified entry point of the loaded 
program. This part of the loading process, when the physical load is 
achieved is the same as the standard GPSL, except the library loading. 


12.7.2.3 OVERLAYS OF GPLOADER 

When a cote map is required, the overlay MAPOUT is Loaded into the circular 
buffer and the MAP is written out. 

The "relocatable overlay" LOADERS is loaded in segmentation mode only. 

This program is the part of standard GPSL which performs all necessary 
functions for segmentation. 

Not any modification has been implemented in this part, except a check¬ 
summing. The "relocatable overlay" LOADERV is loaded In overlay generation 
mode only. 

This program is the part of standard GPSL which performs all necessary 
functions for overlay generation. 

No modification has been Implemented in this part. 
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LOADERS and LOADERV cannot be used in the same load. Each of them, 
when necessary is loaded in the user^s area between the CM loader tables 
and the circular buffer. 

LOADERE is an overlay of CP LOADER which is loaded and executed each 
time a fatal error is detected by any CPLOADER programs (LDQ, LOADERQ, 
LOADERS, LOADERV, MAPOUT). 

This program sends an error message and aborts the job in control card 
mode or return to the user*s program in user call mode- 


12,7.2.4 COMMUNICATIONS BETWEEN GP PROGRAMS OF CPLOADER 

Some data and subroutines are used by several CP LOADER programs, mainly 
by LOADERQ, LOADERS, LOADERV, MAPOUT. 

For this reason, a communication area is provided as header of LOADERQ 
program- This area includes a data block, a jump block and a return 
jump block. In order to ensure the right addressing at the assembly 
time, Q FIRST has been chosen as an addressing base for the CP programs. 

Four parameters: LOADSLH, LOADVLH, QBUFL, PARSVE are declared with the 
same value in the four CP programs, checking are made for that at assembling 
time and at loading time- 

The data block includes all flags and parameters used by all GP LOADER 
programs- 

The jumps block includes all the jumps used to return from LOADERS or 
LOADERV to LOADERQ. 

The return jumps blocks includes the return jump entries to the sub- 
routines used by LOADERS, LOADERV, LOADERQ and MAPOUT. 

Any modification in this area must be reproduced in LOADERS, LOADERV 
and MAPOUT. 


12.7.2.5 LDQ 

This PP program performs the following functions: 

requests stack processor for high speed reading, 
requests stack processor for library reading, 
reads library programs in CM, 
reads directory from CM or from the disk, 
reads time, 

- resets FST, 

- processes loader directives. 

An FET is used to communicate between LDQ and LOADERQ. 
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12.7.3.0 IMPUT - OUTPUT 

There are 3 subroutines for reading In LOADERQ: 

- HSPREAD (high speed read) 

- N08READ (normal read) 

- LIBRSAD (library read). 

HSPREAD and LIBREAD cll LDQ, NORREAD calls CIO. 

In any case the address of the program to be used Is set in QFREAD. 

High speed read is used in normal loading mode to load a file in re¬ 
locatable format, if the device is allocatable. 

Normal read is used in case of; segmentation, overlay generation, search 
file and absolute overlay loading. Also normal read functions is used 
each time the device is non allocatable. 

Library read function is used only to read the library. 


12.7.3.1 HIGH SPEED READ 

LOADERQ sends a request with automatic recall. The CPU is dropped and 
then LDQ restarts CPU when one sector has been written in the buffer, 
by deleting the automatic recall address and requesting the CP. In order 
to avoid spending too much CP time in waiting for the disk, the following 
organization has been chosen^ 

When the buffer is empty and the file busy, CP loader waits one sector 
reading time and then if the buffer is always enq>ty CP LOADER sends a 
RGL request, because one disk revolution has been lost. 


12.7.3.2 NORMAL READ 

LOADERQ sends a CIO request with automatic recall so that GPU is dropped 
and restarted when the physical reading is completed. 


12.7.3.3 LIBRARY READ 

In this mode, the file status is irrelevant. LDQ PP is waiting during 
the library read, it sends a stack request each time there is room in 
the buffer. It indicates the end of the library read by setting a flag 
in the LDQ reply byte. 


12.7.3.4 CIRCULAR BUFFER 

These 3 functions use a circular buffer, the length of which can be ad¬ 
justed (we have chosen QBUFL = 1001-). The buffer parameters are stored 
in the QFET, QFIRSTA, QINA, QOUTA, QLIMITA. 
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12.7.3.5 SPECIAL INPUT 

LDQ is requested to read with special function In order to read the tables 
of the directory and the overlays of CP LOADER- 

In these cases a short FET is used and the length of the buffer is deter¬ 
mined so that the table or the program can be read with one request stack 
only. 

If the library routine or the table directory is CM residents LDQ performs 
the move in CM. 


12.7.3.6 OUTPUT 


The only output are to write out one absolute overlay or the map. In 
any case CIO is used with automatic recall- In case of absolute overlay, 
the overlay itself is considered as a circular buffer. In case of 
mapping, we choose for buffer all the available space in the user's field 
length, between CORNEXT and TBLNEXT- 

12.7,3,7 WHICH PROGRAMS ARE USED TO READ BINARY FILES 

a. CIO In the following cases; 

Segmentation mode 
Overlays generation 
Selective load 

Absolute overlay in control card mode 

Any kind of loading from magnetic tapes except absolute overlays 
in user call mode- 

b* LDQ is used in the following cases: 

Library loading 

Normal loading (No segmentation, no absolute over lays,no selective 
load, no overlay generation) 

c. LDR is used in the following cases: 

Absolute overlays in user call mode 

Consequently, if absolute overlays are recorded on tape, this file 
is copied onto disk first• 
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12.7.4.0 FOEMATS 


The CM loader tables have the same structure as the GPSL ones. 

Two tables have been added in CP LOADER: 

COMMON BLOCKS LIST 
PROGRAMS LIST. 

The length of these tables is variable during the loading process. If 
necessary, this length is adjusted by step of fixed size (QSTLIS). 
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12.7.4 


1 CM CORE IMAGE DURING LOADING BY CP LOADER 


RA* 


COENEXT 


TBLNEXT 


(FWAALL). 


(BEGIMG) 


(QPPLI) 


QFIRST 


QLIMIT 


FWALODR-5 
FWALODR-4 
FWALODR-3 
FWALODR-2 
FWALODR-1 
FWALODR 


RA+FL 


T E 

— 

X T 

i 


LOADER TABLES 


FIRST POINTERS WORD 


FIRST PIDL 






_ C(M40N_ 

BLOCKS LIST_ 

r PROGRAMS LIST i 1 

LOADERS OR 

LOADERV PROGRAM 


DURING 

SEGMENTATION 


OR OVERLAY GENERATION 



MAPOUT PROGRAM 

DURING MAPPING IF 

BUFFER 

THAT IS REQUESTED 

AREA TO SAVE 

IN IT RA+2 THRU RA+63 

0 i 

! POINTER -1 


3 FAKED_1 

BLANK COMMON 

LAST XFER 



LOADERl 



^L0ADER2 

L 0 A D E R Q 

ELDCHK 


r TF 


5 CM WORDS 


LENGTH; 

K* QSTLIS 

length” 

LOADSLH ; SEGMENTATION 
LOADVLH : OVL. GEN, 

0: NORMAL LOADING 

T- 

LENGTH: 

QBUFL 


t - 

LENGTH: PARSVE 
L1L - 
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12.7.4.2 FET FORMAT FOR COMHUHICATION BETWEEN LDQ AND CP LOADER PROGRAMS 


QPETA 

QFIRSTA 

QINA 

QOUTA 

QLIMIT 

QFONCA 


FILE NAME 

FUNCTION 

AND 

STATUS 

L 

QFIRST 


QIN 


QOUT 

1 

1 

QLIMIT 

LDQ STATUS 

REPLY FLAG 

ADDRESS 

OF 

PARAMETER 


toT 


12.7.4.3 CALL FORMAT FOR LDQ 


LDQ] 

A 

L 

FET 

ADDRESS 




RECALL AUTOMATIC 
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12.7.4.^^ USER COMMUNICATION AREA {RA+64 thru RA-t-67 ) 


59 


17 




_ 

\ 

z 

Program call or File Name 

Number of par 


53 36 


17 0 


_^_ 


CORNEXT 

_i_ 


RA + 64 


RA + 65 


During segment 
loading address of the 
first word of the 
segment tables 


Address^of the next location ir 
user's job area available for 
program loading 
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53 


36 35 


31 28 27 22 21 18 17 


0 



TBLNEXT 


Address of the next location 
available for the loading of 
tables accompanying LOADER 
in CM. As the tables are 
loaded adjacent to and below 
LOADER, successive locations 
for loading are obtained by 
negative addressing from this 
pointer. 





RA+66 




Address of the first word 
of the object program in 
the user's job area. This 
pointer is not utilized by 
the GPSL routines and is 
provided as a service to 
the user. 


Bit positions 18, 19, 20, 21 are set 
when LDR detects the loader directiv- 
cards SECTION, SEGMENT or OVERLAY 
respectively 


OVERLAY flag bits giving the level 
of Incoming overlay. The level of 
current overlay force writing of 
overlay. 


DEBUG control bits 

28 = 1 if labeled dump requested 

29 = 1 if change dump requested 

30 = 1 if TRACE is to be used with 
overlay or segment job 

31 ® 1 if SNAP is to be used with 
overlay or segment job 

32 : = 1 if REDUCE Field Length is to take place 


33-35 : Map option bits 
001 ON (full map) 

010 OFF (no map) 

100 PART (partial map) 
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36 35 32 


24 


17 


0 
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1 - During segment loading 

address of the linkage 
table accompanying the 
lowest level program 
in the user's job area 

2 - During overlay-loading 

the address of the first 
word of blank COMMON in 
the user's job area 



2d 


FWA LOADER 


■V 


RA+67 


[Address of the first word 
[of Loader 

24-25-26. The last control c 
card type interpreted by 2TS 

1001 - LOAD card 
1010 - EXECUTE card 
^00 - NOGO card 

^7 = RSS bit indicates operation in 
RSS mode 

428 = No map flag, this bit is set to 1 
if, during program loading for a 
job, access is requested for a 
program not in the library 

^9 = REQUEST Exit flag LOADER routine 
REQUEST sets : this bit to zero 

before exiting toLDR 
This bit is set to one by LDR upon 
reactivation of CPU L0ADER,used only 
with the standard GPS L 


I—*30 = END OF LOAD Bit indication that phy¬ 
sical loading is completed. 

a Partial Map bit, indicates that a 
single line header is to be Output 
instead of the entire map. 


32 - 35 TRACE/SNAP control bits 

32 TRACE cards have appeared but no SNAP cards ye* 

33 TRACE cards have been followed by SNAP cards 

34 SNAPE cards have appeared but no TRACE cards 

yet 

35 SNAPE cards have been followed by TRACE cards 
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PROGRAMS/COMMON BLOCK LIST 


COMMON BLOCK NAME 

ADDRESS 

BLOCK LENGTH 

----- 

POINTER TO PROGRAMS LIST 


__ 

COMMON 

BLOCK NAME 


ADDRESS 

BLOCK LENGTH 

POINTER TO PROGRAMS LIST 

r- 


PROGRAM NAME 


POINTER PIDL 


PROGRAM NAME 


POINTER TO 
PIDL/BEGING 


Q PGLU 
(first 
consDon 
block) 


Q PTCL 
(next word 
available) 

Q PTPL 
(next word 
■ available) 


Q PPLl 
(first 
program) 
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FILL 


PROGRAM NAME 


REPL 


PIDL 


LOCATION 


LINK 

TABLE ! 

0 

pill 

TABLE 


REPL TABLE 


PILL TABLE 


NEXT LINK 



LINK 

TABLE 

0 


ENTR 

TABLE 


NEXT FILL 


COMMON riljOCK NAME 


LOCATION 


COMMON BLOCK NAME 


r I 

link *ENTR <FILL 


PROGRAM NAME 


LOCATION 


LOCATION 


0 


FAKED 


POINTER TO 
1ST PIDL 
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12.7.5.0 LOQ 


12.7.5.0.1 Task description 

LOQ Is a PP program called either by 2TS or LOADER to load or reload 
the CP LOADER for a given job. 

12.7.5.0.2 Organization and flow analysis 

LOQ determines first whether it is called by 2TS or LOADER by checking 
its input register (lAJ if called by 2TS). Then LOQ determines if it 
is a control card or program call type. 

If program call type, LOQ determines if the call is for a CP program 
by searching for the program name first in the FNT then in the directory. 
If found, the CP program is loaded and executed. 

If not found, a PP program is assumed. 

In case of control card type, or CP program call, the CP LOADER is 
loaded if the loader already-in switch is not on, or if it is on and 
the loader checksum routine is not completely in. 

If LOADERQ is on an allocatable device, LOQ enters a stack request. 

In order to read the whole relocatable loader with one stack request, 

LOQ sets parameters of a CM circular buffer into user's field length 
(the actual size of this buffer is 5000B but this value can be ad¬ 
justed). After the stack request is entered, LOQ sets in the control 
point area the automatic recall pointer to FWA of buffer FET, resets 
some flags from control point are (W.CPLDR) to user's field length 
(RA+65,66,67) Shen exits by activating CP and dropping PP. If LOADERQ 
is CM resident, LOQ Itself reads LOADERQ from the resident area and 
writes it into the user’s field length. 


12.7.5.0.3 Subroutines 


Open 

Subroutines 


LOD 

Initializations 

5.1 

PPCl 

Process program call 

5.2 

DTLl 

Determine to load Loader 

5.3 

SFLl 

Search for Loader 

5.4 

PPPl 

Process PP program call 

5.5 

CLDl 

Read Loader from disk 

5.6 

RPLl 

Read Loader from CM 

5.7 
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12.7.5 


12.7.5 


12.7.5 


12.7.5 


12.7. 


12.7. 


12.7. 


Closed 

Subroutines 


SRC 

Search directory 

5.9 

EPT 

Search entry point table 

5.10 

CMP 

Compare names 

5.11 

CKS 

Loader checksum routine 

5.12 

CLEX 

Clear exchange jump area 

5.13 

CNV 

Convert octal display code to binary 

5.14 

GETFWA 

Get FWA Load 

5.15 

TESTFL 

Test if sufficient place into FL for 
Loader 

5.16 

SETFET 

Create a FET in the job field length 

5.17 

LIP 

Store parameters into 1^+65,66,67 and 
process debug cards 

5-18 


. 1 LOD 


.1.1 Task description 

This routine initiates LOQ processing. 

.1.2 Environment description 

The PP input register must contain either lAJ if called by 2TS, 
or LOQ if called by LOADSRQ or RUN. 

.1.3 Subroutine structure 

After reading RA+64 and RA+67 a check is made for LOQ in input register. 
If LOQ, we do not clear exchange jump area, we drop CP. If called from 
RUN, LOQ exits to SLFl after setting a flag for LOADERl entry. 

LOQ determines control card type. If program call,LOQ exits to PPCl. 

If not, LOQ exits to DTLl. 

),1.4 Other routines referenced 
Exit to SFLl, PPCl, DTLl. 

5.2 PPCl 


.2.1 Task description 

Process program call. 
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12.7.5.2.2. Environment Bescription 


Routine called by LOD in case of program call type. The program 
name searched is in BA64. If program name is found in FNT or directory, 
PPCl exits to DTLl. If no match is found, PPCl assumes program name 
Is a PP program and exits to PPPl. 


12.7.5.2,3 Other Routines Referenced 

CMP Compare names 

SRC Search directory 

EPT Search entry point table 


12.7.5.3 DTLl 

12.7.5.3.1 Task Description 

Determine to load LOiVDER. 


12.7.5.3.2 Environment Description 


The first instruction (RJM, CLEX) is not executed if LOQ is in the 
input register. 


12,7.5.3.3 Subroutine Structure 

After (or not) clearing exchange jump area we sense the LOADER 
ALREADY-IN switch. If LOADERQ is not on, we exit to SFLl. If on 
we enter CKS to checks\im the loader-checksum routine. If not OK, 
we exit to SFLl. If OK we exit to GP after resetting same para¬ 
meters (routine LIP). 


12.7.5.3.4 Other Routines Referenced 

SFLl Search for LOADERQ 
CLEX Clear exchange jump area 
CKS Checksum routine 

LIP Set parameters 


12.7.5.4 SFLl 

12.7.5.4.1 Task Description 

This routine searches LOADERQ in directory. 
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12.7.5. 


12.7.5. 


12.7.5. 


12.7.5. 


12.7.5. 


12.7.5. 


12.7.5. 


12.7.5. 


12.7.5. 


,2 Subroutine Structure 

After setting LOADERQ for test, we call SRC to search directory. 
If LOADERQ is not found, we abort control point, if not we exit 
to CLDl if disk resident, or to RPLl if CM resident. 


.3 Other Routines Referenced 

SRC Search directory 
CLDl Load LOADERQ from disk 

RPLl Load LOADERQ from CM 


PPPl 


.1 Task Description 

Process PP program call. 

.2 Environment Description 

On entry, we find in NAME a character chain which must be a PP 
program name. If there are no more than 3 characters for name 
and two- parameters, we form a PP input register. We enter this 
program in this PP by a LJM R.IDLE. 

1.3 Other Routines Referenced 

CNV converts a parameter to octal. 


CLDl 


6.1 Task Description 

Read LOADEIKJ from disk in unrelocated form into a CM buffer within 
user's field length. 

6.2 Subroutine Structure 

If there is sufficient place in field length, we set a FET at 
location RA+FL - FWALOAD-IOB. This FET defines a buffer with 
FIRST = RA+FL - FWALOAD and LIMIT = RA+FL. Then we enter a stack 
request in order to read LOADERQ- We set the auto-recall pointer 
in control point area to enable to start CP after completion of 
read operation and to drop PP without waiting for end of LOADERQ 
read. 
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12.7.5.7 

RPLl 


12.7.5.7.1 

Task Description 



Read LOADEEQ from CM in unrelocated form into a CM buffer 
user^s field length* 

within 

12.7.5.7.2 

Subroutine Structure 



It is the same as CLDl. We do not enter a stack request, 
make a CM - PP - CM transfer. 

but we 

12.7.5.9 

SRC 


12.7.5.9.1 

Task Description 



Search a program name in directory. 


12.7.5.9.2 

Environment Description 



On entry, the name of program to be searched is in direct 
NAME* Exit with A ” 0, if no match found: 

cells 


« A negative; if match and disk, resident 

- A positive; if match and CM resident, A = CM address of 

program 

12.7.5.9.3 

Other Routines Referenced 



CMP compare names. 


12.7.5.10 

EPT 


12.7.5.10.1 

Task Description 



Search entry point table for a name. 


12.7.5.10.2 Environment Description 

On entry we have a program name in NAME. Exit with (A) = 0 if no 
match; (A) 0 if match. 
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12.7.5.10.3 

Other Routines Referenced 


CMP compare names* 

12.7.5.11 

CMP 

12.7.5.11.1 

Task Description 


Compare names of seven characters. 

12.7.5.11.2 

Environment Description 


On entry names are in N^E and D.TO* Exit with (A) — 0 indicates 
a match. 

12.7.5.12 

CKS 


12.7.5.12.1 Task Description 

This subroutine computes the 12 bit checksum of LOADERQ checksum 
routine. 

12.7.5.12.2 Environment Description 

The length of LOADERQ routine is found in 4th byte of RA+FL-2. 
Exit with checksum in A. 

12.7.5.13 CLEX 


12,7.5.13.1 Task Description 

Clear exchange jump area store FL in AO clear RA+1. 


12.7.5.14 CHV 

12.7.5.15 GETFWA 

12.7.5.16 TESTFL 

12.7.5.17 SETFET 


self explanatory 
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12.7.5.18 LIP 


12.7.5.18.1 Task Description 

Store parameters into RA+65,66,67 and process debug and Reduce 
cards. 

12.7.5.18.2 Subroutine Structure 

Flags are read from W.CPLDR of control point area and are copied 
into user's field length. 

TRACE and SNAP cards are processed. Then we reset P in control 
point area at its correct value and we exit to CP after dropping 
PP. 


12.7.6.0 LDQ 


12.7.6.0.1 Task Description 

LDQ is a PP program which accomplishes service functions for CP 
LOADER. The CP LOADER requests are the following: 

OOB - Read Library Programs into CM buffer 
02B - Read non-stop (file load) 

04B - Write FST (reset FST at initial value) 

06b - Get time 

lOB - Process Loader directive 

12B - Read Library tables (EPT and ERT if any) 

14B - Read LOADERQ overlays. 

12.7.6.0.2 Organization and flow analysis 

LDQ is called only by LOADERQ always with Automatic-recall. The 
LDQ input register contains a FET address right justified. All 
parameters are set in this FET by LOADERQ. 
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59 ^ 

L7 0 

FET 

QFLAG 

QFST 

FILENAME 

CODE (STATUS) 

0 -— 1 

FIRST 

0-0 

IN 

0-0 

OUT 

FNTADR 

0 —- 0 

LIMIT 

ERROR 

FLAG 

STATFLAG LASTENT 00 

ADDRESS 

- FIRST 1 g.j, - 

SECOND J 


+1 

+2 

+3 

+4 

+5 

+6 


The requested function is stored by LOADERQ in CODE/STATUS. After 
completion of request LDQ, CIO or OPE sets the status odd and 
LOADERQ is restarted by MTR. 

If an error is detected by LDQ, the error flag Is set and LOADERQ 
will send a dayflle message and abort control point. 


12.7.6.0.3 Subroutine 

Open Subroutines (functions) 


HSREAD 

Non stop read 

6.1 

WREST 

Write FST 

6.2 

TIME 

Get time 

6.3 

RDLDOVL 

Read LOADERQ overlays from library 

6a 4 

EPTERT 

Read Entry point and external reference 
tables 

6.5 

READLIB 

Read Library programs into CM buffer 

6.6 

LODDIR 

Process Loaderdirectives 

6.7 

Closed Subroutines 


FNT 

Search a file name in FNT 

6.8 

RSLCLD 

Search Library directory for a name 

6.9 

CMPPCM 

Transfer CM to CM by PP memory 

6.10 

STKREQ 

Set pointers and enter request in stack 

6.11 

SYSTEM 

Search file name SYSTEM or SSSSSSU and wait 
not busy 

6.12 

GETPN 

Get next program niimber 

6.13 

READDIR 

'Read into CM buffer a Library program 

6.14 
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The following subroutines are not described here (self - 
explanatory): 


INTOLM 

Compute buffer length from IN to LIMIT 

PAUS 

Pause for relocation - Test error flag 

READFET 

Read FET of LOADERQ into PP memory 

CMP 

Compare names of seven characters 

RSFET 

Reset CMFET from PP memory 

GETEQOR 

Get equipment ordinal (allocatable device) 

6ETRBT 

Read a RfiX entry 

GETRBA 

Form RBT address 

BUFCAP 

Compute bxiffer length 

RDLIBP 

Read Library pointer 

SETDIR 

Set pointers in stack request 

SETCM 

Set pointers in PP direct cells 

OUTMIN 

Compute OUT minus IN 

WAIT 

Wait a few milliseconds 

RSFLAG 

Reset Flag word of FET 


12.7.6.1 HSREAD 


6.1.1 Task Description 

This subroutine has two purposes: 

a. the first time, the FET filename is searched in FNT and directory. 

If found in FNT, we go to b. If found in directory, we set the 
library load flag for LOADERQ and exit. If filename is not found, 
we abort the job. 

b. we have found the filename in FNT. If the file is on an allocatable 
device we check load type for rewind and then we enter a special 
stack request (non EOR-stop Read). If the file is on a non 
allocatable device, we make an OPEN-REWIND (call of OPE in this PP). 


6,1.2 Subroutine Structure 


a. If FNT address is not zero, it is not the first call and we go to 
HSREADl. We check that we have a good FNT address and if correct 
we enter the special "non stop read" request in stack. In order 
to start GP before completion of request (to enable a wrap around 
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into CM buffer), we are watching FET IN/OUT pointers. After 
the read of the first PRU into CM buffer, we clear the auto - 
recall pointer in control point area and we restart CP before 
exiting from PP. 

b. FNT address is zero. It is the first time we are called. 

Name is not in FNT, nor in directory = abort control point. 
Name is found in directory = set flag for LOADERQ and exit. 
Name is found in FNT: 

- if non allocatable device we load OPE in this PP 
for OPEN-REWIND; 

- if allocatable device, we check for rewind (no 
rewind if name = INPUT or selective file Load) 
and we go to a- 


6.1.3 Other Routines Referenced 


FNT 

RSLCLD 

REWIND 

CMP 

RSFET 

GETEQOR 

STKREQ 

WAIT 

READFET 

OUTMIN 

RSFLAG 


Search FNT for a name 
Search directory 
Execute a rewind or call OPE 
Compare names 

Reset FET (new buffer status) 

Get equipment ordinal 

Con^lete and enter stack request 

Wait a few milliseconds 

Read CM FET 

Compute OUT minus IN 

Reset error flag word 


12.7.6.2 WRFST 


6.2.1 Task Description 

Reset FST of a file on an allocatable device to its old value. 
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6.2.2 Subroutine Structure 

Before we re-write the old FST, we make some checks to be sure we 
cannot bring some trouble to the operating system. 


12.7.6.3 TIME 


6.3.1 Task Description 

After reading T.CLK we write time at the address set in its FET 
(word FET+5, last 18 bits) by LOADERQ. 


12.7.6.4 RDLDOVL 


6.4.1 Task Description 

Read from Library LOADERQ overlays (LOADEREj LOADERS, LOADERV, 
MAPOUT). 


6.4.2 Subroutine Structure 

First, we search the directory for the name of overlay. If not 
found, it is a system error. If found, we go to ERTREAD (see 
EPTERT section). 


6.4.3 Other Structure Referenced 


RSLGLD search a name within directory. 


12.7.6.5 EPTERT 


6.5.1 Task Description 

Read entry point and external reference table. 


6.5.2 Subroutine Structure 

First, we read Entry Point Table into a CM buffer. If no space 
available, we abort job. Then, we look at Program name table. If 
we find an External reference table, we read it into CM just at the 
end of EPT. ERT may be in CM or on allocatable device. 
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6.5.3 Other Routines Referenced 


8DLIBP 

CMPPGM 

BUFCAP 

RSFET 

READDIR 


Read Library pointer 
Transfer CM to CM by PP memory 
Compute buffer length 
Reset FET 

Read directory program 


12.7.6.6 READLIB 


6.6.1 Task Description 

Read Library programs into CM buffer. Address of a CM list of 
program numbers is in QFLAG. 


6.6.2 Subroutine Structure 


We read into PP the first of program number. We call GETPN to 
obtain the next program number. If zero the list is ended and 
we set the LOADERQ flag end of Library load. 

If non-zero, it is a program number. We get PNT entry after some 
verifications and if on an allocatable device, we enter a stack 
request. If core resident we make the transfer. 


6.6.3 Other Routines Referenced 


RDLIBP 

GETPN 

SYSTEM 

STKREQ 

WAIT 


Read library pointer 
Obtain next program number 
Search file SYSTEM in FNT 
Con:q>lete and enter stack request 
Walt a few milliseconds 


12.7.6.7 LODDIR 


6.7.1 Task Description 

Process Loader's directives. 
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6.7.2 Subroutine Structure 

We read the entire Loader's directive which has been detected by 
LOADESQ, into PP memory. This subroutine is exactly copied onto 
2LA overlay of GPSL. 


12.7.6.8 FHT 


6.8.1 Task Description 

Search FNT for a match on a seven characters name. 

6.8.2 Environment Description 

On entry the name is in direct cells D.FNT,.,D.FNT+4. If a match 
is found, exit with A register non-zero. If no match, exit with 
A = 0. 


6.8.3 Other Routines Referenced 


CMP 


Compare names. 


12.7.6.9 RSLCLD 


6.9.1 Task Description 

Search entry Point table for a name. 

6.9.2 Subroutine Structure 

The entry point table is searched for a name, the program name 
table is not searched for a CP relocatable program or overlay 
because it.has been done by LOQ. If match is found exit with 
A non-zero. 

6.9.3 Other Routines Referenced 

RDLIBP Read Library pointer 

CMP Compare names 
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12-7-6-10 CMPPCM 


6-10*1 Task Description 

Transfer CM to CM by PP memory. 

6.10.2 Environment Description 


On entry, we must find in direct cells FWE and FWR + 1 the FWA of 
the input area from CM, in LWR, LWR + 1, LWA + 1 of the same area. 
Buffer parameters are in FET- 

Exit with A = 0, if end of transfer- Exit with A negative if buffer 
full (FWR, FWRfl are reset to correct values) IN is updated in FET- 


6-10.3 Other Routines Referenced 

BUFCAP Compute buffer length 

INTOLM Compute buffer length from IN to LIMIT. 

12-7.6.11 STKREQ 


6-11-1 Task Description 

Complete (set pointers and flags) and enter request in stack- 


6-11-2 Environment Description 

On entry, we find in lower 12 bits of A the flags for the request 
(FNT or not)- In upper 6 bits of A, we find the request order 
(normal read, non-stop read or PP read). 

12.7.6.12 SYSTEM 


6.12.1 Task Description 

Search file name SYSTEM or SSSSSSU in FNT and wait for not busy- 
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6*12»2 Subroutine Structure 


Firsts we check the PKT entry* If an EDITLIB has been made on 
this program^ we search the common file SSSSSSU* Xf not, we search 
the common file SYSTEM* If wo do not find this file, we display the 
message LDQ SYSTM WAIT and we try again* When this file Is not 
busy, we read FST entry* 


12,7*6*13 GETFN 


6.13.1 Task Description 

This routine returns the next program number from the LOADERQ’s list- 


6.13.2 Subroutine Structure 

We check a flag to know if we have to read a new word- Then, we 
use the last index number and we extract from a CM word the first, 
second, third or last 15 bits. On exit this 15 bits number is in 
A, right-justified. 


12.7.6,14 READDIR 


6.14,1 Task Description 

Read Into CM buffer a directory program. 


6.14,2 Subroutine Structure 


We have to read a directory program into a CM buffer; if allocatable 
device resident we enter a stack request, if CM resident we read into 
buffer by GMPPCM routine* If the buffer is too small, we do not set 
FET status to EOR- 
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12.7.7.0 LOADERQ 


12,7.7.0.1 Task Description 

LOADERQ is a CP program whick is loaded in the user^s CM area 
by the PP program LOQ. 

There are two main tasks which are accomplished by LOADERQ- 

a. First task is to read Into the user's CM area the user's programs 
and. the library programs- For this reading, LOADERQ requests the 
PP programs CIO or LDQ- The tables programs are read into a cir¬ 
cular buffer, LOADERQ processes the TEXT table by relocating the 
addresses; the XFER, LINK, ENTRY, REPLICATION and FILL tables are 
just linked and put in CM with the same structure as the GPSL one; 
the '^Instant Replication’^ tables are processed immediately. For 
each PIDL table, LOADERQ creates a new entry in the tables of 
of Loader and assigns the CM length to each labelled common block- 
An absolute overlay table (code 50) is processed as an absolute 
overlay 0,0, it is written in CM and the control is transferred 
to this overly. In case of Loader Directive LOADERQ assembles 
it in a buffer and requests LDQ for processcing; 

b* The second task is executed after the physical reading is 
finished- In this part, FILL tables, LINK TABLES and REEL 
tables are processed. Except for library Loading, all sequences 
and subroutines used for this second task are the GPSL ones. 

c. For the other tasks, LOADERQ needs some '^relocatable overlays" 
of CP Loader: 

MAPOUT to make mapping if it is required; 

LOADERS to process the requests to loader with segmentation 

LOADERV in case of overlay generation to write out absolute 

overlays 

LOADERS to process fatal errors. 

d. LOADERQ initiates the job's process if it is required (control 
card type). 


12.7.7.0.2 Qrganlgation and flow analysis 

LOADERQ can be entered at the following pointsi 

LOADER in case of user call, by using a return jump; 

LOADERl In case of user call if the checksum does not agree 

LOADERQ requests LOQ to reload LOADERQ, and LOQ returns 
to LOADERl after loading; 

L0ADER2 in control card mode, if LOADERQ has just been loaded; 
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LOADER3 In control card modCj if LOQ has detected that 
LOADERQ was already in CM; 

L0ADER4 in control card mode and overlay generation 

(overlays on different files) if LOQ has detected 
that LOADEEQ was already in CM. 

The first binary table of LOADEHQ program is an absolute format table 
(code 50); this table is a short CP program, called CPLOAD which 
has been assembled in absolute mode* This routine relocates LOADERQ 
and puts it relocated into the highest addresses of the user^s CM 
area* 

In order to accomplish this relocation, CPLOAD relocates itself 
first, then it links back all tables which constitute LOADERQ and 
then it relocates and puts them at the right place into CM- Before 
exit to LOADERl or L0ADER2, CPLOAD builds a 12-bits checksum of the 
LOADER checksum routine. 

After checksumming, jump to CARDCAL Is made In case of control card 
mode, and jump to CALL in user call mode. 

a« Control card mode 


If there is no- user^s programs to be read (NOGO card or E^CECUTE 
card) jmp is made to CONTROL and the loading process is ended 
by the same way as the standard GPSL (except for library loading)- 
Otheirwise, jump to FNCAL is made. Then physical reading of the 
file is initiated. 

In any case, in control card mode, high speed read function is 
used first, and it is kept if there is not loader directive. 

If a loader directive is found, LDQ PP program is requested to 
reset the FST of the file and then normal read function will be 
used by calling CIO- 

In any case, if the file to be loaded is on a non allocatable 
device, normal read function is used with CIO. 

In normal loading mode (6o loader directive) the CN code of each 
table is looked at and the appropriate process is executed. 

The physical loading process goes on until End of File except 
If an absolute overlay 0,0 is detected, in this case overlay 
is loaded and entered at the entry address. Otherwise, when the 
file is loaded, CONTROL routine of standard GPSL is entered. 

If a loader directive Is detected, LOADERQ assembles it in a 
buffer and calls LDQ PP program to process it. 
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In case of segpientation, all loader directives are processed 
and when the first binary table is detected, the file is 
backspaced and CONTROL routine is enteredj segmentation mode 
is selected by this routine and the ’*relocatable overlay 
LOADERS is loaded and entered in order to make a call for 
segment zero* 

In case of overlay loader directive, the loading process of the 
overlay*s file is stopped at each loader directive (and at EOF). 
Each time, CONTROL routine is entered,this routine detects the 
overlay generation process, it loads the ^'relocatable over¬ 
lay*^ LOADERV if it is not yet in CM and gives it the control 
in order to achieve the loading process and to write out the 
last overlay if it is necessary- 

After each overlay, LOADERV calls REQUEST subroutine to load 
the next overlay. 

b. User call mode 

Routine CALL is entered in case of user call. First, the flags 
of the usex*s call are processed- For segmentation mode,the 
control is transferred to LOADERS, ^^relocatable overlay*^ of 
Loader. This overlay is already loaded but checksumming is made 
first* 

For - non-segmented loads, the routine GALLOK is entered* This 
routine calls subroutine REQUEST by executing a return jun^?, 
in order to read the file* 

This subroutine looks at the flags-bits of the call, high speed 
read mode is initiated exept if an SL list address is specified 
or in case of library loading mode. Then jump to ETIChAL is made 
as for control card mode. When physical loading is completed, 
REQUEST returns to CALLOK. 

c. Library loading 

Each time library loading is required, FILLREQ (or SA31SF2) 
routine is entered. This routine looks for the unsatisfied 
external references and builds the list of the entry points. 

Once this list is filled, FILLREQ call LDQ to get the Entry 
Point table of the Library directory and it sets up the list 
of the numbers of the library programs which are required* 

Then if there is an External Reference Table and in normal 
loading mode (no segment no overlay), this routine processes 
the ERT to set up the list of all library programs which are 
required and the subroutine REQUEST is entered to load these 
programs. 


Febr. 1969 


12-100 





SCOPE 


12.7.7-0.3 Subroutines 

We describe only the specific routines of CP LOiy)ER, see GPSL 
maintenance documentation for the others- 


Open Subroutine s 


CARDCAL 

Initiate processing of load card 

7.1 

FNCAL 

Initiate reading of file 

7.2 

QPTHl 

Look at the CN code and initiate 
appropriate process 

7.3 

SLPROC 

Process SL list 

7.4 

UECALPR 

Initiate library loading 

7.5 

QPPIDLT 

Process PIDL table 

7.6 

QPTEXTT 

Process Text table 

7.7 

QPSEPLT 

Process REPL table 

7.8 

QPXFERT 

Process XFER table 

7.9 

QPOVLT 

Process absolute overlay 

7.10 

QLOADIR 

Process Loader directive 

7.11 

QPALLT 

Process other tables (LINK, ENTRY, FILL) 

7.12 

CMJUMP 

Complete physical loading 

7.13 

ENOVSG 

Enter an overlay of loader for overlay 
generation or segmentation 

7.14 

USCLIB 

Process user call with library bit (U) 

7.15 

REDUCE 

Reduce field length at the end of loading 

7.16 

SKPLIB 

Skip one library program 

7.51 

Closed Subroutines 


QINITI 

Save some registers 

7.17 

QSINITI 

Initializations 

7.18 

REQUEST 

Read file or library, in case of user call 

7.19 

PUTREQ 

Write a PP call in KA+1 

7.20 

SENDRCL 

Make CP recall request 

7.21 

SCIO 

Call CIO 

7.22 

NORREAD 

Normal read routine 

7.23 

HSPREAD 

High speed read routine 

7.24 

LIBREAD 

Read library routine 

7.25 
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REWIND 

Rewind a file 

7.26 

BACKSPC 

Backspace a file 

7.27 

SKIPFB 

Skip forward one record 

7.28 

RESETRD 

Reset normal read mode 

7.29 

RESFST 

Reset FST 

7.30 

QSSGOTB 

Store TBLNEXT in CM 

7.31 

RSETBUF 

Reset buffer parameters 

7.32 

QSGOW 

Fetch one word from the buffer 

7.33 

QSINCPL 

Make room in CM for the programs or common 
blocks list 

7.34 

CHKPAR 

Parity check 

7.35 

ERRLDQ 

LDQ error check 

7.36 

SEAPIDL 

Look for a program in the programs list 

7*37 

SETOUTL 

Set limit of OUT 

7.38 

LOOVLO 

Load an overlay of loader 

7.39 

RLOVLOD 

Relocate an overlay of loader 

7.40 

MAP 

Gall MAPOtJT overlay for mapping 

7.41 

TBLSET 

Set a relocation bases table 

7.42 

ROVL 

Read an absolute overlay 

7.43 

SETIN 

Initialize flags and parameters 

7.44 

MOVECM 

Move a part of CM in user*s field length 

7.45 

ROOMCM 

Make room in user^s field length to load 
an overlay of loader 

7.46 

WAITFF 

Send recall request until a file is not busy 

7.47 

FILLREQ 

Perform library loading 

7.48 

ERROR 

To process fatal and non fatal error 

7.50 
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12.7.7.1 GARDCAL 


7.1.1 Task Description 

This routine looks at the card call type and initiates the 
appropriate processing. 

7.1.2 Environment Description 

This routine is entered in control card mode Imme diately after 
checksuisming if this is not the first entry in LOADERQ. At the 
first entry in LOADERQ, subroutine SETIN is executed (CARDCALl) 
before GARDCAL is entered. Control cards type bits must be set in 
RA+67. 

7.1.3 Subroutine Structure 


First this subroutine makes some initializations by calling 
QSINITI and RSETBUF, then it saves the parameters (RA+2..,) 
into a CM area referenced PPPPPPP. Some flags are set for LDQ 
usage. In case of EXECUTE or NOGO card, we exit to CONTROL, 
otherwise file name is set in the FET and we exit to FNCAL to 
make physical loading. 


7.1.4 Other Routines Referenced 

QSINITI Initialize parameters and flags 

RSETBUF Initialize buffer parameters 

SHUFFLl Save parameters in PPPPPP 

12.7.7.2 FNCAL 


7.2.1 Task Description 

To initiate read file, to save the FST of the file, to set MAPBIT 
if this is a user program, and to set WRONGF flag to detect an 
empty file. 

7.2.2 Environment Description 

This routine Is entered in control card and user call mode. The 
read function code must be set in QFREAD before. 
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7.2.3 Subroutine Structure 

First this routine initiates the read function routine. When the 
read function is initiated, we return to FNCAL3, except in two cases: 

- we have to load a library routine, in this case we execute the 
subroutine FILLREQ; 

- the file is recorded on a non allocatable device, in this case 
return is to FNCAL4. 

This routine is entered in FNCALA, in overlay generation mode. 

When the read function is initiated, in case of user's programs, 
we exit to QPTHl. 

7.2.4 Other Routines Referenced 

The read routine to be used (NORREAD or HSPSEAD). 

12.7.7.3 QPTHl 


7.3.1 Task Description 

To identify table and to initiate its processing. 

7.3.2 Environment Description 


CORNEXT must be in B7, TBLNEXT in B6, OUT in B5. If the circular 
buffer is not empty, OUT must indicate a table header or a loader 
directive. 


. 7.3.3 Subroutine Structure 

First this routine fetches one word from the buffer, and processes 
It as a header table. 

Word count is saved in B4, L in QLSAV, LR in QLRSAV. 

Then, we look at the QCNTBL (table of CN codes) and pick the address 
according to the CN code and the process of the table is initiated. 
The header table is saved in X5 for later usage. 

7.3-4 Other Routines Referenced 

QSGOW To read one word from the buffer and to save it in X2 

QSSCOTB To save CORNEXT and TBLNEXT in CM 
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12,7>7,4 SLPROC 


7.4-1 Task Description 

To compare the user^s list against the list of the loaded 
programs in order to determine which programs must be loaded. 

7.4.2 Environment Description 

This routine is executed in user call mode only^ if there is 
an SL list address. 

7.4.3 Subroutine Structure 


This routine looks at the user’s List and at the program’s list 
in order to determine which programs must be loaded. For each 
program already loaded^ the SL list is updated with its address. 

At the end, SLCOUKT indicates the number of programs to be loaded* 
REWCNT is set for search file with end-around. We exit to FNGAL 
after normal read function is set- 


12*7.7.5 UECALPR 


7-5.1 Task Description 

To initiate the library loading process. 

7.5.2 Environment Description 

GORNEXT and TBLNEXT must be set in B7 and B6- The list of the 
programs number to be loaded is set up in PNTABL, ended by a 
zero word. 

7.5.3 Subroutine Structure 

The library read function (LIBREAD) is set in QFREAD. Then 
GORNEXT, TBLNEXT are saved in CM and LDQ Is called to initiate 
the library read process. Exit is to QPTHl. 

7.5.4 Other Routines Referenced 


QSSCOTB To save GORNEXT, TBLNEXT 

PUTREQ To call LDQ 
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12.7>7.6 QPPIDLT 


7.6.1 Task Description 

To process a PIDL table of a routine. To initiate processing for 
a program^ including the Initiation of a new table subgroup 
within the CM LOADER tables. COMMON allocation, if any, are 
saved in the LOADER tables and assigned storage addresses. 


7.6.2 Environment Description 


CORNEXT 

TBLNEXT 

WORDGOUNT 


must be set in B7 
in B6 
in B4 


7,6.3 Subroutine Structure 


There is an error exit if absolute overlay flag is set* If the 
table is the first one of a file with section or segment process, 
the file is backspaced and we exit to GMJUMP after setting a 
loader directive skip^^ flag In order to skip later all loader 
directives on this file during this load* 

In user call mode with search file, PlDLSLl routine is entered; 
we look at the user*s table to determine if this program is to be 
loaded. If yes, we exit to QPIDL2 to load it, if not, we skip this 
routine and exit to QPIHl to process the next one* Before skipping 
the routine the status of the file is looked at. If EOF, the file 
is rewound unless it is an INPUT file or the file has been 
rewound once, in both cases, we exit to GMJUIO’. 

In any other case, PIDL table is processed. 

First, in library loading or in program call card mode, the 
program's list is looked at in order to determine if this program 
is already loaded; if yes, it is skipped and a non fatal message 
is written out in case of program call card. 

CORNEXT, relocation base, and address where to put the relocated 
text are updated* A new table subgroup is initiated within the CM 
loader tables, and the programs list is updated. Then common 
blocks are processed if any. For each common block, the common 
block list Is looked for. CM allocation Is made for each new 
labelled common block* For each labelled common block which are 
already in the list, the new length is checked and a non fatal 
message is written if the new length is greater than the old one. 
Then, SL list is updated with the program address if there is a SL 
list and the routine TBLSET is executed to set the table of the 
relocation bases to be used in text relocation. Exit to QPTHl to 
process next table* 
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7.6.4 Other Routines Referenced 


QSGOW 

SEAPIDL 

QSINCPL 

QSSCOTB 

BACKSPC 

SKIPFB 

REWIND 

TBLSET 


To fetch one word from the circular buffer 

To look at the program's list for programs already 
loaded 

To make room for program's or common lists if there is 
not enough 

To save CORNEXT and TBLNEXT in CM 
To backspace the file 
To skip one record 
To rewind the file 

To set up the relocation bases table 


12.7.7.7 qPTEXTT 


7.7.1 Task Description 

Table processor which relocates program text to program area of 
the users job area. Addresses are relocated as indicated by table 
relocations bits. 


7.7.2 Environment Description 

The relocation bases table must be set up in TABLET. 

L (Load address) is in QLSAV 

LR (Relocation of load address) is in QLRSAV 

Word count is in B4 

CORNEXT and TBLNEXT in B7 and B6 


7.7.3 Subroutine Structure 

First I the load address is relocated and some checking is made for 
the value of LR and the length of the table. The, we get the 
relocation control word, we save CORNEXT and TBLNEXT and the 
relocation loop (QRELOP) is entered. 

In this loop, we compute first the ntamber of words to be relocated. 
This number is the length of the text table or the number of words 
available in the circular buffer if the text table is not in the 
buffer in its entirety. Then these n words are relocated in a very 
efficient stack loop which performs the relocation at about 3 micro 
seconds/word, by using relocation bases set in TABLET. 

Then the relocation loop (QRELOP) is entered twice if there are 
still words of this table to be relocated. 
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1.k Other Routines Referenced 

QSGOW To get the relocation word 

QSSCOTB To store CORNEXT and TBLNEXT in CM 

SETOUTL To set limit of OUT 

Read program (NORREAD, HSPREAD or LIBREAD) to fill up the 
circular buffer. 

12.7.7.8 QPREPLT 


7.8.1 Task Description 

To put REPL table into the CM loader tables or to initiate immediately 
its processing, if this is an instant REPL table. 

7.8.2 Environment Description 

Word count in B4 
L in QLSAV. 

7.8.3 Subroutine Structure 


If L equal to zero, this is not an instant replication table, 
exit is to QPALLT to put this table in CM. 

If L is not equal to zero, we have an instant replication table, 
in this case, B4, B5, B6, B7 registers are saved and the subroutine 
INSTANT is executed to process this table. Exit is to QPTHl after 
all tables of this kind are processed. 


7.8.4 Other Subroutines Referenced 


QSGOW 

QSSCOTB 

INSTANT 

QPALLT 


To fetch one word 
To save CORNEXT and TBLNEXT 
To process the instant REPL table 
To put REPL tables in CM. 


12.7.7.9 QFXFERT 


7.9.1 Task Description 

To save last XFER table (FWA Loader-1) in FWA Loader-3 and to 
replace it by the new one in FWA Loader-1. 
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12.7.7.10 QPOVLT 


7.10.1 Task Description 

To load an absolute overlay OjO into the user's field length. 


7.10.2 Environment Description 

The overlay header must be in X5. 

7.10.3 Subroutine Structure 

First normal read mode is set if necessary. 

Then absolute overlay is loaded into the user's field length 
by using ROVL subroutine. 

In case of program call card or user call* exit is to the entry 
address of this overlay. 

In case of load card, exit is to QPTHl and the entire file is 
loaded. 

7.10.4 Other Routines Referenced 


RESETRD 

To 

set normal read mode 

ROVL 

To 

read one absolute overlay 

RSETBUT 

To 

reset buffer parameters 

QSSCOTB 

To 

store CORMEXT TBLNEXT in CM 

OLOADIR 




7.11.1 Task Description 


To assemble a loader directive into BUFLDR buffer and call LDQ 
for processing. 


7.11.2 Environment Description 

First word of Loader directive must be in X5. 
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7.11.3 Subroutine Structure 

First normal read mode is set if necessary. If the overlay generation 
flag is set, the file is backspaced and exit is to CMJUMP to 
complete the loading of this overlay. 

Otherwise, the loader directive is assembled into BUFIjDR buffer; 
then if the skip flag is set exit is made to QPTHl to process next 
table, if it is not set overlay loader directive flag or segment 
loader directive flag is set according to this loader directive and 
LDQ is called to process it. 

When this process is completed, we look at the "write out" bit in 
RArt-66 and if we have to write the overlay, exit is to CMJUMP after 
the file is backspaced. 

If "write out" flag is not set, exit is to QPTHl to process next 
table. 


7.11.4 Other Routines Referenced 


RESETRD 

BACKS PC 

QSGOW 

PUTREQ 

WAITFF 

ERRIDQ 


To set normal read mode 
To backspace the file 

To get one word from the circular buffer 
To call LDQ 

To Wait the loader directive process is finished 
To check the reply of LDQ. 


12.7.7.12 QPALLT 

7.12.1 Task Description 

To provide entries in CM LOADER tables fox LINK,REPL, FILL, 
ENTR tables. 


7.12.2 Environment Description 

This routine is entered by QPFILLT, QPHEPLT, QPLINKT, QPENTRT. The 
type of the table is set in B2. 


7.12.3 Subroutine Structure 

The tables subgroup of the program being loaded is looked at. Entry 
for this table is initiated in the pointers word if this is the first 
table of this kind and the table is written into the CM loader 
table. Exit is to QPTHl to process next table. 
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7.12.4 Other Routines Referenced 

QSGOW to fetch one word from the circular buffer. 


12.7.7.13 CMJUMP 


7.13.1 Task Description 

This routine is entered when the physical loading is achieved. 
CORNEXT, TBLNEXT and the loader directives flags are reset in CM. 
Exit is to CONTROL in case of control card mode. In user call mode, 
exit is to REQUEST after resetting some register (AO, B2, B4, B5, 

B6, B7). 


12.7.7.14 ENOVSG 


7.14.1 Task Description 

To load '*relocatable overlay** of loader (LOADERS or LOADERVj if 
necessary and exit to this overlay at a specified entry point. 


7.14.2 Environment Description 
Entry point in Bl. 

Length of the overlay (LOADSLH or LOADVLH) in B2. 


7.14.3 Subroutine Structure 

First this routine determines if the requested overlay is already 
loaded. If yes, the overlay is entered after checksumming for the 
overlay LOADERS. If not, or if the checksum of LOADERS fails, the 
requested overlay is loaded and then the overlay is entered. 


7,14.4 Other Routines Referenced 

ROOMCM To make room for the overlay 

LOOVLO To load the overlay 

RLOVLOD To relocate the overlay 

12.7.7.15 USGLIB 


7.15.1 Task Description 

To load programs library, the list of which is provided by user call. 
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7.15.2 Subroutine Structure 

Error exit Is made if there is no SL list. Otherwise, the list of 
the required programs is set up in a buffer of LOADERQ and subroutine 
FILLREQ is executed to load these programs. After this load, 
the user's list is updated with the addresses of these programs. 


12.7.7.16 REDUCE 


7.16.1 Task Description 

To release the field length which is not necessary for the exe 
cution of the program. 


7.16.2 Environment Description 

This routine is entered in normal load mode just before initiate 
the execution of the user's program, if the REDUCE flag is set. 


7.16.3 Subroutine Structure 

This subroutine determines the new value of the field length 
according to the blank common length if there is one. 

Then a short program is moved in the highest words used and 
entered. It sends a MEM call in RA+1, waits for the completion, 
and clears all Ai registers, except AO which includes the new 
field length. Control is transferred to the user's program. 


12.7.7.17 QIMITI 


7.17.1 Task Description 

To make some initializations in user call mode. 


7.17.2 Subroutine Structure 

This subroutine saves the following registers: AO, B2, B4, B5, 
B6, B7 and it calls QSINITI subroutine to initialize some 

parameters. 


12.7.7.18 QSINITI 


7,18.1 Task Description 

To make some initializations before physical loading. 
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7.18.2 Subroutine Structure 


First Loader directives flags are stored in STATFLAG for LDQ 
usages, COEMEXT is set in B7 and TBLNEXT in B6. 

The buffer parameters are initialized. Some CM words are cleared. 

Also, the common’s list pointer and the program's list pointer 
are adjusted according to the CM Loader pointer (TBLNEXT); it 
is necessary to do that in overlay generation or segmentation 
mode. 


12.7.7.19 REQUEST 


7.19.1 Task Description 

To Initiate physical loading requested by CP LOADER itself 
(library loading, SEGZERO loading, overlay generation or user 
call mode). 


7.19.2 Environment Description 

This subroutine is entered by return jump. Upon entry, the address 
of the request is in XI. The request has the following structure: 


File name, if any 

SL list 

address if any 


u 


FWA 


U = 1 if unsatisfied external call 

FWA = First word address where to begin load. 


7.19.3 Subroutine Structure 


First QINITI is executed for initialization. 

If FWA is not equal to zero, this value replaces COBNEXT. 

If U = 1, UECALPR is entered. 

If U = 0, and Lfn = 0, we are in overlay generation mode and 
exit is to FNCAL4, file name has been saved in OVLINFN. 

Otherwise exit is to FNCAL after process of SL list by SLPROC 
routine if there is one. 
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7.19.4 Other Subroutines Referenced 


QINITl 

Initialization 

QSSCOTB 

To store GORNEXT TBLNEXT 

RSETBUF 

To reset buffer parameters 

SLPROC 

To process SL list- 

PUTREQ 



This subroutine puts into RA + 1 the PP request which is in XI upon 
entry. 

12.7.7.21 SENDRCL 

Self explanatory. 

12.7.7.22 SCIQ 

This routine calls CIO. 

Upon entry, request function code is in X6. 

Exit is done when the request is completed (file not busy). 


12.7.7.23 NORREAD 


7.23.1 Task Description 

Fill up the circular buffer by using CIO. 

7.23.2 Environment Description 

Upon entry, return address is in B2. 


7.23.3 Subroutine Structure 


If the circular buffer is not empty, we' return immediately 
after setting limit of OUT. 

If the buffer is empty, the status of the file is looked at, 
exit is to EOF READ if status is EOF. If not EOF, CIO is called 
to fill the buffer and if the buffer is always empty after the 
completion of the request, exit is to EOFREAD, if not we return 
(ENDREAD). 
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7.23.4 Other Subroutines Referenced 

SCIO To call CIO 

SETOUTL To set limit of OUT 

CHKPAR To check parity bit in the reply. 

12.7.7.24 HSPREAD 

7.24.1 Task Description 

To control high speed function in progress and to call LDQ for 
high speed read function if necessary. 

7-24.2 Environment Description 

Upon entry, return address is in B2. 


7.24.3 Subroutine Structure 

First, the subroutine looks at the status; if the file is 
busy, a high speed read function is in progress so we wait 
a little more than one sector read time. After that, if the 
buffer is always empty, probably we have lost one disk revolution, 
we send an RCL request; if the buffer is full, we return. 


If the file is not busy and the buffer Is not empty return is 
executed. 

Exit is to EOFREAD if the buffer is empty and the file status 
is EOF. 

Otherwise, LDQ is called to initiate a high speed read. We wait 
until RA+1 is cleared and then we return if the buffer is not 
empty. If the buffer Is always empty, we wait the end of the 
request. There is no timing problem because LDQ program requests 
MTR to recall CP only if one sector has been read. 

If the buffer is empty, there are two possibilities: 

- The reply LDQ byte (6th word of FET) indicates that we have to 
load a library program, in this case the program name is put in 
a list ended by zero and FILLREQ subroutine is executed to load 
this routine, then exit is to CONTROL unless we are in user - 
c^ll mode, in this case a non fatal bxt is set in the error 
reply and we return to the user's program. 

The device of the file is non allocatable, in this case exit is 
to FNCAL4. 
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Whatever, the read function which is used the process of EOF 

status is the.same (EOFREAD): there are three ways to exit: 

a- in absolute overlay mode exit is to P0VLT4 to initiate the 

execution of the overlay if it is required or to complete the 
load of the file. 

b. in case of search file exit is to SKTBIO if there are still 
programs to be loaded. 

c. in the other cases exit is to CMJUMP after setting end of 
load bit, achieve the physical leading process. 


7.24.4 Other Subroutines Referenced 


SENDRCL 

To 

send an RCL request 

CHKPAR 

To 

check parity 

PUTREQ 

To 

call LDQ 

WAITFF 

To 

wait the end of request 

RSETBUF 

To 

reset the buffer parameters. 

LIBREAD 




7.25.1 Task Description 

This subroutine controls the library read in progress. 


7.25.2 Environment Description 

Upon entry, return address is in B2. 


7.25.3 Subroutine Structure 

If the buffer is not empty, we check the error reply of LDQ, we 
set the new limit of out and we return. 

If the buffer is empty and the switch for library read completed 
is set, exit is to CMJUMP. 

Otherwise we wait one sector read time, and send RCL request until 
the buffer is not empty or the switch end of library read is set. 

When the buffer is full, we return after setting new limit of OUT. 
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7.25.4 Other Routines Referenced 

ERRLDQ To check LDQ reply 

SENDRCL 
SETOUTL 


12.7.7.26 REWIND 


12.7.7.27 

BACKSPL 

12.7.7.28 

SKIPFE 

12.7.7.29 

RESETRD 

12.7.7.30 

RESFST 

12.7.7.31 

OSSCOTB 

12.7.7.32 

RSETBUF 


To set limit of OUT 


\ self explanatory 
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12.7.7.33 QSGOW 


7.33.1 Task Description 

To provide one word in X2. 

7.33.2 Environment Description 

Upon entry OUT is in B5, upon return the CM word is available 
in X2, in any case. 

7.33.3 Subroutine Structure 

First, if the buffer is empty, the read subroutine in usage 
(NORREAD, HSPREAD or LIBREAD) is called to fill the buffer. 

Then buffer parameters are updated and limit of OUT is set to 
the new value. Normal return is done with one word in X2, except 
in absolute overlay mode, if EOR or EOF; in this case, exit is 
to R0VL2 if EOR or to POVLT4 if EOF. 


12.7.7,34 

QSINGPL } 


12.7.7.35 

1 

V 

CHK.PAR f 

^ seIf explanatory 

12.7.7.36 

\ 

ERRLDQ 



This subroutine fetches the LDQ reply byte (6th word of the FET) if 
it is less than lOB,there is no error, just some flags if it is not 
null. 

If this byte is greater than 7 this value is the number of the error 
detected by LDQ, then LOADERE overlay will be entered to process this 
error. 


12.7.7.37 SEAFIDL 


7.37,1 Task Description 

This subroutine looks at the programs list to determine if a 
specified program is already loaded. 
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7,37-2 Environment Description 

Upon entry the prograni name is in XO- 

Upon exit, B2 is equal to zero on match and B2 is not equal to 
Eero if no match, 

12.7,7.38 SETOUTL 

7.39.1 Task Description 

To load an overlay of CPLOADER (LOADERS, LOADERE, LOADERV or 
HAPOUT). 

7.39.2 Environment Description 

Upon entry first word address where to load is in B2 and last 

word address in B3- The name of the overlay is in XI left justified- 

Upon exit, B2 is equal to zero If the program is not read in its 
entirety, due to the lack of room. 


7,39*3 Other Subroutines Referenced 

PUTREQ To call LDQ 

ERRLDQl To check the LDQ reply- 

12,7.7.40 RLOVLOD 


7,40.1 Task Description 

To relocate an overlay of CP LOADER- 


7, 40 -2 Environment Description 

Upon entry, the program to be relocated is stored in CM from SOUT 
to SIN; EVA where to put relocated program is in B2* 


7,40,3 Subroutine Structure 

Eirst, TBLSET routine is executed to set up the relocation bases 
table. Then the relocation loop is entered (RLOVLOP), Each TEXT 
table Is relocated by executing the same stock loop as the one of 
QPEXTT routine; all other tables are skipped- 
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12.7.7.41 map 


7.41.1 Task Description 


To load the overlay MAPOUT and to initiate its execution for 
mapping. 


7.41.2 Subroutine Structure 

The overlay MAPOUT is loaded in t;he biggest area: from CORNEXT to 
TBLNEXT, dr in the circular buffer. Then it is relocated into the 
circular buffer, and entered to its first word address. If there is 
not enough room, a non fatal diagnostic is given and the loading 
process is resumed. 


7.41.3 Other Routines Referenced 
LOOVLO, E5L0VL0D. 

12.7.7.42 TBLSET 


7.42,1 Task Description 

To set up the relocation bases tables- 


7.42.2 Subroutine Structure 

Upon entry the relocation base is stored in QRELBAS. This table 
includes all relocation bases (positive and negative) for each 
position of the addresses in a CM word. 


12.7.7.43 ROVL 


7.43.1 Task Description 

To load into the user's field length an aboslute overlay. 


7.43,2 Subroutine Structure 

Upon entry, overlay header must be in X5. This overlay is loaded 
starting from FWA as indicated in the header or from FWA user if 
there is one. 


12.7.7.44 SETIH - self explanatory. 
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12.7.7.45 MOVECM 


7.45.1 Task Description 

To move a part of the user's area in order to load an overlay of 
loader or to set up the programs list. 


7.45.2 Environment Description 

Upon entry FWA and LWA of the area to be moved are in B6 and B2. 
The size of the moving is in XI. 

7.45.3 Subroutine Structure 

First, the area is moved. Then all pointers which must be changed 
due to this move, are updated. 


12.7.7.46 ROOMCM 


12.7.7.47 

WAITFP 

12.7.7.48 

FILLREQ 


self explanatory 


7.48.1 Task Description 

To load a list of library programs. 


7.48.2 Environment Description 

Upon entry the list of the programs name is set up in LIPRLl and 
B6 points to the last name of the list. 


7.48.3 Subroutine Structure 


First, the list is ended by a zero word and a short FET is set up, 
using the space between CORMEXT and TBLNEXT as a circular buffer. 

Then UDQ is called to read the Entry Points Table and the External 
Reference Table of the directory. If we have not enough room in CM, 
a fatal error message is issued. The Entry point table is always 
CM resident; the External Reference Table can be CM or disk resident. 
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Then, each entry point In the list of the library programs 
is replaced with the program number, read in the entry point 
table; then this list is shrunk so that all duplicated program 
numbers are removed. 

The External Reference Table is processed only in normal load mode 
if this table is present in the directory; otherwise, the library 
loading needs several iterations. 

The E.R.T. process is the following: 

each program number in the list gives entry to the E.R.T.; 
consequently for each program number we get the list of the other 
program.number which are referenced as external. The programs numbers 
which are not yet in the list, are set at the end of the list. 

We repeat this process until we get the end of the list. 

After the list of programs numbers is set up into the circular 
buffer, this list Is shrunk (4 numbers per word) in the table 
PNTBL and LDQ is called to load these library programs. 


12.7.7.50 ERROR 


7.50.1 Task Description 

To process any error (fatal or nonfatal) detected by any 
module of CP Loader. 


7.50.2 Environment Description 

Upon entry B1 equal zero if there is fatal error. 

In case of non fatal error the address of the message must be in X6. 

In case of fatal error the error number must be in X6, user call 
flag must be in LOADERE+2, LOADERE+3,is-null or contains the address 
of the card to be displayed, LOADERE+4 contains the name of the 
program which is being processed. 


7.50.3 Subroutine Structure 

If this is non fatal error, MSG is called in order to write in 
the dayfile the specified message. 

Then return is done after the message Is processed (automatic recall). 
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If this Is a fatal error, the module LOADERE is loaded starting 
from BEGIHG or 100„ if there is not enough room (in that case 
LOADERE will never°return to user's program), and this module 
is entered by a jump. 

Checking is made in order to detect a fatal error occurring during 
a previous fatal error process. 


7.50.4 Error Diagnostics 

The list of the fatal diagnostic is given with the explanation 
of LOADERE module. 

However one fatal diagnostic is written by LOADERQ: 


SYSTEM ERROR IN ERROR PROCESS 

Usually this is a system error in CP Loader. However this diagnostic 
can appear if a parity error is detected during the reading of 
LOADERE, also if the LOADERE module is not in the library. Job 
is aborted after this message is sent. 


Non fatal diagnostics! 

- WARNING BLANK COMMON GREATER THAN PREVIOUS DECL 

If blank coranon has been previously established in a set of 
programs (SEGMENT, OVERLAY or a file loaded as the result of 
a control card) all subsequent references must not be greater 
than that which has been allocated. This is a warning only 
and does not abort the job, however none of the references to 
blank common are truncated, so it is quite possible for a 
program to destroy itself, if the caution is not needed. 

- BLANK COMMON EXCEEDS AVAILABLE CORE, TRUNCATED 

During blank common allocation, no length will be established 
which would exceed FL or overlap the 20 words residence set 
aside for the LOADER. No reference is truncated just the 
allocation for core map purposes. 


- SOURCE IS ZERO REPL 

If no address is furnished for the source stream to be fetched 
from, this warning is flagged. The source stream is than set to 
location RA+l (which usually contains zero) and replication 
Initiated. 


- REPLICATION EXCEEDS AVAILABLE CORE 

During the replication process each putaway is checked to see 

it does not destroy the LOADER or its tables. If this should 
occur, the replication table processing is terminated but loading 
and execution are continued. 
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- MULTIPLY DEFINED ROUTINE XXXXXXX 

Routine XXXXXXX has been already loaded, CP Loader gives this 
warning and skips it. 

- XXXXXXX 

TRUNCATED LABELLED COMMON BLOCK CCCCCC 

The common block CCCCCC is declared in the routine XXXXXXX with 
a length greater than previous declaration. The previous length 
is kept, all subsequent references must not be greater than this 
previous length. 

- FIELD LENGTH TOO SMALL FOR MAPPING 

There is not enough room to execute mapping function. The 
requested map is not put out and the loading process goes on 
as usual. 

lOOOOo CM words should be sufficient to permit mapping. 

O 

- LEVELS NOT PERMITTED IN STANDAMJ CALL 

If the s and v bits are not on in the user call, it is inter¬ 
preted as a "normal load". If 11 and 12 are non-zero, it is 
possible that the call was intended as an OVERLAY or SEGMENT 
call but the appropriate bit is missing. This warning is put 
out, and processing continues as if a "normal" load. 

- SEGMENT CALL, BUT NO SEGZERO PRESENT 

This is the result of a user call for a segment load. If it 
is accomplished from a NORMAL or OVERLAY program, it is impossible 
to establish the necessary delinking point, since certain pointers 
are established for all segment loading during the initial loading 
of segzero. This is probably the result of an erroneous setting 
of the s bit. 

- SL LIST EMPTY, FATAL ERROR 

This is the result of a user call containing an SL pointer which 
gives an address at which there is a zero word (signifying a 
vacuous selective load). It would be unusual for a programmer 
to incur the overhead for such a call when there are cleaner 
ways, thus this condition is assumed to be an error, and a fatal 
error bit is returned in the user reply. 

- REQUESTED SEGMENT INCOMPLETE 

This comment results from a user call. Please note , that this 
message does not result from an inability to satisfy all externals, 
but instead arises when all the programs explicitly requested 
cannot he located. 
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12.7.7.51 SKPLIB 


7.51.1 Task Description 

To skip one library program. 


7.51.2 Environment Description 

B4 contains the number of CM words which are to be skipped on 
the table being processed. 


7.51.3 Subroutine Structure 


All tables are skipped in the buffer table by table and word 
by word, until a PIDL table is detected. Exit is to QPTHST 
to process the new program. 
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12.7,8.0 LOADERS 


12.7-8*0.1 Task Description 

LOADERS is a module of CPLOADER which is used in segmentation 
mode* 

When necessary^ it is loaded into the user^s field length bet¬ 
ween the loader tables and the circular buffer (see 4*1). 

Its task is to process the segment loading of SEG2ER0 segments 
as a result of a loader coitrol card and also to process the 
segment loading of any segment and section as a result of a 
user Call with segmentation. 

All sequences and subroutines are exactly the same as the 
standard GPSL ones* 

The only changes are the two new subroutines- PUTREQ, CHECKLOOP, 
12.7,8.0*2 Organization 

LOADERS can be entered from LOADERQ at the following points: 


SEGCALL 

to load SECZERO as a result of a program call card 

SEGMENT 

to load SEGZERO 

SEGEND 

to process all loader tables as a result of NOGO 
card in segmentation mode 

USERSEG 

to load the sections or segments as required by 
the user 

Upon entry, 
entry point 

B1 register contains a switch to the appropriate 

* 

Returns to LOADERQ are at the following points: 

USRFATL 

in Case of fatal error 

OVLDONF 

in control card mode without execution 

CONT 

in control card mode 

aCPFLLl 

in user call mode 


The checksumming which is made for LOADERQ, does not check 
LOADERS; also a checks um ming has been implemented to check the 
validity of LOADERS in segmentation mode. The checksum of 
LOADERS is named CHKLODS- 
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Before entering to LOADERS, LOADERQ computes and compares the 
checksum GHKLODS if LOADERS is already loaded. 

Before returning to LOADERQ, LOADERS computes the new checksum. 

12.7.8.0.3 Subroutines 

There are only two new subroutines: 

PUTREQ 

This subroutine puts in RA+1 the PP request which Is in XI 
upon entry. 

GHKLOOP 

This subroutine builds into GHKLODS the checksum of LOADERS. 

See GPSL maintenance documentation for the other routines of 
LOADERS. 
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12.7.9,0 LOADERV 


12.7.9.0,1 Task Description 

LOADERV is a module of CPLOADER which is used in case of overlay 
generation. 

When necessary* it is loaded in the user^s field length between 
the loader tables and the circular buffer (see 4.1). 

Its task is to complete the overlay loading and to write out 
the generated overlays when it is necessary. 


12.7.9.0.2 OrRanizatlon 

All sequences and routines are exactly the same as the GPSL ones* 
except the following: 


An OPEN function has been added on the new file* in case of 
overlays on different files* 

LOADERV can be entered from LOADERQ at the following points: 


OFXCALL 

OVERLAY 

OVLGALL 

SETOLFG 

OVLNOGO 


in case of overlays on different files 
in case of load card with overlays 
in case of program call card with overlays 
in case of overlays on different files 
in case of NOGO card in overlays generation 


Upon entry, B1 contains a switch to the appropriate entry point- 
Returns to LOADERQ are at the following point: 


OVLDONF 


12.7.9.0.3 Subroutines 

There is only one new subroutine: PUTHEQ. Furthermore* routine 

OFXCALL has been modified. 

PUTREQ This routine sets into RA+1 the PP request which 

is in XI upon entry* 

OFXCALL This routine is entered only when the overlays are 

read on different files (several loader control cards). 
In this case, before loading of the overlays, the new 
file is opened and rewound by calling OPE and CIO. 
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All the other routines and subroutines of this module are 
exactly the same as the GPSL ones. 

See GPSL maintenance documentation of these other routines. 
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12.7.10,0 LOADERE 


12.7.10.0,1 Task Description 

LOADERE is a module of CPLOADER which is called in case of fatal 
error detection by PP program LDQ or by any other CP module of 
CPLOADER, 

LOADERE sends the appropriate diagnostics to the dayfile by 
calling MSG and the job is aborted in control card mode^ in 
some cases return is made to the user's program In user call mode. 


12-7,10.0.2 Organization 

When required, this module is loaded into the user^s field 
length, starting from the FIRST address of the circular buffer. 

Then it is entered by a jump to its first address. 

Upon entry some parameters are set in the registers: 

The message number is set in XI, 

LOADER entry word of LOADEKQ is set in X2 as a control card/ 
user call flag, 

- X3 is null or contains the address of a card image, the 
first twenty characters of which will be sent to the dayfile, 

X4 is null or contains the name of the program which is 
being processed* 

X5 is the library loading flag- 

B7 contains, in user call mode, the return address to LOADERQ. 

- B6 contains the FET address, 

A message number is assigned to each type of error. 

There are two sets of diagnostics: 

a. Message number less than 30B 

This class includes mainly the fatal diagnostics detected 
by a CF module of CPLOADER, during the loader tables 
processing; that includes also some system errors detected 
by the PF program LDQ. In this case, a single fatal diagnostic 
is written in the dayfile and the job is always aborted, 

b. Message numbers greater than 30B 

This class includes the fatal diagnostics which are detected 
by LOADERQ during the relocation of the text and the physical 
loading of a file; it includes also the fatal diagnostics 
which are detected by LDQ, during the loader directives pro- 
cessing- 
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12 - 


In this case, several messages are sent to the dayfile- 

First the following message: 

XXXX CALL LOADER FATAL ERROR 
Where XXXX is USER or CARD 

- Then the message LIBRARY LOADING is put out if the 
fatal error has happened during the loading of the 
library- 

- Third 

LAST PROGRAM NAME WHICH AS BEEN READ XXXXXXX 

Where XXXXXXX is the name of the last program which 
has been processed by CPLOADER* 

When this message is not written, that means the 
error is happened before any program has been read 
from the user ^ s file or from the library^ 

Fourth 

The appropriate diagnostic* 

- Fifth 

In some cases, mainly when the error has been de¬ 
tected in a loader directive, the first twenty 
characters of the card which are responsible for 
the error, are written in the dayfile. 

If one of these characters is not in display code, 
the first then characters are converted in octal and 
written in the dayfile- 

Job is aborted or return is made to the user exception case 
of Field Length too small- 


Subroutines 




ERROR 

To 

send a message to the dayfile 

10-1 

PUTREQ 

To 

set a request into RA+1 

10-2 

CHKDIS 

To check the characters in a word if they 
are in display code 

10-3 
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12,7-10-1 ERROR 


This subroutine sends the message, the address of which is set 
in X6 upon entry- 

MSG is called with automatic recall- 
Return is made after the message is sent* 

Other routine referenced: PUTREQ 


12-7.10,2 PUTREQ 


This routine sets into RA+1 the PR request which is in 
XI upon entry, return is made when RA+1 is cleared- 


12,7.10,3 CHKDIS 

This routine checks if all the characters in a word are 
in display code- Word to be checked is in X2 upon entry. 

Exit: X6 — 0 if one character at least is not in display 
code 

X6 # 0 all characters are display, the word is in X6* 

12.7*10.4 CP LOADER FATAL ERROR MESSAGES 


12*7*10,4.1 Message Numbers less than 30B 

1* OVERLAY CALL FROM RELOCATABLE 

A relocatable program has made a user call for an OVERLAY 
load. This is one of the new redundancy checks made to 
validate user call. This mode of operation is illegal, 
since once OVERLAY loading is initiated, control is taken 
away from the user call and returned to the called overlay. 
It is possible to accomplish the same activity, if the file 
named in the user call contains all absolute overlays- 
This will trigger, absolute mode, and if OVERLAY 0,0 has 
been called for, control will return to the user call. 

2, LOADER TABLES GARBAGE, OR OVERLAY SEQ ERROR 

LOADER tables are threaded in a list below tie LOADER in 
CM- If these tables are destroyed by a user program (in 
normal mode only), the THREAD routine will be unable to 
cope with the situation, the abova message will be output, 
and the job aborted- If an attempt is made to generate a 
secondary overlay, without first having generated its 
corresponding primary overlay (or zero level) the THREAD 
routine will have the same difficulty, and this message will 
result - 
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4. FIELD LENGTH TOO SMALL FOR ENTIOf POINT TABLE 

In order to load the library programs whlah are needed, 

CP LOADER calls LDQ to read Into the user's field length. 
Entry Point Table and External Reference Table. 

If there Is just enough room for Entry Point Table, the 
library loading is complete without the ERT usage, in 
this case there is only a warning , which is written on 
the second line of the MAP: ERT HAS NOT BEEN USED. 

If there is not enough room to read Entry Point Table, 

CP LOADER cannot complete the library loading, the 
above message is sent to the dayfile and the job is 
aborted. 

5. SYSTEM ERROR IN LOADER -- HELP — CALL CDC 

This Is explanatory. LOADER has been designed to 
"FAIL SAFE", that is all communications with the 
gysteni Er6 checked out. end sdiCed in sonie n^nner* 

If one of the Interfaces degenerates or a new "bug" 
appears in LOADER, the communication checking can 
result in this error comment. 

6. NO TRANSFER ADDRESS 

In case of program call card or EXECUTE card, CP Loader 
has to give control to the user's program when the 
loading is completed; if CP Loader does not find any 
XFER table within the programs which have been loaded, 

CP Loader cannot give control, the above message is 
written into the dayfile and the job is aborted. 

7. SEGZERO INCOMPLETE, JOB ABORTED 

If all of the programs specified on the SEGZERD card, 
cannot be found on the input file, this error message 
results and the job is aborted. Please note the dis¬ 
tinction between the necessity for finding all programs 
explicitly called for, and the possibility that not all 
external references from these programs can be satisfied. 
In the latter case no error comment is made, since this 
is a normal condition for a segmented job. 

10. SEGMENT CALL NOT IN SEGMENT MODE 

This is the result of a user call for segment load, 
when it is accomplished from a NORMAL program. This 
is probably the result of an erroneous setting of the 
s bit. 
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11. FIELD LENGTH NOT SUFFICIENT FOR OVERLAY GENERATION 

This is self explanatory. During OVERLAY generation 
room must be allocated from the main LOADER of about 
5400„ locations and all loader tables for a given 
core^map. During OVERLAY execution a great deal less 
core is required. 

12. BAD OVERLAY FILE STRUCTURE 

This error is detected by LOADERQ in overlay generation 
mode when the format of the overlay file is bad; speci¬ 
fically there are two consecutive overlay loader direc¬ 
tives. 

13. OVERLAY GENERATION AND SEGMENTATION IN THE SAME LOAD 

Loading of segnents and overlays generation is mutually 
exclusive. This indicates that LOADERQ has to load the 
CP module for overlays (or segmentation) and the other 
module is already loaded. 

12. NO ENTRY MATCHES XFER 

When CP loader has found the entry point name to 
give it control, all available entries in the 
LOADER table are searched. If one matching entry 
cannot be found, this message is put out and the 
job is aborted, if this was the result of an EXECUTE 
card or PROGRAM CALL card. In user call mode with segmen¬ 
tation, the non-fatal error bit is returned to the 
user. 

13. PARITY ERROR, ABORT 

Self explanatory, a parity error has been detected 
by CIO or LDQ. 

14. SYSTEM ERROR, MODULE OF LOADER NOT FOUND 

LOADERQ calls LDQ to load a module of CP loader: 

LOADERV, LOADERS, LOADERS, MAPOUT. If the requested 
module is not found in the directory, the above diag¬ 
nostic is put out and the job is aborted; either one 
of these modules is not in the library or there is a 
bug in CP loader. 

15. SYSTEM ERROR IN LOADER, BAD FST 

In some cases, LOADERQ calls LDQ to reset the FST of 
the file being loaded. Before resetting the FST, LDQ 
checks the new FST and if it is bad, the above message 
is written. Normally this is an error of CP loader. 
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12.7.10^4.2 MessaRe numbers greater than 30B 
36. BAD BINARY DECK 

This message is produced by LOADERQ. When LOADERQ 
has found a bad PIDL table (too many common blocks) 
or a bad REPL table, the above looessage is put out. 

41. CANNOT FIND FILE NAME 

This error is detected by LDQ when the file to be 
loaded is not found in the FNT and the name.is not 
in the directory. 

This message is followed by the illegal name. 

42. FIELD LENGTH TOO SMALL 

This error message is produced when the field length 
for the user^s program is too small (the storage avai¬ 
lable between the starting point in the user area and 
the highest available loaction below the CP loader 
produced tables will not accomodate the user^s program). 

When this error is detected, the image being processed 
will not be placed in the dayfile (the image being 
processed is most likely a binary card, hence the 
display code representation of it would be meaningless). 

43. BAD TEXT 

This error message is produced when LDR determines 
that an illegal TEXT table entry is being processed: 
specifically, the relocation code is illegal, or the 
length of the table is not correct- 

When this error is detected, no image is produced 
following the error message. 

44. FILE INITIALLY POSITIONED WRONG 

This error message is produced when LOADERQ determines 
that an Input file is initially positioned at an 
end-of-file mark. 

When this error is detected, the image being processed 
(EOF) will not be sent to the dayfile. 

The remaining error messages will cause the image 
processed to be sent to the dayfile- 

45- FIELD GREATER THAN 80 CHARACTERS 

LOADERQ detects this error when a loader directive is 
Improperly implemented- 

Each time LOADERQ does not recognize a binary table, 
it tries to process it as a Loader directive, even if 
this is not a loader directive, so the above message 
(or the message number 54) can appear. 
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46- ONLY ONE PARAMETER 

This error message is produced when LDQ finds an overlay loader 
directive with only one level-parameter- 

47- INVALID CARD FORMAT 

LDQ produces this error comment, when it finds a ter¬ 
mination character prematurely implemented on a loader 
directive - 

50- INVALID LOADER DIRECTIVE 

This error message is produced when LDQ deterrnines that 
the first 7 characters on a loader directive card do not 
match one of the following 7 character words; SEOZERO, 

SECTION, SEGMENT, OVERLAY- 

51- SEG OR OVERLAY CARD PREV PROCESSED 

A SECTION card cannot be used in the overlay mode- 
When it is used in the segmentation mode it must 
precede all segment cards. 

When LDQ determines that the rules in the above 
paragraph have not been followed, the message 
is sent to the dayflle- 

52. SEGZERO HAS NOT BEEN PROCESSED 

LDQ produces this error message in two instances; 
when a SEGMENT card is being processed and the requi¬ 
red initial (SEGZERO) segment card has not yet been 
processed and, when a SEGZERO card is being processed 
and an OVERLAY card has been processed (segmenation 
and overlay modes may not be mixed)- 

53. SEGZERO SEGMENT NAMES DIFFER 

When there are too many parameters to fit on one 
SEGZERO loader directive card and additional SEGZERO 
card may be used. This card must define the segment 
with the same name. When the segment names differ 
for contiguous SEGZERO cards, error message 53 is 
sent to the dayfile. This Is determined by LDQ. 

54. NAME GREATER THAN 7 CHARACTERS 

When LDQ determines that a name used on a loader 
directive card is greater than 7 characters in length, 
this error message will be produced (see message 
number 45). 

55. NO TERMINATOR FOUND 

When LDQ determines that a loader directive card 
does not have a legal terminator • or ), this error 
message is sent to the dayfile. 
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56- INVALID CHARACTER 

This message is produced when LDQ finds a character 
on a loader directive card that is illegal- The legal 
characters are letters, numbers, parentheses, 
blanks, commas, and the period- 

57- SEGMENT OR SECTION CARD PROCESSED 

When LDQ is processing in the overlay mode and deter¬ 
mines that a SEGMENT or SECTION card has been processed, 
this error message is produced- 

60- 1st OVERLAY CARD HAS NO FILE NAME 

When LDQ determines that the first character of this 
first parameter on the Intial overlay card is not 
alphabetic, this error comment is produced- 

61- 1st OVERLAY CARD LACKS 0,0 

When the option to load the overlay a designated 
number of words above blank COMMON is used on a 
level zero overlay card, this error message is 
produced- LDQ detects this error* 

63. 1st PARAMETER MAY NOT EQUAL ZERO 

The zero level overlay may not have secondary over¬ 
lay levels, e-g-, 0,1 is illegal. LDQ detects this 
error- 

6A- ONLY 1 OVERLAY DESIGNATOR USED 

When LDQ determines that the user has not designated 
both a primary and secondary level on an OVERLAY card, 
this error message is produced- 

65. G OPTION NOT LAST PARAMETER 

When LDQ determines that a termination character does 
not follow the c option on an OVERLAY card, this error 
message is produced- 

66- TOO MANY CHARACTERS IN PARAMETER 

When LDQ determines that a level number on an OVERLAY 
card is greater than 77, this error message is produced- 

67- G OPTIONS DOES NOT START WITH C 

The option used on an overlay card which allows the 
user or designate how many words above blank COMMON 
the overlay should be loaded must have the alphabetic 
character as the first character. 

When LDQ determines that the 1st character is not 
this error message is produced. 
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70. DIGIT IS NOT OCTAL 

When LDQ determines that a digit used on an OVERLAY 
card is not octal, this error message is produced- 

71. TEXT HAS BEEN PROCESSED 

When LDQ is processing a SECTION card and determines 
that text has been previously processed, this error 
message will be produced. 

73- ERROR IN ABS- OVERLAY FILE FORMAT 

This error message is produced by LOADERQ when 
LOADERQ is in absolute overlay mode and determines 
that the identification code of the subroutine being 
processed is unequal to 50. 
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12.7,11,0 MAPOUT 


12.7,11,0,1 Task Description 

MAPOUT is the module of CP loader which executes all mapping 
functions. 

According to the user^s options, this module can write out 

- a full map that is the addresses of the programs and 

common blocks; also the addresses of all 
entry points with cross references and 
then the unsatisfied externals, 

* a partial map that is only the addresses of the programs 

and common blocks, also the unsatisfied 
externa Is- 

This option is set by control card: MAP(PART) 

- in user call mode, when partial map bit is set, a partial 
core map is given- 


12, 7, 11.0.2 Oraanization 

There are three MAP options which can be set by control card: 

MAP(OFF) No map in control card mode 

MAP(ON) ‘ Full map in control card mode 

MAP(PART) Partial map in control card mode and user 

call mode. 


One of these options is chosen as a default option, 

A mapping function will be executed in the following cases 
only: 

- In control card mode; if at least one user^s program ( a 

program not in library) has been 
loaded and if the option MAP(OFF) 
has not been set, partial MAP will 
be furnished if the option MAPCPART) 
has been selected, otherwise a full 
map is given. 

- In user call mode: if the no-map flag (bit m) is set 

to 0 in the user^s call, whatever 
the option MAP OFF or MAP ON, A 
partial MAP will be written out if 
the option MAP PART has been se¬ 
lected by control card (or in¬ 
stallation option). 
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SCOPE 


When a mapping function Is required, HAPOUT module Is loaded 
by LOADEPQ, into the circular buffer, starting from the FIRST 
address. It is entered by a return jump from LOADERQ to the 
first location of this module. Upon entry a user call flag 
(LOADER) is set in X7 and an external reference table usage 
flag is set in X6. 

The code of this module is exactly the same as the GPSL one 
except the following points: 

- automatic recall is always used to write out the MAP 

- before writing the core map, this module chooses the 
location of the circular buffers as the following: 

The circular buffer is located into the biggest area; 
into the user's field length, from GORNEXT to TELNEXT 
or into the rest of the circular buffer. 

If the length of this buffer Is less than one disk sector, 
a non fatal diagnostic is put out: 

FIELD LENGTH TOO SMALL FOR MAPPING 

and normal exit is taken. 

- An information has been added to the second line of the 
MAP, that is the following message: 

ERT HAS NOT BEEN USED 

In the following cases, the External Reference Table is 
never used to load the library programs: 

^ User Gall 
* Segmentation 
- Overlay generation 

In these cases the above message Is never written. 

Otherwise (normal loading in control card mode), EKT can be 
used; in this case, if ERT does not exist in the directory or 
the user’s field length isnot sufficient to read it, library 
loading is completed with out ERT and a flag is set in order 
to write the above message on the second line of the map- 
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HOW TO LIVE WITH THE SCOPE 2.0 LOADER 


In the course of testing LOADER and putting it into use with major programs 
such as RUN, ASCENT, PERT, and APT, a number of interesting facets of its 
flexibility were revealed. The following discussion is based on these discoveries, 
and is intended to aid programmers in the. use of LOADER, 

5.1 general philosophies of IMPT^EMENTATION 

The LOADER was implemented in the manner described previously to remain vdthin 
certain desirable constraints! 

A. Miniraizatioii of number of control cards. 

V 

B. Provide a basic similarity between system usage of CHIPPEWA 1.1 and SCOPE 
2.0, for normal jobs. 

C. Accomplish as much physical loading of material without the use of the CP, 
leaving the central processor tasks better suited to its computational power. 

D. Provide the programmer with substantial flexibility. 

E. Provide as much opportunity to establish an audit trail of loading and process¬ 
ing through dayfile warnings and core maps. 


The implication of these constraints is thiat the LOADER has taken on certain 
characteristics 3 which are not common to most loader systems: 


A. Many more options are provided by the user call than are available from 

control cards. In particular, the suppression of core maps and selective 
loading of named programs from a file can be accomplished only through user 
calls. ^ 

B. Many jobs can be run interchangeably under COS 1.1 and SCOPE 2.0. However, thxs 

may lead to inefficient use of the features of SCOPE 2.0 and corresponding 
increases in throughput time due to the overhead of the new system. 

C. Total elapsed time for job execution is longer under SCOPE 2.0 than under COS 1,1, 
although CP utilization is less than one per cent'greater. This is due to 

the use of a PPU for loading and relocation of program text. 

D. The system, as implemented has a great variety of options which offer consid¬ 
erable flexibility at the expense of increased complexity and a greater need 
to understand the inner vrorkings of the LOADER, When this flexibility is 
provided, the overall diagnostic capability of LOADF^R suffers, since redun¬ 
dancy and mutually exclusive options arc reduced. 

E The inclusion of core maps and extensive error comments impacts both speed 

and core size requirements. Over 20 per cent of the CP LOADER care requirement, 
and 25 per cent of its execution overhead are due to the core map routines 
and error diagnostics. A special overlay had to be constructed for the PPU 
routine LDR to handle the diagnostics of that program. 
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F Overall throughput of SCOPE 2,0 has been decreased somewhat depending on the 
mix of iobs. This is the result of high disk activity associated with the 
loading process, since not only the programs to be loaded must be retrieved 
from disk, but also LOADER, LOD, LDR, 2LB, 2LA, and 2LE. 


5*1.1 Features Not Da tailed in the ERg 

The following are options of loading or implications of various usages of 
LOADER not explicitly spelled out in the ERS. 


A, normal Loading 

A multiplicity of files may be loaded for one job and then executed. 
Assuming that program text has been loaded on files A, B, C, and D^ 
from the card redder or through compilation or assembly, a deck setup or 


LOAD (A) , 

LOAD (B) 

LOAD (C) 

LOAD (D) 

EXECUTE (A) 

would result in the load of aU programs from the four files. Note that 
all programs will be loaded even though some of these may have the same 
name. The only option which excludes this option would load only programs 
from File D not loaded from A, B, or C if it replaced the "LOAD (D) 
card in the deck. 

All programs in the four files will be linked together, since their loader 
tables are 'added on' to the ones previously loaded. Once the system 
encounters an EXECUTE, NOGO or program call card, all of these previously 
loaded LOADER tables are cleared; thus subsequent loading is treate 
as a brand new load. For example: 

LOAD (A) 

EXECUTE (START) 

; , LOAD (E) 

■ ' EXECUTE (NEXT) 

In this case, Program E will be loaded over the top of Program A, 
and they will not be linked to each other. 

When normal relocatable programs are loaded by control cards, the following 
actions always occur: 

1, A core map is produced. 

I 

2. All unsatisfied externals are filled in with out-of-bounds references. 
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3. Any external reference not satisfied, initiates an attempt to load 
library programs from th6 RSI> ox CLD. 

4. AIL files from which programs ate to be loaded are rewound, except 
the INPUT file. 

5. Programs may or may not be separated by end of records when there 
are more than one on a file* 

6. Loading proceeds to the end of file or to two consecutive end of 
record cards. 


Implications: 

1, If the user does not want to clutter up his printouts with the 
initial core map, he should re\d.nd the output file prior to 
proceeding with program execution. This cannot 

cards, since the core map is produced as the result of an EXECUTE, 
NOGO or program call card, not the LOAD card, 

2. Although a job running in NOEMAL load mode may execute "user calls" 
for additional loading, any loading that is accomplished xs subjec 
to the following constraints: 


a. 


b. 


Ail loader tables are added on to those in core already. Linking 
of externals in the new programs loaded will proceed from entry^ 
points in the new programs being loaded which have matching twin 
in the old programs will never be linked to, 

Since all externals which remained unsatisfied at the completion 

of loading the old programs have been filled in with 

bounds references, they no longer appear unsatisfied to LOADER. 

When operating in normal mode, LOADER will not DELINK 
out-of-bounds references. Thus, no externals from the old programs 
Will be linked to the new programs . The only way 
entry from tiie old programs into the new is to use the ENTRY 
address returned by'the LOADER in the reply to the user call. 

This address x'ill be to the entry which appeared on the END card 
of the last program loaded. If it is desired that other entp 
points be accessed from the old programs, a user call with t e 
"K" bit on (indicating a search) and the desired entry point 
name in bits 18-42 (Fn) can be executed. LOADER will search 
all of its tables to find the matching entry. If found, it will 
^returned in EA of the reply. This scheme would appear to have 
little utility; however, it provides the programmer with a handy 
barrier between programs which he wishes to reside in core, ut 
which may contain conflicts in names, labelled common allocation, 
or which need to be brought in dynamically. 
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3. In control card mode the uocr cannot control the linking of his 
programs to lilirary routines since a library search is always conducted. 
Thus, if the user vrishcs to test a routine which has a counterput 

on the library, he must load it into core first, put it and all 
referencing programs into a segment or user call load or ensure 
that its entry points are unique. 

4. All prograras on any file, not the INPUT file, will be loaded, since 
these files will be rewound. Only programs on the INPUT file from 
its present position to an end of file or double end of record mll^ 
be loaded. The user is thus cautioned to be cognizant of the position 
of the INPUT file at the point where the loading is requested. Most 
common mistakes have been to position the INPUT file at the data 
record (if there is one) or omitting the double end of records. 

LOADER will attempt to load the material encountered, and depending 

on the job, some type of error comment will be produced. Since 
when this data is encountered dirring the loading process it is in 
display code format, it is possible for LOADER to misinterpret ■vjhat 
is present, thus triggering unusual error coimnents. For example,^ 
let us say that the first data card in the deck contains a slash / 
in Column one, and that the programmer has erroneously omitted the 
second end of record which should divide program text from data in 
INPUT file. Tills slash will appear as a 50 left adjusted in a 
word and will be interpret^ed by LDR as an absolute overlay header. 

The appearance of this ’’header" triggers LDR into absolute overlay 
loading, but this routine detects that the file also has been loaded 
as a relocateable file, and since such a mixture is prohibited, the 
error comment "ERROR IN ABS OVERLAY FILE FORMAT-" will appear. 


Miscellaneous; 

1. The use of the FILL flag wh?n making user calls in normal loading 
mode can be quite valuable. If the FILL flag is left zero in the 
call, the programs which are loaded as a result of the call will 
retain all unsatisfied externals with a zero as the absolute external 
address, instead of an out of bounds value. Thus subsequently loaded 
programs will be linked up to these references. On the other hand, 
if the programmer wishes to "close off" these externals, he may set 
the FILL flag on, causing all such references to be filled with the 
out of bounds quantity. Subsequent prograras will not be linked up 

to these externals since in normal raode these external references 
are NOT DELINKED . 

I 

2, The R or reset bit in the user call is pi-ovided to permit the programmer 
to initiate a "brand new load" with a user call. This "brand new 
load," is accomplished by resetting the loader table pointers and 
CORENEXT so that loading commences as if no programs had been yet 
loaded. Ttiis means that program text will begin loading at lOOg and 
tables at FWALODR-4. Such a user, call must be established in core 
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outside the area vjUxch will be loaded into 'with either text or loader 
tables p The most common usage is to setup a ^'control routine vjhich 
is orlgined below 100 (but not in 6^-67 ), which calls for the 
required loading, then makes a user call for a search for a specific 
entry point (K bit on) and then return jumps to that entry. Ultimately 
control is returned to this "control" routine via the return jump 
"exit". Note that, since all pointers are reset before the load, no 
linking will take place between this "control" routine and the newly 
loaded material. Thus the (K search) and return jump are the major 
means of coramunicaCion. 


3. If the core space available for loading programs as a result of a 
user call or control card is insufficient for the loading of the 
specified programs, different error indications can arise. This 
situation arises when an LlJA is specified or TABLEWEXT is such that 
there isn't room for the complete load.starting at FWA or CORENEXT 
(when FWA is not specified). Three possible occasions arise: 

a) The program length on a PIDL table is greater than the available 
storage. 

b) In the absence of this length, TEXT table loading cannot continue 
because of no available storage (for the text tablel). 

c) There is insufficient room to load one or more of the library 
routines to satisfy externals. 


In the user call mode, each of the error comments resulting above 
will be preceded by the words "USER ERROR". In the control card mode 
the first two errors above will result in comments which^are 
preceded by "LOADER". In the third case, the CP LOADER is actually 
controlling the loading of library routines mth "User Calls , thus 
the error comment will be preceded by the words "USER CALL although 
this occurs in control card mode. 


In either of the two situations above the conditions causing the comments 
will leave core in a peculiar situation. If the error was detected 
in control card mode for a & b above, the job is aborted. If detecte 
for C above or if for a, b, & c in "user call" mode, any tables 
already in core will be linked up, the fatal error flag set and the 
job continued. In this case, it is possible for sufficient code to 
be linked up to permit initiation of a routine which never entirely 
got into core, since LINK and ENTRY tables many times will precede 
the TEXT tables. This situation would result in the job bomb5-ng 
out" in an unpredictable manner. If the PIDL table contains a length 
which triggered the error comne nts, no further loading is accomplished, 
and no loader tables would be loaded. In this case the "bomb out 
would be due to a Mode I or .Mode II error, resulting from fillxng 
externals with out of bounds references or leaving them zero. 
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4. Any user caXl to LOADER sliould be follovffid by tests of the FATAL 
error or NONFATAL error bits. A most common problem is the complaint 
that LOADER "hung up" when the CP comes to a screeching halt with a 
P=l. This occurs often when LOADER is unable to load the requested 
programs and returns to the user with the fatal error flag set, and 
EA equal zero. A program may than pick up EA indiscriminately, 
without determining that loading was completed properly; and this 
address is usually placed in an RJ instruction which is then executed. 
This, of course, will cause the "hangup" mentioned above, 

5. Properly operating programs, when executed singly, may on occasion 
Interfere with each other when linked together. The results may not 
be detected by LOADER with more than a warning message. The results 
will be unpredictable. For example, assume two programs which both 
utilize blank common. The first. Program A,declares blank common to 
be lOOOg locations; the second Program declares a blank common of 
2000g locations. Now, if A is loaded and executed, and during this 
execution calls for the loading of B, by the time B is loaded, blank 
common v7ill have been established immediately following A and with a 
length lOOOg. Program B ^^ill thus be loaded immediately following 
this blank common area, Ho'ivever, when the blank common processor is 
called for Program E (after all other loading has been completed), 

it is discovered that the two declarations of length are incompatible, 
and that the subsequent one is larger than the currently established 
length. Since blank common has already been "bounded" by the load 
of text from B, ft cannot be reestablished. Therefore, LOADER issues 
a warning that the declaration of blank common in B is in error; 
however, all references to this blank common are left intact. If 
Program B makes use of the full length of this 2000 word blank common 
for storing material, it obviously will be storing data upon itself, 
resulting in strange and most often undecipherable results, particularly 
since when tested independei;itly, t]ie program may easily have run 
correctly, ‘ ' 

6. FILL tables are processed after REPL tables, resulting in further 
strange results when the prograimmer is attempting something "tricky". 

For example, let us say that both Program A and B utilize labeled 
common X, Program A origins some code (which may never be used) 
into labeled common X, However, when used in concert with other 
programs, this code is not accessed. Let us say then that Program } 
utilizes this labeled common for table look up, and that these tables 
are produced through replication from some block of core. Since 
REPL tables are processed first, these tables will be established 

as required; however, prior to initiating execution of the program, 
all FILL tables for all programs are processed. This will introduce 
some addresses right into the middle of the replicated tables and 
perhaps destroy the program execution. 
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B. Segment Loading 

All comments regarding normal loading apply to SEGMENT loading. However 
The mechanism of initial loading should be restated so that the programmer 
may understand some of the resulting error comments. In normal loading 
the LOAD (A) card would initiate the loading of all programs in File A 
This entire file load is accomplished by LDR before LOADER is ever cal 
into action. Any difficulties encountered by LDR will result in ay^i e 
error messages preceded by the words "LOADER ERROR". In segment 
LDR loads into core only the SECTION and SEGMENT tables. _ 

called to formulate the first (SEGZERO) segment. LOADER accomplishes this 
by making "quasi user calls" to LDR for the J^^ding of * 

Thus, although initiated by a control card, the loading 
result in error comments from LDR preceded by the words USER ERROR . 

The implementation scheme used to delimit segments so that they 
linked and delinked is spatially oriented. This means that the ^nti y 
"SEGMENT" is defined from the last word of the previous ^egm 
' to the last word of its ov:n segment tables. When ^^S^nentation i p 

formed in a straightforward fashion, this and 

conditions can turn this whole process into a nightmare for LOADER an 

the user: 

1. When code or data is origined absolutely, and before the first word 
of the given segment. 

2. Or when a particular segment is loaded using f 

out into core, and higher level segments are loaded below thi 

segment. 

The results of 1 (above) are to establish linkages with """" 

in lower level segments to part of the segment which is not ^ 

boundaries of the "entity". When this "entity is delinked, the referenc 

to these out-of-bounds items will not be delinke » ® °that"'sEGZERO 

virtually an orphaned bit of code. For example, let us 

contains a Program A which has external references to an ENTRY ^ 

i^b.ded in it. Further, let „s say that this "tricky" 

to origin this code at location 50j. and assi^ that he «as 

enough to keep from oiping out the LOADER pointers at f-^e' ™\,,, 

external references in SEGZERO to ENTRY points in level 2 

all be filled in with addresses whose magnitude is greater than the 1 

iord of ihe segment tables for SEGZERO, since the next higher segment 

will be origined immediately following these segmen a < ^ ^ 

Sii tL Sleption of references to entry point X which is floating around 

in low core* 

NOW let us assume that a user call is made for f® 

at level 2 This will initiate ,the delinking of the old segment, _ 

IS aooomplishad by stanning doon the LIKK tables for 

out any references to addresses which are greater in magnitude than the 
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FVJA of the old segment level 2. Since the errant code from this old 
level 2 segment is below that address, all references to entry point X 
will fail the delinking test, and they will not be cleared. Thus 
forever more, entry point X is inextricably linked to SEGZERO, a situation 
which will continue until SEGZERO has been replaced. 

In the second case, the results are much the same, but the method of 
arriving at them is different. Let us say that in the example above, 
the user call for the loading of the new segment level 2, contained an 
about lOOOOo locations beyond the end of the SEGZERO tables. This will 
force the segment to be loaded far out in core, instead of adjacent to 
SEGZERO. s Let us further assume that this second level segment contains 
unsatisfied external references to entry point Y. Then let there be 
another call for the loading of a segment at level 3, VTith no FVIA specified 
for the loading. LOADER philosophy dictates that this segment be loaded 
at COREKEXT, which points to the next available location in core, at the 
end of the SEGZERO tables. This means that a higher level segment will 
be loaded into core at a lower address than the lower level (2) segment. 

Thus references to entry point Y will have absolute addresses whrch are 
smaller in magnitude than the address of the last word in the segment 
level 2 segment tables. If a user call is then made for the loading of 
a new segment level 3 the delinking process will find no references to 
delink in the level two segment (since there was code loaded beyond it 
in core); however, any reference to entry point Y in SEGZERO would be 
delinked. If the incoming segment level 3 is forced to load beyond the 
level 2 (using the FVIA option) and this new segment also has an entry 
point Y,we have the strange situation of SEGZERO being linked to the new 
level three, and the level 2 segment being linked to the old level 3, 

This will continue until the level two is delinked, at which time, of 
course, the old level 3 will cease to exist. There is some utility in 
this. However, some clever programmer will certainly find some extra¬ 
ordinary scheme which can effectively employ this feature. 

Some confusion exists regarding the use of the FILL flag in segment mode. 

Under the implementation of the present LOADER, all references are 
delinked if their address points beyond the FVIA of the segment being delinked. 
Since out-of-bounds references appear to be such addresses, they are 
cleared like any other delinked quantity. Therefore, the use of FILL does 
not provide a barrier to inhibit linking of certain externals in segmented 
mode. It serves in this instance only to provide an alternate indication 
of a source of error (a mode 0 appearing when the F flag is zero 
and a mode 1 -when the F flag is one, if the instruction at fault referenced 
an unsatisfied external). 

The present implementation of loader creates one major iracompatability 
in program sets run under segment mode, And under overlay or normal mode 
at different times. In the normal and OVERLAY modes, labeled comtnon^is 
linked up between all programs. This means that a block of storage is 
g_Flocated for a specific labeled common when LOADER encounters tbe first 
declaration of it, and tViereafter all references to that labeled common 
block will be adjusted by loader to reflect the actual allocated position 
in storage. This process is true for all programs in a given load. It 
is also true for all programs in a given segment. However, in segmentation 
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modej linkage to labeled common is restricted to within the segment in 
which it is declared. Thus data commiunication between programs follows 
the rule that within segraents the programmer may use either blank or 
labeled conmion, and between segments data must be communicated through 
blank coimnon only. This is a severe restriction only ^en the data which 
must he communicated is preset into labeled common during assembly or 
compilation, and loaded there by loader. In such a case the data must 
be moved into common by 'object time' instructions. 

Programs are not loaded into core in the order in which they appear in 
the user call parameter list, or section segment tables. The order xs: 

■V 

1. named segments or named sections. 


2, Individual programs, 

Within a named segment, any named sections are loaded first. Then 
individual programs in the segraarit are loaded, 

The list of individual programs to be loaded, either as a component of 
a segment, section,or neither is processed in the following manner y 
LDR ^ A read of the required file is accomplished starting from the curren 
position of the file. The PIDL table name is then Isolated and compared 
against every name in the list. If a match is found, t e a ° 

first word of the program is loaded. The next PIDL header is fetched and 
the list searched again. If no match is found, LDR skips dom the file 
to the next PIDL (note that an end of record is not necessary as a 
separator). This search procedure is containued until all addresse.. 
the list have been satisfied or until the file has been searched completely 
back to the position from which the current search started. 

LDR is present with separate lists for SECTION, SEGMENTS, and single 
nroarams. When a user call SL list contains either a section or segment 
namf an adSess is returned to the user in bits 0-17 of the corresponding 
entry. This address is the origin of program text (not labeled common). 

for the first program loaded for that section or segment. 

It should be obvious from the above discussion that the addresses in the 
SL list returned to the user will not be in numerically sequential order, 
proceeding dom the list. Therefore, the user is cautioned not to expect 
the first address in the list to contain the first word address of the 

"load”. 

Since segmentation can be effected mth some 

up with somewhat "sloppy" allocation of core and utilization of TO. The 
most common mistake is to prepare a number of programs, 
contain over AO-50K words on a single file, and to make frequent 
Llls for the loading of a given segment. The following are some recom¬ 
mendations for effective utilization of the segmentation feature. 

1. Either exnlicitly or implicitly force the loading of all library 

subrout-'nes in SEGZERO, (Explicit forcing would be accomplished y 
"dummying up" external references to routines which otherwise would not 
to satisfy externals for the prostams actaally In SEGZKRO. 
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2. Leave the C bit off in all user calls (not needed, since we have 
now loaded all necessary library routines 

3. Organize routines on the file in the order in which they are going 
to be called. 

4. 'Where frequent calls will be made for routines, which would make such 
an ordering impractical, these routines should be copied onto their 
ovTn individual files, and the corresponding user call set up. 

5. Make the first few runs in full core map mode to determine if programs 
have been allocated to given segments effectively, 

6. Run many of the subsequent runs in partial map mode to determine the 
frequency of access and efficiency of utilization. 

7. If the results of these runs indicate that segments can easily be 
prestructured, convert the whole shebang to OVER'LAY format to speed 
up loading. 

These steps will become quite obvious once the user has witnessed LOADER 
making an "end-around search" of a file of five or more programs of several 
thousand words. This action requires considerable disc access, and results 
not only in a single job slow dovai, but due the higher probability of 
disc conflicts total system throughput can be substantially affected. 

By identifying separate programs as files, little disc space is wasted, 
while the search time is eliminated. With the C bit off LOADER ■will 
make no attempts at satisfying externals, which can take a small amount 
of time from the job. 

Blank common is allocated immediately following the first segment which 
declares it. Thus in many cases blank common cannot be used to overlay 
portions of LOADER for data areas to conserve core space, since other 
segments will follow the blank common area in core. This must be considered 
when deriving core storage requirements. Any user call can be executed 
if the last 20„ words or core (FL-20) have been preserved, since these 
cells contain a routine to reload LOADER if necessary. If these cells 
have been "clobbered" during execution of the object program (LOADER 
can never load anything on top of itself), the program will most ungrace¬ 
fully hang up. ' ' 

Once blank common has been allocated, it is fixed in place until the segment 
which first declared it is delinked. It can be effectively "shrunk do^m 
or expanded, by using the FWA option in the user call for the next level 
segment, which would normally be loaded immediately following blank common. 
Thus the user can "FWA" this segment right into the middle of a declared 
blank common area, if he so desires, thus contracting blank common 
temporarily. 

Several users’ have been confused when examining core maps of segment jobs, 
since they grow to expect that their first program begins in lOOg- 
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Since section segment tebles axe stored at this point, the programmer 
should look for the end of the segment or section tables (a zero word 
sentinel), program text follows immediately. 


C. Overlay Loading 


During the generation phase of overlay loading, all of the comments 
concerning normal loading are applicable, with one exception. The 
programs in each overlay must be separated by end of record cards and the 
appropriate OVERLAY card. 

OVERLAYS must appear on the incoming file in the order of their core 
arrangement. That is the first overlay encountered must be a 0, 0 
overlay, the second a 1, 0; 2, 0; 3, 0;....n, 0 (primary), and third 
a secondary overlay, if there is one associated with the particu ar 
primary. All secondary overlays for a specific primary must then appear 
before another primary appears. At least one program in each overlay 
must have an END card ^Tith an entry name for a point in the overlay. It 
not, an invalid entry point will be established for that overlay. 

The generation phase results in the production of absolute binary text of 
a set of programs which can load into core twenty times faster than 
normal relocatable text. The comments regarding assigning certain 
used overlays or segments, made in the previous section are more applicable 
to OVERLAY than segmentation. This is due to the obviously high rate of 
speed (approaching that of COS 1.1) available in this mode. It is 
therefore, easy to gain a greet degree of efficiency by reducing the search 
overhead to locate a specific overlay. 

The LOADER makes no core maps during the loading of absolute overlays, 
but it can make core maps during the generation phase. 

Upon completion of the generation phase, no end of file is written on any 
file. This is to permit the use of more than one input file to the genera¬ 
tion. If the output files were written to tape this can cause a problem, 
since any end-around search could cause a read beyond the recorded inform¬ 
ation, and a probable parity error. 

The construction of a core allocation "tree" for OVERLAYS is more difficult, 
because once created, it is frozen and cannot be changed at object time, 
as can segment processes. The cleanest "cut and try" method arrived at 
has been to use segmentation mods to arrive at a proper allocation of 
overlays, then the programmer modifies his user calls and directive 
caiTcis to convert to the DVETIjhAY mode. 


A zero-^zero overlay :r;ay call, another sero-zoro overlay. This results in 
LDR initiating the CTU at the entry point of the new overlay 
at the instruction following the user call, since it is assumed that 
new overlay will be loaded on top of the old overlay, thus destroying 
the user call, and making such a return meaningless. 


No writing of absolute overlays is ever done for core 

since this area is reserved for pointers and parameters during overl y 
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generation. The user must check to see that no code to be loaded 
origined in this area (such as a ’tricky' control routine) for it will 
be lost during the generation phase. 


Labeled common is linked up between OVERLAYS. An Overlay 0, 0 must be 
the first record encountered on the first file to be loaded, via contro 
cards; otherwise the job will abort, if other overlays are present. 

Overlays may r esi d e in the_CLD, but not ths-ESL. This is due to the fact 
that the only non-prog ram vord in an absolute overlay is the header, 
whose lower 18 bits (0-17) must contain the address at which the overlay 
is to be loaded. This usage prohibits the use of this location for thread 
ing to the next RSL entry. Such overlays are called by name, not level. 

An overlay may call another overlay, normal program or segment. This is 
done by the RUN compiler which calls on ASCENT and which can also call 
for the loading of relocatable text (in RUN (G) mode). 


During absolute overlay lending, any level overlay may call any o^er 
level overlay; however, if such a call is outiade the well defined tree 




m. 


1 ; 


(i. 0, 0; 1, 0; 1, 1; 1, 2;..l, n; 2,0; 2,1;..2, 

in n) the results may be unpredictable. For example, an overlay could 
load on top of itself (with the exception of the 0,0 case, stated above), 
or a 3, 4 overlay could be called in while the primary overlay ^jas still 
1,0, perhaps 'clobbering' a portion of that 1, 0 overlay. 

Each overlay is written to a file with a 77g ID record, containing the 
name of the first program in that overlay. Thus the overlay ® 
be updated using COPYN very readily. The process of updating absolute 
overlay files calls for special attention. For example, assume that there 
were 100 overlays in the system ranging from 0, 0 to 77, 77, and tha i 
is desired to change the 0, 0 overlay. Most likely any change to an 
overlay will result in a change in effective length of the^overlay.(thus 
affecting the origin of subsequent overlays) and the relative positron o 
entry points in the overlay will also most likely change. This means t^t 
all overlays in the system will have to be regenerated. Now assum.. a 
a single overlay at the highest level musp be modified. This 77g, 77g over ay 
will have to be regenerated from the modified relocateahle decks. 
regeneration will require the generation (albeit redundant) of the 0, 0 
and 77, 0 overlays, to provide both an origin and necessary entry poin s 
for the generation of the 77, 77 overlay. In this latter case it is 
obvious that only three overlays need be,generated. In both instances, 
although the generation involves more t^an one overlay, the process o 
updating the files need only utilize t^e overlay of interest, since he 
redundant generation should have produced overlays identical to those 
on the file. 
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BAWnOM THOUGHTS TO KEEP YOU STIMIITATED 


A. Philosophy of Program Origin 

In order to implement this relccateahle system it was necessary to derive 
soma conceptual approach to the problem of defining a "formal" origin from a 
program. This is due to the fact that code from any given program can be 
origined absolutely any place in the job area, within labeled common or 
relative to a program ’beginning'. In the cases where it is necessary to 
relocate either data, code or references relative to program origin, it is 
necessary to compute a displacement from the RA to that program which can 
then be added to the address which is relative to the program origin, to give 
an absolute address which -vTill be used at execution time, When a straightforward 
program consists of nothing but text to be loaded starting at location lOOg 
(first relocateable program), the program origin is obviously at lOOg, and that 
^rf.11 be the displacement used in relocations for that program. Let us say 
that this program extendes to 777„ and that another program is to be loaded^ 
from the file. This program (for the sake of simplicity we|ll give it mythical, 
straightforxjard properties) will begin loading at lOOOg, which is obviously 
the program origin and the value of the displacement to be added to relative 
addresses, 


Now lets add on labeled common to these two programs. Let the first program 
have a block "A" of 100 words and the second program have a block A and a 
block contains 50-, words. LOADER will allocate 100 words for 

A before loading the first program, which mil start at 200g this time. 

When the second program is loaded, block A mil have already been allocated, 
so 50 words id.ll be set aside by LOADER for "B". This block will start at 
(100 ^1000„)=1100„ and will continue to 1147g. The second program will then 
be loaded after its labeled common block at 1150g, and this value will be 
used as the program origin and displacement for relocation. 


Let us say that a program consisting entirely of absolutely origined code, 
to be located at 50^, is to be loaded as the second program, Since it rs 
absolute, loader will place the code properly, however, the program origin wi 
be considered to be mO,, (assuming still a labeled common of 50g words. 

This seeming incongruity arises because no distinction is made between » 
program containing purely absolute code, purely relocateable or purely labeled 
common origined. Since a value must be established for the displacement m case 
it is needed, the program origini^ placed at the first location in core 
where a table containing feiocateable text and a relative address of zero 
would be loaded of there was one. 


The purpose for this discussion is to explain wliy in some cases the program 
origin on core maps does not correspond with the actual location of code. 

In addition the ASCENT user may wish to deal with relocated addresses fpr 
absolute, labej.ed_cpmmpn and standard relocateable code, and the above concept 
must be clear before attempting a'sophisticated handling of such addresses. 
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B, Uniqueness of Program IdentlfIcabi q^ 

irnen programs are to be selectively loaded from a file, there are two 
definite contributors to its unique character, name and position on the file. 
Several copies of a program can exist on a file, and in the case of segmenta¬ 
tion, such a procedure can increase efficiency. The rule followed by LDR 
is that the first program encountered ■which matches a name in the SL list, 
is the only program loaded into core. Thus the position of the file at the 
time the user call is Issued will determine ^jhich copy of a program is loaded. 

When the SL list contains more than one identical name for a program only^ 
one copy Cthe'first copy) of that program will be leaded. In normal loading, 
if the program has already been loaded, it ■will be loaded again, but a non- 
fatal error flag mil be returned to the user, indicating that a possible 
redundancy exists in the system. Since a program containing the same name 
need not have the same entry points,this method of loading might be useful 
to someone. However, if duplicate copies of a program with duplicate entry 
points are loaded into core, only the entry points in the first encountered 
program will be linked to (with the exception of a special case in segmentation). 

Routines are loaded according to different identity tags depending on the 
method of loading. For example, if a user call contains a request for lading 
of a library routine, the SL will be zero and the Fn will contain the EHT^Y 
noint name required. The CLD and RSL are, therefore, searched only on entry 
point names If a selective file load is indicated, the SL list V7ill contain 
nrosram names which appear on the PIDL card, and ^<fhich may easily differ 
from the names of any entry points contained therein. 


C. On the R5S Bit 

A convenient technique for deblgging under 2.0 is to execute a load and then 
a NOGO. This permits the programmer to DIS to the appropriate control point 
for debigsing purposes, Ffhen the programmfr attempts to use the RSS option 
as he did under COSl.l, he will note a slight difference in behavior of the 
svste^m. This is due to the fact that if the RSS bit is set, all loading is 
completed, and a core map output, then LOADER places an EHD in M+1 end waits 
to be dropped. This is the same as the NOGO behavior. Unlike COS 1-1, the 
loading of core requires some CPU activity; thus this activity is completed 
prior to stopping before CPU execution of the loaded job. This can cause the 
programmer some difficulty, foi: RSS only vrorks to stop the execution of CPU 
routines, and does not inhibit the operation of any PPU Routines 
vjhich may be called up- 


D. Another source of some consternation has been the fact that LOADER Is most 
tolerantly intolerant of the data it is loading- This means that as much 
editing as possible is performed on the input stream to ensure its validity. 
Thus if the binary card deck were 'shuffled* out of sequence, 

LRD can encounter binary stream information as well as display coded loader 


5 - 14 



page 15 


directives" It is apparent that if given the wong file position. Loader 
can make a wrong 'guess' and diverge on some ridiculous wild goose cha. . 
trying to load something it shouldn’t. 

If an error is detected in the input stream while loading in 

either caserthe^file Slfb^positioLrit tL^^sical disc record 
following the error. LOADER does not attempt to recover the loading 
coitinu.. since It is virtually lost In the input 
user is not restricted to separating most of his programs mth 

cards, 


niines to Look for When the L oader Has Apparently Gone to Hell 

rr;r.r„r..-:.’2S»:: :c: =2 

S‘"»- - S-" ™ £22.::.;.. - 

ing observations: 

1 A nice normal looking load turns to chaos with the error comment: "No 
ter^iLtor fLnd." Ihe user will probably find 

the blank card supplied by the COS output package, LOADER is attempting 
to scan an apparent "loader directive". 

2. Program hangs up in high core-user has probably stored data on top of 
the loader residence. 

3 . Program hangs up in low core--user has failed to q£ 

reply and has tried to return jump to nowhere, supplied by 

the user call, 

4 Program initiation seems faulty—either the user failed to heed the 
waring "NO ENTRY FOUND FOR XFER" or his END card specifies the S 
ENTRY POINT or more than one END card is extant. (Loader takes the 

one loaded,) 

5 Strange activity in normally running program, data, or other S^^bage 
loadefarprlgrL text-a file name exists for the job which f tches a 
routine which is being called from the library. (The order of search i 
FNT, RSL, CLD, RPT., PLD-.) 

6. INVALID CONTROL CARD_aEEear^ndeclph£rabU--in cS^Spears 

card contents, LOD outputs this message when a pro^r^ call c PP 

with a name which is not in the FNT, CLD, RSL, RPL, FLD. 

. 7- An invalid card message followed by garbage on the 

arises when the file is positioned wrong and LDR tri^s to interpr 
binary text at that point as a display code loader directiv . 

8. If all other analysis fails, then 'immediate action' is: 
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Look at RA+64; contains file name of current file being loaded* 

Look in R/i+65: contains address +1 of last location where physical 
loading took place; 1^+67 contains TABLEXT v;hich points to last set 
of tables,loaded. 

Find the last loaded PIDL; check to see if that entire program was 
loaded (F^is in PIDL, L\fe+1 in GO^ NEXT. 

If in segment mode^jiheok section segment tables at RA+lOOg, 


The above information should indicate in which routine everything died. 
Examine that deck carefully for card sequence, blank, or other spurious 
cards. If there is data on the same file, check to see that there is a 
double end of record between the programs and the data. 
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Word Count 


CARD FORMAT 


word 1 word 2 word 15 



CN is Code Number; 34 = PIDL 

40 = TEXT 

42 = FILL 
44= LINK 
36 = ENTR 

43 = REPL 
46 = XFER 
77 = label 

50 = absolute overlay 


LR and L fields are 
zero except in the 
TEXT tables. 
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3400 WC 000 000 

^^—rn— 

0 0 0 0 0 0 

PROGRAM NAME 

LENGTH 

COMMON NAME 

LENGTH 

* 

* 

COMMON NAME 

LENGTH 


WC entries 


The first entry is always the program nome. Subsequent entries are the names of common 
blocks. 

Blank common Is treated just like any other Common block, but the name is left blank 
(55555555555555). 

All names are left justified zero filled. 


TEXT 


4 0 


0 0 


-ITT 

WC 


0 0 0 


LR 
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RELOCATION BYTES 
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Header 


Reloc 


Text 


WC words 


WC Is limited to 16 iq or less* Where there is more test^ extra (not longer) TEXT tables are 
required* 

LR specifies the area Into which the test is to be loaded, as follows: 

0 = absolute (relative to RA) 

1 = program (relative to 1st location of program) 

2 Illegal 

3 = 1st common (relative to 1st common block mentioned In PIDL table) 

* 

* 

n = n-2th common (relative to n“2th common block mentioned In PIDL table) 
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L is fhe address (within specified area) into which the first word of text is to be loaded. 
Subsequent words go Into the succeeding locations. 

(Encountering an ORG card or a BSS card during assembly causes the punching of □ short 
TEXT table.) 

The relocation bytes are 4 bits apiece. 15 (or WC- I if WC< 16) are kept in the relocation 
word. Because only 15 relocation bytes can be kept In the relocation word, the TEXT tables 
are limited to 16 words each. Each TEXT table has exactly one relocation word “ It Is al¬ 
ways the word immediately following the header. 

Only 30 bit instructions have relocatable addresses^ and these instructions must therefore 
occupy either an upper^ middle^ or lower position In the text word. Therefore the reloca¬ 
tion bytes need merely concern themselves with the upper, middlej and lower position of a 
word^ not with the 4 positions associated with parcels. Furthermore, if a word carries o middle 
instruction, it cannot carry an up|Der or lower Instruction. (It can carry 2 more Instructions 
but these are 15 bits and associated with Parcels 0 and 3, not upper and lower.) The reloca¬ 
tion bytes in the TEXT table are only concerned with positive and negative PROGRAM reloca¬ 
tion. 


upper bit set = upper relocation 

second bit: 0 positive 
1 negative 

second bit set = middle relocation (assuming not upper*,) 

third bit: 0 = positive 

1 - negative 

third bit set = lower relocation (assuming not mrddlel) 

fourth bit: 0 = positive 

1 = negative 
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UNUSED 
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upper - 




1010 
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upper + lower + 

0001 

= 

no relocotion 

1011 


upper + lower - 

0101 


middle + 

1110 
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upper - lower + 

0111 

= 

middle - 

111] 
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upper - lower - 

1001 
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upper + 
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lower + 

1101 
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lower - 
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0000 
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no relocation 
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FILL 


V WC * 2 
I half-words 


The fill l-able consists of 2* WC half-words ordered as a control half-word followed by a 
string of detail half-words, another control half-word, and another string of detail half¬ 
words, etc. filling out the table. The lost half-word may be all zeros if unused. 

Control half-words have a zero upper bit and detail half-words have their upper bit set. 

The control half-words only specify the relocation factor as follows: 

0 = absolute 

1 = program 

2 = negative program 

3 = 1st common 
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n = n*2th common 

This relocation factor is added to address fields as specified by the detail half-word os 
follows: 


R = region: 0 = absolute 

1 - program 

2 = illegal 

3 = 1st common 


n — n-2th common 


high bit always set In 
detail half-words. 


L — address within that region 

P = position within that location: 100 = lower 

101 = middle 
110= upper 
111 not used 
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EXAMPLE 


SOURCE 


OBJECT 


IDENT PROG 
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LOOP 
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4000xxxx000001000003, 


PIDL 


TEXT ORG 2 


TEXT ORG * 


TEXT ORG BEl 


FILL 


TEXT ORG * 



j.*lMAX| 




j?2yc^ 


i_ " • -j>!. ‘ 

* O‘jo ^u3o(y xn..i'i- 

rx. «oc^i^'Oc It ‘.*^•">. 
i oi i<:SLK-'<.r»cv. 'u.‘' * ■ .V ' 
; -;,jir x - ^Crv/'itKAMjC- ■'"X* 

0'"C''•'CiA/<.'t 'k- • 'I'r^ 

' <•. ■. !’*< ' • 

I .'J •«»*»' • 

'A> !' » ^ '/. ,V~'s,:^’!'A^■^'^‘.^^L.^ji . 

; k> ';i* ■' w .,jyCi 0'*X‘' I ' 

' ‘I . kiT"' I 

'j£: M'o£'f. ' :.• r; t 

' <' I '* . '^''. xiC'u .' i!y rv 

* i •■'tkX ‘if'rfv.'.i'! : ' 

' fiOK' ■• / ■''•k'O'‘V'0(•>. 

U'*"^ W _Xu "2;' 

C'o'-',."'vV'" A'i'i. 

*>/ ‘'f ‘; i<ri j 

JzC- .' 

If'. 

,. jo fifju 
1\ 'I'ifiCi. ^'' ’»’• j. c’ •' 
W-i QvOO O' iQ' '*.A». wO(>b'' 'j 

L ■7^‘i.vwoi"-Ivpr-.:^;^A‘ 

1 . I.'!!},' !' '':f ■ ■-'p''-' 

I ' > .0 Vv j fy 

1 ' v'-» yX'X".'■<" '_v,. 

L V KM. V;V' )C* • 

1 ' •' '"**7;-'' ^ •■ C ~ 

■ \s *» J' 'Ci* "**(>’ 1'^ 

(C 0t'7{^' f' ji !..• f i'lTTr ' 
t r.jy Cvt’Cl' ■* 

3-^7^*’' *'3 

‘‘lo Tof^uX,;. ^0U,'-'"»J’** ' 

* V'Ky;w- »■' I 

■ * '-It * Ooi^jh^n't' ' 

* uA^poio.'*', '>• 7 


.•»!« rwr.'ir 

iia'fUA,»v .h 

aa tjjA,-)-v,!')!* «r-* ,•< 

raa'B. v r^, -t. 

..u ^C4M<'> 7. .‘A 

•, I "jA, I?,' i-,' ';• A.' V' 






i 

•»e 

- 

. 


♦ /J. 

*• t #. 

Ao 

* * • 


s , 

•Ah 

.' 

•A* 

“O'-'. 

- « 

1 it 

Mir 

"tf''i, •'I 1 

‘ir.* 


r 

U* 


1J (. 


» 

—M 

< ij 


• • 


5^Xi f 

J#* 

* *• 

• • ■ 


m|U,» Jf 


fJ'.VrMARI.' ,..»• 

a 

J' 

♦ 

■* 1^ j* 


ii ■'^ 1 Id. 


11 , t'* 1 

4y 




• (r 


Ul' 





LINK 


BUB 

—1 

HHQ 


name of external 

0 0 0 0 0 0 

p 

R 

L 

p 

R 

L 
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R 

L 

name of 

external 

0 0 0 0 0 0 

p 

R 

L 
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p 

R 
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WC words 


The LINK table consists of a control word followed by a string of detail half-words, then a 
second control word (It may be divided between two CM words as shown) and another string 
of detail half-words etc, filling out the table* The last holf word may be all zeros if unused. 

The control words merely contain the external symbol in display code, left justified and zero 
filled. Therefore, the uppermost bit is reset. The upper bit In the detail half-words is al¬ 
ways set. 


The detail half-words following a particular control word specify the address fields in which 
a reference to the particular external was made* They have the same form as in the FILL 
table. Namely, 


P = position 

4 = lower 

5 = middle 

6 == upper 

7 not used 


R — region 

0 = absolute 
] = program 

2 illegal 

3 = 1st common 


L ™ location 


n = n-2th common 

After loading is complete, the external symbols will have entry locations, and these add¬ 
resses are plugged into the control word by LOADER. Then the address from the control word 
is added to the address fields specified by the detail half-words completing the program link¬ 
age. Notice that this treatment of program linkage allows external arithmetic in address 
fields at compile time. 
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> WC/2 entries 


Each entry point requires two words in the ENTR table. The first word consists of the entry 
point symbol left justified and zero filled. The second word contains the entry address. The 
R and L fields are as before. Note entry points are allowed in common areosl 


EXAMPLE 


SOURCE 


OBJECT 



I DENT 

GREEK 


ENTRY 

ALPHA,BETA,GAMMA 


EXT 

ALEPH,BETH,GIMMEL 

ALPHA 

CON 
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RJ 

ALEPH 

DELTA 

SX6 

B7 


SA6 

AO 


RJ 

GIMMEL 


SAl 

AO 


JP 

ALPHA 

BETA 

CON 

0 


SAl 

BETA 


BX6 

XI 


SA6 

ALPHA 


RJ 

BETH 


JP 

DELTA 

GAMMA 

CON 

0 


SAl 

GAMMA 


BX6 

XI 


SA6 

GIMMEL 


JP 

GIMMEL+1 


34000001000000000000 

07220505T30000length 

36000006000000000000 

01142010010000000000 

00000000000001000000 

02052401000000000000 

00000000000001000004 

07011515010000000000 

00000000000001000010 

44000006000000000000 

01140520100000000000 

60010000010205241000 

00000000004001000006 

07111515051400000000 

40010000026001000012 

40010000120000000000 

4000xxxx000001000000 

00002010420040xxxxxx 

00000000000000000000 

01000000004600046000 


etc. 


PIDL 

ENTR 


LINK 


TEXT 
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REPL 


1 

1 

8 

QBQ 

QQHHQH 


I 

S R 

s 

C 

B 

D R 

D 

» 

■ 


I 

S R 

s 

c 

8 

D R 

D 


WC/2 entries 


Each entry in the REPL table is two words. The fields are as follows: 

SR source area 

5 source address (within the specified area) 

B block size (number of words to be replicated) (0 is interpreted as 1) 

DR destination area 

D destination address (within that region) (O Is interpreted as S + B) 

C number of replications (0 is interpreted as 1 ) 

I replication interval (0 Is Interpreted as B) 

For example if the count were 3^. the information from S through S+B-1 would be reproduc¬ 
ed at D through D+B-1, at D+1 through D+I+B-l, and at D+2I through D+2I+B-1. 

DR and SR fields are os follows: 

0 = absolute 

1 = program area 

2 illegal 

3 = 1st common area 
• 

* 

n = n*-2th common area 


XFER 


1 

4 6 

—i— 

0 0 

O 

o 

o 

—1—\—1— 

month 

-1-^-1- 

day 

—^—\—1— 

year 



nanne 


1 0 0 

0 0 0 0 


The XFER table alwoys contains a word count of 1. The month, day and year fields in the 
header ore optional and ignored by GPSL; If present they ore In display code. The XFER 
entry is left-justified, zero-filled. It must be a declared entry point to some program, but 
not necessarily the current one. Its address field Is filled In by LOADER Just before execution. 
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Label 


7 

7 

0 

0 

0 

T- 

0 

— 

1 

"T" 

0 

—I 
0 

0 

E 

T- 

0 

0 

0 

— 

0 

— 

0 

— 

0 

— 

0 

— 

0 






program name 






0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

* 

■ 

p 1 

Li 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 


WC = 14 


The label table always has a word count of 14 |q = 1 card exactly. GPSL ignores the label 
table — its only use Is as a header block for routines such as COSY and COPYN. 

ASCENT will always punch the label card at the head of the object deck. Because it is an 
entire card by itself, and ignored by GPSL, the programmer may remove the card or not, as 
he desires, before loading. 



Words 2 through end 
of logicol record are 
absolute text. 


The first word of an absolute overlay identifies it and distinguishes this record from other 
records or tables GPSL may encounter. The format of the first word contains no word 
count, and an absolute overlay is not really a table in the sense used above. 
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LOADER TABLES 


Pointers 


u points to the beginning of the first LINK 
table relative to the PTBL table for program 1 

<p points to the beginning of the first ENTR table 

X points to the beginning of the first FILL table 

jp points to the beginning of the first REPL table 


RA 

RA+100 


SECTION Toble 


SEGMENT Table 


ijJ points to the next PTBL table 

If any of these tables should be absent, the corres¬ 
ponding pointer is zero. All pointers are 12 bits. 

If there is no succeeding PTBL table the w pointer 
is also zero. 

X , , £2 have the some function for 

PROGRAM 2, ond their values point to the corres¬ 
ponding tables relative to the PTBL toble for program 
2 , 

Blank common starts at the end of last loaded program 
and may overlay the LOADER and Its tables. 


Common 


PROGRAM 1 


Common 


Blank 

Common 


PROGRAM 2 


Unused Core 

0 

REPL Tables 
FILL Tables 
ENTR Tables 
LINK Tables 


During Segment or Overlay loading, blank common Is 
appended to the end of whatever segment or overlay 
defines It . In the case of Overlay loading, blank 
common may overlay the LOADER and its tables only 
If It is defined In the lowest level overlay, or subse¬ 
quent overlay control cards use the C-fteld to restrict 
blank common length. In the case of Segment load¬ 
ing, blank common may not overlay the LOADER, 


Common name 


address 

T X 


S2 

PROGRAM 2 name 


address 

0 

REPL Tables 



FILL Tables 



ENTR Tables 



LINK Tables 



m 

4 i 

A 

Common name 


address ^ 

It sp X 



PROGRAM 1 name 


address 

previous XFER 


address 

blank common 

pointer 

kPER name 


address 


LOADER 
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ENTR 


Table has same format as ENTR table from 
object file. LOADER supplies the absolute 
address 


LINK Table hos some format os LINK table from 

Object file. LOADER supplies the absolute 
address. 


FILL Table has same format as FILL table from 

Object file. 



REPL 


Table has same format as REPL table from 
Object file. 
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THREADED LIST SEARCH 


START SEARCH 



0 pir 


n7 


n6 

0 p3 


^2=D^E w2 

Prog 2 

0 

* 

0 prr 


n3 


n4 

0 p2=0 

; 1 

0 ph- 


n3 

1 

ri2 j 


n1 1 

0 pl=A-C . 

i 


Piog 1 

X 

BC 

X 

LOADER 



























LOADER ACTION FOR OVERLAY GENERATION 


1 . Complel’e present overlay (LINK tables processed and library routines loaded), 

2. Fill unsatisfied externals with out-of-bounds references. 

3. Estoblish or link btonk common, 

4. Set LWA overloy from CORNEXT in proper word of OVLINPT Table. Also set 
TBLNEXT into proper file-name entry of OVLINPT Table. 

5. Return to LDR unless Write-Overlay bit or End-of-Load bit is set. 


If either bit is set: 

6. Scan the file name entries to find the most principal level not yet written. 

7. Make up a 77 table entry at CORNEXT+1 through CORNEXT+17g. 

8. Make up a CIO call using file name specified for a binary write. 

Set: FIRST = FWA overlay (from header) 

IN = LWA overlay + 1 (from one of last six words in 
OVLINPT Table) 

OUT = CORNEXT+l (beginning of 77 table) 

LAST = CORNEXT+20g (end of 77 table +1) 

9. Call CIO. 

10. When write is complete, set high bit In corresponding file name entry. 

11. Repeat steps 6—10 until all overlays in core have been written. 

12. Reset CORNEXT and TBLNEXT for generation of next overlay (whose level 
is alreody known). 

13. Return to LDR unless End-of-Load bit is set. 


if the End-of-Load bit is set: 

14. If 0 LOAD card had been processed, place END in RA + 1. 

MTR will call lAJ 

15. If a program call cord, LOADER colls LDR to load the initial 0,0 overlay, 

LDR will enter the user program and not return to LOADER, 
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OVLINPT TABLE (Located within LOADER) 


FWALDR + 256g 

INITIAL FILE NAME 

OVLINPT + 1 

FIRST WORD OF OVERLAY 0,0 HEADER 

+ 2 

OVERLAY 0,0 FILE NAME 

+ 3 

FIRST WORD OF OVERLAY n,0 HEADER 

+ 4 

OVERLAY n,0 FILE NAME 

+ 5 

FIRST WORD OF OVERLAY n,m HEADER 

6 

OVERLAY n,m FILE NAME 

+ 7 

LAST OUTPUT FILE NAME 

+ 8 

INPUT FILE NAME 

+ 9 

OVERLAY 0,0 BLANK COMMON POINTER 

+ 10 

OVERLAY 0,0 LAST WORD ADDRESS + 1 

+ 11 

OVERLAY n,0 BLANK COMMON POINTER 

+ 12 

OVERLAY n,0 LAST WORD ADDRESS + 1 

+ 13 

OVERLAY n,m BLANK COMMON POINTER 

+ 14 

OVERLAY n,m LAST WORD ADDRESS+1 


OVLINPT 

OVLZZHD 

OVLZZFN 

OVLPRHD 

OVLPRFN 

OVLSCHD 

OVLSCFN 

LASTOVF 

OVLINFN 

OVLZBCM 

OVLZLWA 


Contained in the low order 18 bits of locations OVLZZFN, OVLPRFN and OVLSCFN 
is the first word address of the Loader tables for that overlay ( = TBLNEXT for subordi¬ 
nate overlay). 

In the header words — OVLZZHD, OVLPRHD and OVLSCHD, the format of the in- 
formotion is: 


I—1 t 

5 0 0 0 

:- 

L 1 

—1— 
L 2 

FWA OVERLAY 

ENTRY point' 


code 

1 level ^ 

load address 

' (supplied by LOADER) 


When the particular overlay is written out on its absolute file, the high bit in the cor¬ 
responding file name (OVLZZFN, OVLPRFN or OVLSCFN) is set. In this way, 
LOADER is aware of which overlays have been written out, and which hove yet to be 
written. When o new overlay is generated, the corresponding file name is rewritten 
(see program 2LA routine OVERLAY) and therefore the high bit is reset, therefore 
LOADER knows that the absolute text has not yet been written in the absolute overloy 
file. 
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EXAMPLE 


Writing 0,0 


Writing 1, 


Writing 


CORE 


OVERLAY 0,0 


OVERLAY 1,0 


OVERLAY 1,1 


77 TABLE FOR 0,0 


FIRST 

IN 

OUT 

LAST 


TAPE 


77 table 0,0 absolute 


OVERLAY 0,0 


OVERLAY 1,0 


OVERLAY 1,1 


77 TABLE FOR 1,0 


FIRST 

IN 

OUT 

LAST 


77 00 


77 

1,0 


toble absolute 


table 

obsolute 



OVERLAY 0,0 


OVERLAY 1,0 


OVERLAY 1,1 


77 TABLE FOR 1,1 


FIRST 

IN 

OUT 


77 0,0 

table absolute 


77 1,0 

table absolute 


77 1,1 

table absolute 


LAST 
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SEGMENT and SECTION tables 


SECTION table 


SEGMENT table 


Section name 

Pr 0 ( 3 ram name 

• 

Program name 

Section name 

Program name 


Program name 

0 

Segzero name 

Program or section name 

• 

* 

• 

Program or section name 

Segment name 

Program or section name 

* 

« 

■ 

Program or section name 

0 


SEGZERO 


RA + 100 


FWA program 


To distinguish section names from program names in the SECTION table, the high order bit 
In the section names is set. Similarly in the SEGMENT table the high order bit of each 
segment name entry is set. All names are inserted left-justified and zero-filled. The end 
of each table is indicated by a zero word. The SECTION table, if there is one, alwoys 
starts at RA + 100. The address of the beginning of the SEGMENT table Is kept in the 
p-field of RA + 65. The FWA for the progrom is kept in the low order 18 bits of RA + 66. 

A section may consist only of a string of programs that are to be loaded from a file other 
than the system library. All the programs within a section must be on the same file. All 
sections must be defined before the first segment. 

A Segment may consist of a string of programs (that are to be loaded from a file other than 
the system library) and previously defined sections. All the programs within a segment as 
defined here must be on the same file. (In a later definition of Segment this restriction is 
removed.) In particular, all the programs constituting SEGZERO (in either definition of 
segment) must lie on the INPUT file. 







_ _ 9tPi 'n no'». >i>^ ■ 

.>r^V ni>»pOT^ ~* ! 

.. _ I 


c: 




—T ^JJ^^lSfif^ __ ^ 

» ni6nnj^t i aii^ | 

^ mr tgu ’H _ 


_ ‘ ^IL *^0 A 




__ ^ "jmor i o 

n*»i. >u _ 


;s*nui .liii ••' • j •»« 


-irif.^*^ .1*11 . 


.pr.-V«^ 




r, 


J'ltfLJpI niL.ig^ 




- I 


f n*^»3\»vJi^- 


• .1 ‘ii ir. **C'»*^ I j * r* f *••• *r^*1^ r^'i n. 

r.t» •? nd t^L*>u 'tiiH nr » « U i ^ ^ » i | f , N. t> -aiii’-ir 

D itj ii^M '.•MU?. i It til. ,1} ^*f»> t 11 * <> .’“jfih • MA .iv* ** yit't-f 

suv tj^ . ftv' 1 ! *v¥ .^1, j»\d bitfciibn i 

4 0 ft. Ai *4 iL, 7**^ i«‘» ^ili Ic* ie©ib4in ^ilT w ♦ 

A> ♦c *■ if 1 M*v> 'A* * 9*'^’ M 111.* idf u^i A . H i^tlT ,il- 


in Mitt# ^*i? 

I ll*’ 

A.y u> ♦dn.if 
.Uii * 


aJiI e /liv Uj 4 *\\ vt,|> •♦ J ♦ 

' <1 ♦ r^M«i^ >1 t. *K* fi Ilf n i. 


I ^C PHMI| u M ^Ift. • fi/r *iO.* Jftv 

• :/nt 1^ w( ir • >|A vii:.ifj i io«»l 

•<l it ->11' Mi)i* •?* 


rti^t tl^c ?* I • U t ^li ttl j i ^i#ii» •ttf " U» C 1^1 tiftr»n yo« t li'-tii ?q?ic* •% 

4 * »• -iMitf .0 n r^tiiy » n • t;. *•»«. *U *rjiy-#<i bnC» ( .r.j^^jy# !fri< 

M *' * ^ n^tHff »ii »t‘ • j ^15^ ^mo ir'l tin *jd rtijit sintn 

•Ui-»xti1ii. lid* ti » f * * ti- it'i^iiq Uf ir^l «:^tl 1 il k 



SQUEEZE Tables 


0 


SECTION Table 

0 

SEGMENT Table 


RA + 100 


SEGZERO 


SEGZERO SQUEEZE Table 


Newly Loaded 


Prog 1 


SEGMENT 


_ 0 

el 

e2_ 

e3 _ 

e4 _ 

e5_ 

e6 


Prog 2 


abs address 
obs address 
abs address 
abs address 
abs address 
abs address 


0 


c2 

cl 

Ll 

c3 

c4 

Ll 

c6 

c5 

L2 

L3 

c7 

c8 

L3 

pppppp 

c9 

L4 

0 

9=S-T 

X=0 <P=0 w=0 

level downhill | uphill 

* 

m 

• 


Uphill and downhill poini'ers are 
zero at time of creation. They are 
set later during segment linking to 
the next level segment. The pointer 
to the SEGZERO PTBL is located in 
RA + 67. The other PTBL's are found 
by threoding. 




e6 



e5 

H 

0 

_e3_ 


A 

* 

* 


0 

ptr 


c8 

c9 


L4 

G 

0 

uS 


* 

* 

F 

T=F-G $=l 

-H n 


Prog 2 


0 


c7 

0 


L3 

E 

0 

u2 =0 


■ 

« 


0 

_Pfr_ 




e4 




e3 

D 

0 

P2 =0 





0 

ptr 


c5 

c6 


L2 

c4 


c3 

L2 


cl 

c2 


Ll 

C 

0 

ul=A-E 




e2 




el 

B 

pl=A-D 


• 

A 

u=A-C 9= 

=A-B lj=A-F 


Proq 1 


X 


BC 


ENTR 1 (Prog 2) 

LINK 1 (Prog 2) 

PTBL 2 

LINK 2 (Prog 1) 


ENTR 2 (Prog 1) 


LINKl (Prog 1) 


ENTR 1 (Prog 1) 

PTBL 1 


X 

LOADER 


3Xi}3UC2 


f- 

i*- 




®TI ■* 1 


‘t' . ii 


U- 

I* - 

I- 


Jl± 


8:- 


■. «n r 


f- 


H - It ^1 


' pc 'i I 


■•“ i v 


:J 


0-i f I 

~c,r, 


-I 




■• K>l ’ A S' 


•sImcT I'VilOitf 




10^ T' 1 iM ’>•1? 


I j S3 U 


-^ 


^<fS'T iS-iil’ki* til *133 .‘.3c 


-o- 




IcijA 33* 


ua^btxj ^ 


TiT-: 


^<^tbbo <Ltio 




1 /^t.ibbn ,'Ic 


<£^ibbu >>it 
ii^tbOL •riti 




J I 



I I (¥" 


n-A '! 


I 


tt 


4 


' •*’' '• ‘ 

u 



A 


aiOAOJ 1 



Sli^ \‘i^«rT fH't’nill. \rt 41 *^ 1 * ♦; » 

rt 4iih*fb '*1^ 

t9*«i»r.q *<i^T , • ^•♦ff :* 11 

/II p.fb' >ci jsr*^ 41 

li iC » •imI #1 *• 

OTHlKiif it Vii 




SEGMENT LINKING - GENERALIZED 


TlfrW 


FWALCDR 

-►FVVALNK 

FWAENTFE 


FTBL poin^&r 


rs^abltjH nil mil 
se^Fient linktage 
pt^rano m 
^ n*w seameril 


dawnhill psintwr - 0^ 


(FWADLNKl 

-^^FWALNK 


|,DOWH pDinl^er] 
^ d(3w nliill polntci 


downhiM pointer 

■ *■ fV^'ADlNK 


|(rv *1 to tw (oqd^d 
lavfll of th»s PTQL? 


externals tn pfevToui 
TsegnwFit to entrifis 

Vin preseni Segmerilj 


fPTBL 


downlitll pr)Inter 
or f(PWAlNK)) 
— ^FWALNK 


^FWADLNK 


/ Fill all uiKatisfled \ 
external} wtth out^f-bounds 
Veferences (Tti oil ^gorrierirt)y 


(PTflL pointprli 


(FWAOLNK^ 

—^hWALHIC 


DOWN pjoTnter 


SQUEEZE 


uphill pointer 
FTftL pcjVnter 


Uiing FWALNK os a FTIL 
pointer loolc up the Unk 
toble of this jegmant* IF 
on;^ etfternol Is satlified 

on oddfiMs > FWADLNK 

(thfs include! our^oF-'baunds. 
t.e.^ unsarisfiecbj jubtroct 
the oddres} from the corres- 
pandFng text locations cts 
specified bjr the detail holf- 
wOfd$t When entire Link 
tdble has been pfogssse^f: 


FWALOOK -4 
— ^FWALNK 
FWADLNK 
— ^PWAENTR 


moke up hitoder word 
irh upliiN and downhill 
pointer! both 0 


sh linkage of 
m new segment 
in previous 
TqmenP _ / 


Place oddreu oF heodei 
word In the uphill 
poiniur d( (FV^AOLNKp 


,»er at ({FWALNJQl 
P^FVMINK 


IFWAOLNK) + 1 
—^ COR NEXT 


mpfe 

poramelers 


/ Fill unsatisfied \ 
OKterrmls looding 
V library progrOms / 


any library 
progroms I coded 


^ proceu blonJt ^ 
^ cemmart y 

n 

f 

/ fink up oil N 
aommon 

\ references / 


1 , 

^ Ptoce 
(^REPL 

ssall 
tobies ^ 


[ 

^ifwp bi 

;t 


1 

'^Frirtt r 

^ trw 

\ 

Mniaty 
>P / 



1 


(Fill 1 

jit tet?J 


vei COfiNEXT oi 

this oddreSi “ 1 

1 

f 

CrFFnte 

reply TO 
coil 


1 


downh IN painter oT 
UFWAENTR)) 

-^FWAENTR 


, 

nt)/^ ~Z 

n? 1 


zU 

1 

r 


HUNT 1 

1_ 

DWN pointei 

s 

































SCOPE 


CHAPTER 13 - SYSTEM PERIPHERAL PROCESSOR ROUTINES 
(TABLE OF CONTENTS) 


AGE 

Control Card Reader 

13-2 

APR 

Automatic Program Sequencer 

13-4 

CHK 

Check Output File 

13-12 

CTS 

COMMON File Processing 

13-13 

DMP 

Dump CM 

13-16 

LDV 

Absolute Overlay Loader 

13-28 

LOG 

Load Octal Cards 

13-30 

MDI 

Move System Directory (EDITLIB) 

13-31 

MEM 

Process MEMORY Function 

13-36 

MSG 

Add Message to Dayfile 

13-155 

REQ 

REQUEST Card/Function Processing 

13-37 

RPL 

Request Field Length 

13-42 

SHE 

Enter Expanded Disk Address into Directory (EDITLIB) 

13-43 

XDQ 

PP Counterpart of XXXDMPQ 

13-46 

XRQ 

PP Counterpart of XXXRESQ 

13-48 

IBT 

Blank Label Tape and Disk 

13-49 

IDF 

Dump Dayfile 

13-50 

IMF 

Multifile Positioning 

13-51 

IMR 

OPEN Read/Alter Magnetic Tape File 

13-52 

IMW 

OPEN Write Magnetic Tape File 

13-53 

IPL 

Dummy Plot Program 

13-54 

IRI 

RolUIn 

13-55 

IRO 

Roll*Out 

13-58 

ITD 

Tape Dump 

13-60 

2 BP 

Check Buffer Parameters 

13-62 

2DF 

Drop File(s) 

13-64 

2LF 

On*Line Printer Driver 

13-65 

2PC 

On*Line Punch Driver 

13-88 

2RC 

On-Line Card Read Driver 

13-105 

2TJ 

Translate Job Card 

13-115 

3RP 

Close Reel Processing 

13-117 

5DA 

Private Disk Packs 

13-123 

6PC 

Drop Permanent Mass Storage Files 

13-154 


October 1969 


13-1 



rt 


M ■ 


I 


I ; • 


I 




» 


I 




j'l 


! 



SCOPE 


ACE CONTROL CARD READER 


Design Philosophy 

ACE was patterened after the control card reading routines in lAJ. ACE was 
designed for use by a central program processing multiple card control state¬ 
ments* The function codes are based on those of CIO. 


Logic Flow 

ACEj when loaded> checks a table for the validness of the function code and 
the subroutine to use. Each function is processed by that subroutine and 
the use of various housekeeping routines. 


Major Subroutines 

SETFNT Set up the FNT for READ or SKIP 

The second word of the Input FNT is saved along with the last 
code/status from the third word. The function code is Inserted 
in the FNT and the FST for the control cards is obtained from 
the control point area. 

REFNT Reset the FNT 

The old code/status is returned to the FNT along with the FST- 
The control card FST is obtained from FSTCC (D.EST) in the PF, 
and returned to the control point area- 

TRANS Transfer data 

The amount of data read is computed and it is transferred to the 

buffer in the control point area- The number of FP bytes read 
is in D.T3+C-RWPPLW and the CM word count is returned in WORDS. 


Function Processing 

READ lOB 

The routine READ is used. The control card is moved one word at 
a time to R,A+70B to RA-h77B. Zero words fill from the end of the 
control card, denoted by a zero in the last byte, to RA+IOOB. If 
the card is split accross FRU^s, RCCF is used to read the next 
PRU- If the first word of the card is zero, the end-of-record 
status (bit 4 of status word) is set meaning end of control cards- 

BACKSPACE 40B 

Since the end of a card is denoted by a zero In the last byte, 
this routine will read backward, a word at a time, until the sec¬ 
ond zero fifth byte is found. The ^'next statement pointer*^ is 
placed at the following word which Is the start of the previous 
control card. RCCE is called if the top of the buffer is reached- 
If RCCB finds the present buffer load is the first PRU, the pointer 
is left at the start of the buffer. When the backspace is issued 
to back to the start of the first card or beyond. The end-of- 
record is set. 
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Environment 


No other routines are used- Stack requests are put through both &-READP 
and R.EREQS- 


Memory Usage 

ACE is about 570g bytes long- 


Usage 

ACE may be called through CPC by the CONTRLC macro or by placing ACE in 
RA+1 or an input register. ACE must be called with the auto recall bit set 
to prevent a central program from using the input file- In the lower 18 
bits of the call is a pointer to the function/status word. This word should 
be zero except for the fifth byte which contains the function code. 

Upon return the status will be set odd. Also bit 4 (20^) will be set for 
end of record. 


Resldence of Routine 


ACE should be disk resident to minimize CM requirements as the usage will 
be small. 
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APR 


Automatic Program Sequencer 

The Automatic Program Sequencer allows the regular rerunning of jobs- 
Jobs are entered under the sequencer via control cards, and at the comp¬ 
letion of execution are saved by the sequencer to be executed again at 
some future time* The control cards serve to place the jobs under the 
control of the sequencer, to supply the interval or execution frequency 
of the job, and to provide the sequencer with certain ^housekeeping 
necessities. Operator control of the sequencer is provided via console 
entries, and the sequencer itself is a peripheral processer program (APR) 
and a table in CMR (T-SEQ). 


The CMR table T,SEQ is used by the sequencer program APR as a working 
storage area. It contains two types of entries. One for the APR program 
and one for each of the jobs running automatically under the sequencer. 

The first entry in the table is the APR entry. Each succeeding entry is 
for a job. The entries are numbered 00-NN where NN is the maximum (octal) 
number of jobs allowed under the sequencer (L.SEQ-l). 

Associated with the sequencer are a number of system pointers. These 


are; 

T.SEQ. 

P.SEQ. 

L.SEQ. 

C.SEQ. 


The address in CMR of the diagnostic sequencer table. 
Word 4 of CMR, Contains T.SEQ/IOB. 

The length of the table. 


The byte in P.SEQ. containing the pointer to T.SEQ 
is in byte 2, 


C.SEQL. The byte in P.SEQ* containing L.SEQ. 


This 

This is in byte 3* 


Calls to APR 


All calls to APR are processed by LOADER. 

APR (0,0) Places APR in the delayed request stack. This call should 
not be made from a control card or through DIS. The call is made by APR 
itself on receipt of an APR (0,1) call or an APR (0,0) call from MTR. 

If this call is made as a result of APR (0,1) being called, the sequencer 
merely puts itself into the delay stack to be recalled by MTR in one 
minute. If called as APR (0,0) from MTR, the clocks for each job in the 
sequencer table (X.SEQ) are decremented. If any of the clocks is zero 
then the sequencer unlocks the file for that job and allows it to be ad¬ 
vanced to a Control Point via begin-job processing, 

APR (Qjl) Turns the sequencer on and places APR (0,0) in the delayed 
request stack; delay is one minute. APR checks to see if the sequencer 
is already on, in which case it issues a dayfile message to the operator 
informing him that the sequencer is already on. This avoids having more 
than one copy of APR in recall. APR always goes into recall at control 
point zero. If it has been determined that the sequencer is not already 
on then APR proceeds to put itself into recall at control point zero 
with a 59.75 second delay. 
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APR (0^2) Turns the sequencer off. This call causes all job sequencing 
to cease. APR clears the on/off switch in the control entry of T.SBQ 
(entry 0) and drops its PP without going into recalls None of the jofosi 
entries in the sequencer table is altered. If the sequencer is subsequently 
turned-on then the rerunning of jobs will continue as before. 

APR (l^XXXXNN) This call is usually made via a control card in a job. 

It makes this job number NN in the sequencer table. Interval will be 
XXXX octal minutes* NN is checked in subroutine CKN to insure that NN 
is within the limits of T.SEQ. Next the drop flag is checked to see if 
the operator has elected to remove this job from the sequencer table. 

If the flag is set then the job is dropped and the job file released via 
end-job processing. If NN is legal and the drop flag is not set then 
a check is made to insure that the job was not entered before. If it 
has then XXXX is disregarded. If the job is not already in the sequencer 
table then the following occurs; S.CFS is set in W.CPERT in the control 
point area and lEJ will later make the file a rewound, locked, input 
entry. The FNT address is saved in the sequencer table for this job and 
the interval and clock bytes are set to the value of XXXX. The number 
of sequencer jobs in the table is incremented in entry 0 and the PP is 
dropped. XXXX^ 3777B and 1:^NN<L.SEQ. 

APR (2.NN) Huns job NN now. NN is checked by CRN, and if valid, then 
the lock bit in the FNT entry for this job is cleared and the job is 
allowed to advance to a control point via begin-job processing. The 
clock byte in the sequencer table is not altered for this job and it will 
be run again at its schedule time. 1^ NN<L.SEQ. 

APR(3 .NN) Drops job NN. NN is checked by CKN and if found to be valid 
APR will set the drop flag for the job NN in the sequencer table. The 
drop flag is checked when the next execution of the job takes place. 

The job is executed this final time and is allowed to drop via end-job 
processing. The entry for this job in T.SEQ is then removed. 

APRC4,XXXXNN) Sets the interval for job NN to XXXX octal minutes. 

NN is checked by CKN as usual and if found to be valid APR proceeds to 
set the interval byte in T.SEQ to the value of XXXX. XXXX and NN are 
extracted from the input register by subroutine INS. The clock byte is 
also reset at this time and the job will not be run at the time scheduled 
by the former interval* XXXXi3777B. 

APR (5tXXXXXX) APR will read the real time clock and place its value in 
byte 4 of CM address RA+XXXXXX of the control point of the calling job. 

If RA-fXX)QCXX is found to be out of range then an error message will be 
issued to the dayfile and APR drops its PP. The job is aborted as a 
result of RA+XXXXXX being out of range* RA+XXXXXX Is left unaltered. 
XXXXXX^ 377777B* 

APR (6.NN) Lists in the Dayfile the diagnostic programs associated with 
job NN. The diagnostic bits for job NN are decoded and yield the name 
of the particular diagnostic program or programs that this sequencer job 
is running. Diagnostic program names are contained in a table within the 
APR program. The message format is as follows: 
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DIAG. SEQ. JOB NM CONTAINS 

FST 

ALS 

CT3 (etc.) 

APR (7,XXXXNN) Sets the bits for the diagnostics associated with job 
NN. NN is checked by CKN. The diagnostic bits for job NN are set to the 
value of XXXX. This call is not necessary just for sequencing jobs, but 
is used just to be able to list jobs with an APR(6,NN) call. The bit 
values for XXXX are: 

0001 0002 0004 0010 0020 0040 

CTO MYl CM6 GUI ALS FST 

APR (lO.XXXXX) APR will place the CMRA, ECRA, and ECFL in RA+XXXXXX 
of CM at the control point of the requesting job. RA+XXXXXX is checked 
to insure that it is within the field length of the control point. Again 
if RA+XXXXXX is out of range an error message is issued to the dayfile 
and the job is aborted without changing the contents of RA+XXXXXX. 
XXXXXX^ 377777B. 

Format of the CM word placed in RA+XXXXXX is as follows: 

byte 0=0 

byte 1 = 0 

byte 2 = CMRA/IOOB 

byte 3 = ECRA/IOOOB 

byte 4 = ECFL/IOOOB 

APR (11,NN) Suppress output, dayfile, and separators of job NN. APR 
sets kill flag (F.ERK) in C.CPEF in control point area and drops job 
at control point. JANUS senses the kill flag and inhibits any output 
from the job. 


Subroutines 

RDT Read entries from the sequencer table (T.SEQ). 

This subroutine is entered with the desired entry number in the 
accumulator. The ordinal is saved and is added to the value of P.SEQ 
to determine the absolute address of the entry in CMR. RDT then returns 
with the entry in D.TWO - D.TW4. 

CKN Checks the value of NN in APR calls. NN is obtained from D.PPlRB+4. 
Since NN is always the sequencer job number it must be as follows: 

1$ NN <L.SEQ 

If the above condition holds then CKN returns with the value of NN 
in the accumulator. 

REQ Requests FNT/FST channels. 

REQ issues FNT and FST channel requests from MTR and returns when both 
channels have been assigned. 
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DRF Drop FNT/FST channels. 

DRP issues requests to MTR to drop the PNT and FST channels. 

INS Assembles interval XXXX and job number NN. 

INS extracts XXXX and NN^ from the input register and returns with 
XXXX in D.PPIRB+3 and NN in D,PPIR&f4. 

LCF Lock file. 

If the FNT address of the input file is known LCF is entered with 
the address in the accumulator. If the FNT address is unknown then 
LCF will call subroutine SCH to find the FNT entry. S.CPS is set in 
W.CPERT in control point area and lEJ will later make the job a rewound, 
locked, input file. 


ULF Unlock file. 

ULF is entered with FNT address in D.T¥2, The entry is read in from 
the FNT table, the lock bit is cleared and the entry is rewritten. 
APR takes the precaution of calling REQ and DRP in performing the 
above. 


SCH Search for *INPUT* file 

SCH searches the FNT for an input file assigned to the jobs control 
point. When the FNT entry has been found SCH returns with the address 
in D.TW3. 
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Header 

Word 

Job I 

m 

* 

Job n 


SEQUENCER TABLE (T,SEQ) 


59 

47 

35 

23 

11 0 

X X 


BB 



d 

— 

mm 

m 

n 


L*SEQ 


1 

d 


ejKijj 


m 

n 


XXX - APR in display code 

a - (L,SEQ-1) number of jobs allowed in table 

b - number of jobs in table 

c - 1 = sequencer off 
0 = sequencer on 

d “ pointer to FNT entry for this job 
e - FST flag 
f - ALS flag 
g - GUI flag 
h - CM6 flag 
i - MYl flag 
3 - CT3 flag J 

k - 1 = drop this job after next execution; set by APR(3,NN) call 
1 - sequencer job ordinal: 01^ (L.SEQ-1) 

m. - job interval set by the APR(1,XXXXNN) call 
n - clock that is decremented by APR(0>0) call 


> these flags are set by the APR(7,XXXXNN) call 
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Messages Issued by APR 

DIAG. SEQ. IS ON. 

Sent after APilCO,!) call. 

DIAG. SEQ. ALREADY ON. 

Sent after APR(0,1) call if sequencer was already on. 

DIAG. SEQ. HAS NO SUCH JOB. 

Sent if APR(2,NN) requested and there is no job NN in the table. 

DIAG. SEQ. JOB NN CONTAINS; 

GUI 

FST (etc.) 

Sent by APR(6,NN). 

T.SEQ LESS THAN 2 CM WORDS. 

Attempt to execute APR with less than sufficient table length. 

ILLEGAL ADDRESS REQUEST TO APR. 

Sent when the address requested in an APR(5,XXXXXX) or an APR(10,XXXXXX) 

call is out of range for the control point. APR will abort the control 
point. 

ILLEGAL DIAG. SEQ. PARAMETER. 

Sent if the following conditions are not met: 

For APRCP1,XXXXNN) O^Pl^llB 

0 ^-XXXX i 3777B 
0*^ NN&L.SEQ-l 

For APR(P1,XXXXXX) 0^P14llB 

04 XXXXXX4 377777B 


Keyboard Entries 

SEQ,ON. 

SEQ,OFF. 

SEQ,RUN,NN. 

SEQ,DROP,NN. 

SEQ,LIST,NN. 
SEQ,INT,XXXX,NN. 


Corresponding APR Call 

APR(0,1) 

APRC0,2) 

APR(2,NN) 

APRC3,NN) 

APRC6,NN) 

APR(4,XXXXNN) 


Where NN is an octal number greater than 0, less than L.SEQ, and XXXX is an 
octal number 0000 to 7777 inclusive. The part of the entry, is processed 

through the normal DSD/IEE method, resulting in a jianp in lEE to SEQX, which 
processes the remainder of the entry. 


Processing of ON. OFF, RUN, DROP, LIST, and INT. 

The first character of the entry is loaded from the keyboard buffer, and shifted 
left one and saved. Each successive character is shifted left one more, that is 
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First character shifted left one 
Second character shifted left two 
Third character shifted left three 
Fourth character shifted left four etc. 

uxitil a separator is encountered. Each character after its shift is added 
to the preceeding character. This gives a sum for each entry: 


ON 

= 

126B 

Ex. 0 = 17B 

LS 

1 = 36B 

OFF 


146B 

N = 16B 

LS 

2 = 70B 

RUN 


350B 

Sum 

= 

126B 

DROP 

= 

710B 




LIST 

= 

1024B 




INT 


352 





This sum is then compared against a table to determine if the entry is one 
of the acceptable ones. If not, a format error will be declared. If the 
entry and separator are acceptable, a jump is made to process the numeric 
part of the entry. 

For ON, OFF, create APR(0,Z) (2 = 1 or 2) 

For RUN, DROP, LIST, create APR(2,NN) (2=2, 3, or 6) 

For INT create APR(4,XXXXNN) 

The word created is then placed in the PP message buffer, and a monj^or 
function 37B (request peripheral job) is executed. 
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CHK Check Output File 

CHK may be called to determine whether or not a file named OUTPUT 
exists at this control point- The address of a status word Is given 
in the low order 18 bits of the input register. searches the 

File Name Table for a local file named OUTPUT attached to this control 
point* If such a file is not found» a flag will be set equal to one. 
If the file is located^ Its position Is tested. If the file is re¬ 
wound, a flag will be set to one - otherwise the flag will be set to 
two. After the flag has been set, the routine stores the flag value 
in the status word specified In the input register and exits* 
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SCOPE 


CTS COMMON File Processing 
General 


CTS is a PP program always loaded at 1000-. It is available to any 
CP or PP program that needs Its services. 


Function 


CTS will make a local file common, or a common file at this control 
point local, or detach a common file at this control point and leave 
it free at control point 0, or bring a common file at control point 
0 to this control point. On the choice of action, see ^ntry 
Information^^ below. 


Entry Information 

The input register has the form: 

VFD 18/OHCTS,3/0,3/n,18/0,l8/a 

where n is the control point number, and a is the address relative to 
RA of the request in central memory. This request has the form: 

VFD 42/name,18/t 

where "name” is the name of the file to be handled, left justified 
with zero fill, and t is: 

0 if there is a local file with that name, which is to be made 
common, or if there is no such local file, bit a free common 
file of that name is to be brought to this control point, 

2 if there is a common file with that name at the control point, 
which is to be changed to a local file, 

4 if there is a common file with that name at the control point, 
which is to be re-assigned to control point zero and so left 
free. 

Any other value of t is treated as if t=4, bit if the value is odd, 
a requested re-call will be Ineffective, and the calling program 
will not know when the action is completed, and will probably mis¬ 
interpret the response. 


Exit Information 


The value of t in bits 0-17 of the CM request word is altered as 
follows: 

a. if t was initially 0, it becomes: 

IIB if thes was already a common file with the name at 
the control point. 

7 otherwise, if there was a local file with the name, but 
also any common file with the same name. 


Nov. 1968 


13-13 



SCOPE 


1 otherwise, If there was a local file with the name, which 
has been converted to consnon, atlll at the control point; or 
if there was no local file with the name, but there was a 
free common file with the name, which has been brought to the 
control point* 

13B Instead of 1, If there was no local file with the name, 
but there was a free common file, but Its equipment was not 
available for assignment to the control point. 

3 if there was no local file with the name, and no free common 

file with the name, but there was such a common file assigned 

to some other control point. 

5 If there was no local file and no common file with the name. 

b. If t was initially 2 or 4, It becomes 1 If there was a coinnon 

file with the name at the control point, which has now been 
made local or free coranon. If there was no consnon file with 
the name at the control point, t becomes 3. 


Other Programs Called 
None. 


Narrative 


First we must find out what flies with the given name are in the FNT. 
We fetch the request, then request the FNT pseudo-channel, as we may 
be going to alter an FNT entry, and then zero cells FLOG, FCCMF, 
FCOHNF, and FCOML. Then, in the routine between CTSA and CTSK-1, we 
scan the FNT, disregarding entries without the required file name. 
FLOC receives the address of the FNT entry for any local file at this 
control point; FCOHF for any common file at control point 0; FCQHL 
for any common file at this control point; and FCOHNF for any connon 
file at any other control point. At CTSK, if the request type Is not 
0, we branch to CTD. Now if FCOMI = 0, there is nothing to be done; 
we set the response to 3 end go to EXIT to write back the response, 
and drop the FNT pseudo-channel and the PP. If FCOHL is not 0, we 
make the proper change in the FNT entry,depending on whether t=2 or 
4, set the response to I, and go to EXIT. 

If the request is type 0 and FCOML is not 0, we set the response to 
IIB because there is already a coomon file with the name at this 
control point, and go to EXIT. 

If the request is type 0 and FCOML ~ 0, we go to CTSKA. Now If 
FLOG = 0, we go to CTSD; what is wanted Is to bring a free common 
file with the given re me to this control point. 
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Then if FCCMF = 0, we cannot do so. 

We set the response to 3 if there Is such a conmon file at another 
control point, or otherwise to 5, and go to EXIT. 

If FCOMF is not 0, we change the control point number in the FNT 
entry It points to our control point number, but do not y«t write 
It back Co Che FNT. Now if the equipment is allocatable, or if it 
is not, but we successfully request it, we write the FNT entry back, 
set the response to 1, and go to EXIT. Otherwise, we send a dayfile 
message, set the response to 13B, and go to EXIT. 

If the request type 0, PCOML is 0, and FLOC is not zero, we want to 
convert the local file FLOC points, to into a conmon file. First we 
make sure FCOMF = FCOMNF = 0, l.e., that there is not already a 
conmon file of the same name. If they are not both zero, set the 
response to 7 and go to EXIT. If they are both zero, change the 
file type in the FNT entry FLOC points to common , write it back 
to CM, set the response to 1, and go to EXIT. 


Subroutines 

LDCA* this merely does what the macro LDCA D.PPIRB+3 would do. 


Messages 

Before returning the unsuccessful response 13B, the dayfile message 
XX UNAVAILABLE 

la Issued. XX is the primary device number of the equipment assigned 
to the conmon file, as shown in its BTJT entry. 


Index to location symbols in CTS flowcharts 


Name 


Name Page 


COl 3 

CTS I 

CTSA 1 

CTSB 1 

CYSC 1 

CTSD 3 

CTSDB 3 

CTSE 3 

C7SF 3 

CTSG 1 

CTSH 1 

CTSJ 1 

CTSK 2 


CTSXA 2 

CTSL 2 

CTSM 2 

CTD 2 

CTDA 2 

EXIT 2 

EX3 2,3 
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SCOPE 


Exit InfonBatlon 


None 


Function 

The input register contains 

18/OHDMP, 3/0» 3/n,18/x, 18/y 

where n Is the control point number, x is the starting address of 
the area to be dumped, and y is the last address of the area to be 
dumped. Four types of dump can be distinguished; they are prefaced 
in the listing with DMPX, EMPC, DMPA, and DMP respectively. 

DMPX. If xF=y=0, the exchange package in the control point is 

dumped, with P, RA, FL, and the registers appropriately 

labelled, and the contents of the words to which the 8 
A*registers point also listed. RA“K) through RAH-77B are then 
dumped, numbered relative to RA, and the address at which the 
CP program stopped is determined; let us call this J. If P 
in the exchange package is non zero, J~F. Then cells RA+J^IOOB 
{or RA+IOOB If J is less than 200B} through RA+J+77B are dumped. 

DMPC* If the 200B cells of the control point are dumped, 

numbered 0 through 177B. 

DMPA. If X is greater than 377777B, it is reduced by 400000B. Then 
if y is greater than 377777B it is similarly reduced. Then 
cells X through y-l are dumped, numbered absolutely. But If 
X is greater than y after reduction by 400000B as necessary, 
the dump is terminated. 

DMP. If X is less than 400000B, cells RA-hx through RA+y-l are 

dumped, numbered relative to RA. But if x is greater than 
y, or if y is greater than the field length of the job, the 
dump is terminated. 

DMP can be aborted either by an operator drop or an I/O error. A 
message will be Issued - DMP ABORTED - prior to exit. 

DMP has been given the capability to produce labelled and change dumps 
when requested by the user. The following is a general description 
of the process as it differs from the original OHF program. 

1. The input register is read. If bits 0-35 contain all ones, 
then DMP was called by control card. The routine ARC is 
called to fetch the parameters starting at RA+2. ARC also 
checks bits 28-29 of RA+66 to determine whether a labelled 
or change dump is requested. If the input register does not 
contain all ones in bits 0-35, then DMP was called by MTR 
and no labelled dump will be given. The dump parameters, in 
this case, are taken from the input register. 


13-17 


Nov. 1968 



SCOPE 


DMF Routine to Dump CM 


General 


CMP Is a PP program always loaded at lOOOB- It dumps one or more 
sections of central memory, in octal representation, on the file 
OUTPUT belonging to the same control point, for eventual listing, 

DMP is called in one of three ways: 

1, By a control card with one of three forms: 

DMP- (equivalent to DMP (0-0)) 

DMP (y) (equivalent to DMP (O.y)) 

DMP (x-y) 

2, By SCOPE for a job that is aborted, before any control cards 
that may follow an EXIT card are obeyed- The call is 
equivalent to DMP (0.0). 

3, By a CP program that puts into its RA+1 a word of the form 
VFD iS/OHDMP, 6/0, 18/x, 18/y 

No recall is possible; l.e. the CP program cannot know when the 
action has been completed. Bit 40 of the word must be 0, as in the 
above format. If it were 1, SCOPE would look at the word in RA+y, 
and if bit 0 of that word were 1 at the critical moment, it would 
be as if bit 40 of the request word had been 0 in the first place. 

But if bit 0 of the word at RA-Hy were 0, the CP program would be 
hung up. 

Note also that words RA+70E through RA+74B are temporarily disturbed, 
as explained in the next sect!on- 


Other Programs Called 

OPE is called into another PF toopen the OUTPUT file. If the OUTPUT 
file is on a non-allocatable device, then calls are made to CIO to 
write formatted data from central memory to the OUTPUT file. To get 
the central memory space needed for the buffer area and FET, DMP 
requests as much storage as it can have up to the CM equivalent of its 
PP buffer area. The minimum amount acceptable is 300 octal CM words. 
If the OUTPUT file is on an allocatable device, then DMP issued stack 
requests to write the formatted data from the PP buffer to the file. 

The FET for this CIO call Is put temporarily at locations RA+70B 
through RA+74B. They are restored after the FET shows the action 
has been completed. 


Entry Information 

Only the call in the PP input register* 
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2. If a labelled dump is requested, ARC reads the DEBUG file 
and builds a list of all program and COMMON names and their 
starting addresses* 

3* The routine ELB is called to output the dump* If a labelled 
dump Is requested, the list of names prepared by AEG Is used 
to output the labels. 

4- The routine GHD is called to output the change dump if 

requested. A change dump is always preceded by a labelled 
dump- 

Core allocation of DMP is as follows. Addresses are approximate. 


1000 

(DMP) 

Start of permanent code 

4100 

(DBSTT) 

Start of output buffer and code used 
for initialization (ARC,FNT,OUTS) 

6200 

(IBUF) 

Start of input buffer. The output 
buffer also uses this space if there 
is not to be a labelled dump. 


Step 

This suboutine is really STEPA, but macro is defined as RJM 

STEPA. It puts the contents of the A*register, 2 characters to be 
added to the dump, into the cell in the buffer to which BIAB points, 
and then increases BlAB by 1- If BIAB now contains DBSTT+ buffer 
limit, the buffer is full and subroutine DBITF is called to write it 
out and reset BIAB to contain DBSTT* 

Entry Information 

Two characters In A, and a buffer pointer In BIAB. 

Exit Information 


BIAB updated. 
Subroutine Called 


DBUF 

Registers Destroyed 

Only those DBUP destroys if it is called. 

STUFF 

Converts bits 0-5 of the A-reglster, considered as two octal digits, 
to the two corresponding display code characters in bits 0-11 of the 
A-register. 
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Entry and Exit Information 
Only the contents of A. 


Register Destroyed 
COUNT2 


ENDLINE 

When this is called^ BlAB points to the next free cell In the PP buffer 
beginning at DBSTT. The subroutine adds from 1 to 5 pairs of blanks to 
the buffer, updating BlAB, until the buffer contains an Integral multiple 
of 5 FP words, l.e. an integral number of CH words* To find out how many 
pairs of blanks to add, the number of bytes already in the buffer is divided 
by S, by subtracting SOB and then 5 repeatedly* The quotient is not 
interesting* If the remainder Is 0, add 5 bytes, otherwise add 5-remainder 
bytes. 

Entry Information 
Buffer pointer in BIAS* 

Exit Information 


BlAB updated. 

Subroutine Called 
STEP 

Registers Destroyed 

COUNT, and those that DBUF destroys if STEP calls DBUF* 

PUTBLAN 

This is called with a number in the A-register Indicating how many blank 
bytes are to be added to the PP buffer. The subroutine merely adds the 
bytes* 

Entry Information 

Number in A-register, buffer pointer In BlAB* 

Exit Information 


BIAS updated 
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Subroutine Called 


STEP 

Registers Destroyed 

C0UNT2, and those that DBUF destroys If STEP calls DBUF. 


ELB 

This diimps central memoryj from the word addressed by the sum of the contents 
of RAFETGRfl and lA, IA+1, to the word next before that addressed by the sum 
of the contents of RAJETCH, RAFETCH+1, and TA, RA+1. I A, IA+1 are stepped 
progressively until equal to TA, TA4-1- (Let us call these simply I A, TA and 
RAFETCH). Basically, the words are dumped four to a line, the first of a 
line being one whose address relative to the content of RAFETCH is divisible 
by 4; the address of this word relative to the content of R^ETGH is printed 
at the beginning of the line. When a word from CM is the same as the pre¬ 
ceding one, it is passed over, and this continues until an unlike word or 
the last word to be dumped is reached. The first word to be output after 
skipping is put in the next available column, and is preceded by its address 
relative to the content of RAFETCH- If the next available column is the 
first, the address appears normal except that it may not be divisible by 4- 
In any other column, the address will be separated from the word by a right 
arrow instead of a blank. It is only when it comes after some skipped words 
that a word whose relative address is divisible by 4 can appear in the 2nd, 
3rd or 4th column* Otherwise, any word with such an address is put in the 
first column, even if this leaves one or more columns vacant on the preceding 
line. 

To begin ELB, first test is made to see whether TA is greater than lA, and 
immediately exit if not- This precaution would appear to be unnecessary, 
but in fact if the CP halts with P==l, and a DMPX is done, the logic between 
GOP and £05 in this program will produce TA—IA=100B before calling on ELB. 
Probably this is the only such possibility, but the safeguard is in ELB in 
case ther are others lurking- 

At ELA the word lA points to is fetched. Just before ELM there is a test 
whether this is the first time the sequence beginning at ELA has been 
executed. (It ought to test whether the first time since soubroutine ELB 
was Called, but it tests whether the first time since DMP was loaded, "^he 
only time ELB can be called twice for one loading of FMP is in the case of 
DMPX, and then the flaw in the logic may result in skipping over the first 
few words when dumping F-IOOB to P+IOOB.) If so, things proceed as if the 
word were different from the preceding word and ELB goes to ELM- If not, 
it goes to ELMl and matches the word with what is stored at BGOM through 
BCOM+4 (this is the preceding word). If bits 24-59 match, and bits 48-59 
are 6000B, it is assumed that the word Is a kind of pre-fill with which 
unused memory is stuffed by some loaders* The low order 17 bits would be 
the address of the cell itself relative to RA, and so though the word is 
negligible, It Is not Identical with the preceding word. (As a floating 
point number, the word Is negative indefinite. As instructions, it is 
SB0=O and PS”)- So now without actually being sure that bits 24-47 contain 
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OOOOOOOOB, nor that bits 12-17 of the word are correct, bits 0-11 are 
matched against the contents of IA+1, the low order part of the relative 
address of the cell. If this matches, go to EI212, otherwise to EUl. If 
bits 24-59 match those of the preceding word but bits 48-59 are not 6000B, 
something more comprehensible is done, match bits 0-23, and go to EU12 for 
a complete natch, and otherwise to ELM. Of course if bits 25-59 do not 
match, we go to ELM. 

At ELM2 set ELSET=1 to show that at least one word is being skipped, so 
that the next time a word is output it will be preceded by its address 
and maybe an arrow. Then go to ELC as if the word has been dumped. 

At Em copy the new word into BCOM through BCOM+4 to replace Its unlike 
predecessor, and serve for comparing the next succeeding word. 

Now if ELSET contains zero, skipping has not Just been taking place, so 
go to EL13 to find out whether to print the address of the word relative 
to the content of RAFETCH, i.e., whether it is going to fall into the 
first column. In cell WORDS there Is a column count that was set=l at 
the very beginning of DMP, and which always contains the number of the 
next available column, between 1 and 4. If It now contains 1, go to 
EL15 to print the address. If not, get to EL131 and check whether lAf 1 
is divisible by 4. If so, any free columns must be skipped and the 

current word put in column 1 of a new line, so call subroutine ENDLINE 

to terminate the current line, set W0RDS=1, and go to EL15. (This will 
happen if cell lOOOB contains something that is dumped in column 2; 

1025B and 1026B get dumped in columns 3 and 4, and 1027B is dumped in 

column 1 of the next line. Now 1030B comes up, and if different from 

1027B, it is dumped in column 1 of yet another line.) 

If the word is definitely not going to be dumped in column 1, come to 
EL14. It is going to be preceded by four blanks, not by any sort of 
address, so call subroutine PUTBLAN to add these blanks and then go to 
EL18 to format the word itself. 

Come to EL15 when the address before the word itself must be output, 
whether in column 1 or not. First format the address taken from IA 
and IA+1, and put it in the buffer. Then add either three blanks or 
one arrow to the buffer, depending on whether we are in column 1 or 
not- Then continue to EL18. 

From EL18 to nearly ELC the word taken from CM is being formatted into 
four groups of five octal digits in display code, with a blank after 
each group, and the whole thing added to the buffer. Then the column 
count in WORDS is Increased by 1. If It reached 5, call subroutine 
ENDLINE to end the line and reset WORDS to 1 to begin a new one. Come 
to ELC when a word has been completely dealt with, by dumping it and 
maybe its address, or by skipping it. Now add 1 to IA+08 and if not 
equal to TA return to RLA to work on the next word. If lA now=TA, 
exit Iniaediately from ELB if ELSETX), Indicating that the last word 
looked at was not skipped. But otherwise, in order to dump the last 
word so that the user will not be confused about the terminal address 
of his dump, alter the copy of the word before the last in BCOM, back 
up the address in lA, and return to ELA. Now the last word will be 
re-processed as if it were different from its predecessor. 


13-21 


Nov. 1968 



SCOPE 


Entry Information 

Initial and terminal address in lA, lA+1, TA, TA-M. 

Base address In RAFETCH, RAFETGlfhl. 

Buffer pointer in BlAB* 

Exit Information 

Updated buffer pointer in BIAB* lA now=TA| IA+1=TA+1, TA, TA+1, RAFETCH, 
RAFETCH-l-1 unchanged. (Secondarily, DBUF by STEP). 

After each time lA has been incremented, a check is made to see if it equals 
the next address in the name table. If so, the routine LEO is called to 
print the appropriate label message. Certain portions of the code in ELB 
have been placed in subroutines (WORDY and ADR), so that this code could 
easily be used by the change dump routine, GHD. 

Registers Destroyed 

IA, IA+1, D.BA through D.BA+4, also any that ENDLINE,PUTBLAN, STUF, STEP, 
DBUF destroy if called. 


DBUF 

DBUF writes out the PP buffer on the output file, using calls to CIO or 
R.WRITEP. DBUF is called each time the buffer is full, with lOOOB CM 
words, using a function code 0-WRP or WRITE in the request it puts out, 
and once while terminating DMP, to clear out the buffer and/or write the 
short sector, using 0-WRPR or WRITE. 

Entry Information 

Buffer Pointer In BIAB. Function code at OPCODE- 

Exlt Information 

None (BIAB reset to DBSTT). 

Subroucines Called 

R.WRITE?, REQPP, WAIT, TFLCCMPTE. 

Registers Destroyed 

D.TO through D.T4; also D.T5 through D.T7 by R.WRITE? and D-26 and D.Z7. 


FCF 

This is called by subroutine DAB, and by the main routine below DXR, to 
take the word in D.TO through D.T4 and add it to the buffer after formatting 
it into five groups of four display code octal digits, each preceded by a 
pair of blank characters. 

Entry Information 

The word in D.TO through D.T4; the buffer pointer at BIAB. 
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Exit Information 

Only the updated buffer pointer, at BIAS* 

Subroutines Called 

PUTBLAN, STUF (also STEP by PUTBLAN and DBUF possibly by STEP) 

Registers Destroyed 

COUNT (also C0UNT2 by PUTBLAN and STUF, and those that DBUF destroys if 
called by STEP)* 

DREG 


This is called by the main routine below DMPX, while dumping the exchange 
package, four times - to format P, AO, BOj RA, Al, Bl; 1^, A2, B2; and EM, 
A3, B3, as well as the contents of the cell pointed to by each A-register* 
Before calling DREG, the word of the exchange package has been fetched to 
D*TO through D*T4, the A-register part of the word has been saved at ASAV 
(except in the case of AO), and the P, RA, FL, or EM, has already been put 
Into the buffer with subroutine STEP* DREG, on being called, now puts a 
pair of blanks in the buffer, and then formats the number from bits 36^53 
of the exchange package word, and puts the six octal digits in the buffer 
after PP, KA, RA+FL, or EM. Then it adds another pair of blanks to the 
buffer. Then it calls subroutine DAB to format and write out the contents 
of the A and B .registers and the word the A-register points to. 

Entry Information 

A word from the exchange package in D-T008 through D-T4; the buffer pointer 
in BIAB* 

Exit Information 

The buffer pointer in BIAB updated. D-TO through D.T4 unchanged* 

Subroutines Called 

PUTBLAN, STUF, DBA (also ENDLINE and FCF by DAB; STEP by all of them. Note 
that DBUF is never called by STEP, as DREG is only called for a IMBX-type 
dump, and this kind of dump cannot fill the PP buffer). 

Registers Destroyed 

None by DREG directly; COUNT and COUNT2 by PUTBLAN, STUF, DAB, ENDLINE, FCF, 
STEP. 

DAB 


This is called by subroutine DREG to dump the A and B registers numbers 0 
to 3, and the contents of the words of the A registers point to,and by the 
main routine below DEX4 to dump registers 4 to 7* If DAB is called at all 
during BMP, it will be called exactly eight times; and the A-register number 
at DAl, the B-register number at DBBl, and the A-register number at DCAl 
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for C(An)“lN the dump are all Increased by I each time through, immediately 
after being used. The 1 ogic of DAB Is completely straight forward. The 
word from the control point area is already in D.TO through D.T40S when DAB 
Is called, and the A-address portion of it has already been saved In ASAV 
and ASAV+1, After the B-address portion has been formatted and put in the 
buffer, TA which contains the address of the exchange package word in CM, 
is compared with the address of the control point. If they are the same, 
the A-register was AO, which is not considered to point urgently to any¬ 
thing; so subroutine ENDLINE is called to round off the line in the buffer 
and then the program exits from DAB. Otherwise DAB continues to fetch the 
word that ASAV and ASAV+1 point to, format it, and add it to the buffer 
before calling ENDLINE and exiting. 

Entry Information 

A word from the exchange package in D.TO through D.T4; the A-register 
portion of this in ASAV and ASAV+1; the buffer pointer in BIAB; the CM - 
address of the exchange-package word in TA. 

Exit Information 

The buffer pointer in BlAB updated. 

Subroutines Called 

STEP, PUTBLAN, STUF, FCF, ENDLINE. 

Registers Destroyed 

COUNT, C0UNT2, and D.TO through D.T4. 

Note that DBUF is never called in connection with DAB, for the same reason 
as explained above for subroutine DREG. 


OUTS 


This subroutine is called only once, rather early in the main routine, 
to locate or create the FNT entry for the output file on which the dump 
is to be written. 


ARG 

This routine is always called when DMP Is called by control card. It 
does the following: 

a. Checks bits 28-29 of RA+66 and sets a flag (DIMPFLAG) = 1 if a 
labelled dmxp is requested and = 3 if both labelled and change 
dumps are requested. 

b« If a labelled dump is requested, FNT Is called to find the FNT/ 
FST entry for the file DEBUG. The file is then rewound and read 
to the end of the first record (loader table record). As the 
file Is being read, a name table consisting of 5-word entries 
is built in the following format: 
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IBUF +1 +2 +3 +4 


NAME 

Adr 

NAME 

Adr 


... 

# • * 

NAME 

Adr 

0 

Adr 


If the DEBUG file has to be reread before reaching end-of-record, 
the origin of the input buffer is moved up because the table is 
built at the start of the input buffer* Word one of each 5*word 
entry will have one of the following meanings; 


Zero: 


This is the last entry in the table. The 
address refers to the LWA of the load* 


Bit 59=0: The name in bits 18-50 is the name of the 

program- 

Bit 59=1: The name in bits 18-58 is the name of 

labelled common block. 


7700g: This entry refers to blank common. 

c* The parameter count is fetched from RA+64. If a labelled dimp 

is not requested, the maximum allowable number is two, but if a 
labelled dump is requested, there may be up to four parameters, 
because of the use of the empty parameter preceding a name to 
designate a common block name. The parameters are picked up, 
starting at RAH-Z, and converted to octal. AEG exits after a 
value has been stored at both lA (Starting dump address) and TA 
(ending dump address). Alpha-numeric parameters are allowed 
only if a labelled dump has been requested. The table of names 
Is searched for the corresponding name and address. If the name 
is not found in the table, a dump ARG error results^ 


DMP4 


This routine processes the DMP AEG ERROR message* It has been changed so 
that DMP does not abort, but merely Ignores the dump, drops the PP, and 
exits to the idle loop. 
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MOVEIN 


This small routine is used by AEG to place a program or labelled common 
name in the name table* In order to determine whether labelled conmon 
addresses have already been stored in the table, this routine maintains 
a location (LOG) which contains the value of the highest address stored 
in the table. 


BLCM 


This small routine is used by ARG to place the blank comnon indicator 
and address In the name table. After the store is performed, the blank 
comnon indicator (BL, BLl) Is cleared to prevent more than one call to 
this routine. 


LEO 


This routine Is called by ELB whenever it is time to print the next 
labelled dump message. Printing of the proper message is controlled 
by a flag (TT) which is changed by both ELB and LEO* The flag has the 
following meanings: 

0 lA is still less than the first address in the name table, so the 
message "LOW CORE*' Is printed. 

1 lA is between the first and last address in the name table, but it 
is necessary to use the previous table entry, since this is the 
first entry to LEO, and lA was Initially between two program origins. 
The program name (or // for blank common) followed by the message 
"PROGRAM" or "COMMON" will be printed. 

2 Same as above, except it Is not necessary to use tbe previous table 
entry. 

3 lA is equal to or greater than the last name table address. The 
message "END OF LOAD" Is printed- 


ADR 

This routine is called by ELB and CHD to place the absolute address in 
the print line. This function was previously Imbedded in ELB. 


WORDY 


This routine Is called by ELB and CHD to format a CM word and place it 
in the print line. This function was previously Imbedded in ELB. 

The format of the print line had to be changed to make room for the 
relative address counter. The rightmost character now goes in print 
position 136, where it previously went in position 129. The relative 
location counter (if the dump is labelled) goes on the extreme left 
side of the line* 
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CHD 


This routine prints the change dump, if one Is requested- The following 

takes place: 

a. lA Is reset to the requested FWA of the dimp- 

b. The DEBUG file is positioned to the end of the first record and is 
read- (The name table used for the labelled dump is now lost*) A 
pointer to the word in the input buffer (5 PP words) is established 
which corresponds to lA- 

c. The CM word at lA is fetched and compared with the corresponding word 
in the input buffer. 

d. If the words are equalf lA and the buffer pointer are incremented, 
and step c Is repeated. 

e. If the words do not compare, ADR is called to print the absolute 
address lA, and WORDY is called twice, first to print the current 
value of the CM word at lA, and then the value as indicated in the 
input buffer. 

f. Steps c-e are repeated until lA equals TA. 


FNT 

This routine is called by ARG to find the FNT address of the file DEBUG. 
When found, the FNT address is stored in the proper field of the request 
that will be used by READ to read the file. 

If an entry for the file cannot be found, or if the entry designates that 
the file is on a non-allocatable type device, the special dump flag is 
cleared. This will result in the dump being a regular unlabelled dump. 


REWIND 


This routine rewinds the file DEBUG by setting the appropriate fields 
in the FST. The current RBA is reset to the first RBA, and the current 
RBT and current PRU fields are set to zero- 


READ 


This routine issues a call to R.READP In order to read the file DEBUG 
to PP memory. On entry to this routine, the accumulator contains the 
desired FWA for the read. This will normally be IBITF, but will be a 
higher address on successive reads to a long loader table record, while 
ARG is building the name table- 
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ldv absolute overlay loader 

This PP overlay is called as a result of the user’s program issuing the 
following request: 

LOADREQ> param 


I. OVEHLAY LOADING 

If the value of "param" is non-zero, it points to a two-word area in 
the user's field length containing the following information: 



WOBD I 
WORD 2 


The full significance of this two-word area is described in papter 3 
of the SCOPE 3 Beference Manual. Of significance here are the fields 
Ifn, lwa+1, fwa, v, and u as all other fields are Ignored. For param 
^ 0, the operation proceeds as follows: 

Xf V = 0, this is not a request to load overlays. This unauthorized 
use of LOADREQ will result in a call to LDR. 

2. If V = l.and u = 0, this Is a request to load an overlay from a 
user file and results in a call to the PP overlay LDR. LDV will 
replace the name LDV in bits 42-59 of its input register with the 
name LDR. The input register is restored to central memory and 
and exit is made from LDV with a Jump to R.IDLE. 

3 , If V = 1 and u = 1, this is a request to load a CP overlay from 
the system library. This procedure is as follows: 

a. A request is made by LDV to drop the CP. 

b. A baclcward search is made of the portion of the Program Name 
Table (PNT) in the system library directory containing names 
of CP overlays. The CP overlay sought after by this request 
is named Ifn. This search is executed with a return jump to 
a closed subroutine within LDV, DIBSCH. 

c. If upon return from DIRSCH, (A) =0, no entry had been found 
in the PNT by this name, an error diagnostic is issued to the 
dayfile and the user's job is aborted. 

d. If upon return from OIRSCH, (A) Q, (a) = the CP location 

in the PNT containing an entry for this name. This entry had 
been read by DIRSCH from central memory into PP memory at lo¬ 
cations D.T5 through D.T5+9. v la 

e. A space check is made; Is overlay size (defined by the 18 bit 
field contained in the lower half of D.T5+3 and in D.T5+4) less 
than or equal to lwa+1 - fwa? If not, a diagnostic is issued 
to the dayfile and the user's job la aborted. 

f. The residency check is made: If CM resident (defined by bits 
7-4 of D.T5+5 being 0), the overlay is moved from CMR into 
user's area beginning at (RA) + fwa. If disk resident, a stack 
request is formatted and entered into the stack for the mass 
storage device* 
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g. t^on completion of loading the overlay into the user^s area* 
the reply information is generated* 

-WOHDl is cleared to zero 

-W0ED2 is filled with the following information 

59 53_37 36 35 17 0 


1 


ne 

f e 

aa 

ea 


where 1, ne, fe, and aa are set to zero and ea = entry point 
address is taken from bits 0-17 of the 1st word of the 50 
table for this overlay. 

- the last word address +1 of the CP overlay storage in user^s 
field length is inserted Into bits 0^17 of (RA) + 65B 

* The first word address of the CP overlay = fwa is inserted 
into bit 0-17 of (HA) 4- 66B 

- all other previous information in (RA) + 64B through 
(RA) -H 67B is retained. 

a request is made to recall the CP 

- a request is made to drop the PP 

- an exit jump is made to R.IDLE 


II- SPECIAL GALL FOR COMPILE LOAD AND GO OPERATION 


A RUN(G) control card causes a LOADEtEQ request to be issued with param 
0. The occurrence of this option will result in a special use of the 
LOADREQ request. LDV will do the following: 

1. Insert a 64B into bits 0-17 of the PP input register- 

2, Obtain a byte from a word in the control point area. This word 
is referenced by the label ¥-CPLDR. The byte begins in bit 19 
of this word. The content of this byte Is an Indication as to 
which loader is currently used by the job executing at this control 
point* 

3* This value in this byte will be used as an index to be added to 
the first word address of a table of pointers. 

(byte) + TBLPTRS-*- A 

The resulting address points to the 1st of two PP locations containing 
the 3-character name of a PP overlay* This name is inserted into bits 
42-59 of the input register for this PP. 

((A))-^P*P.1.R* bits 59-48 

((A>+1).~^P,P.I,R- bits 47-42 
11 o 

4. This name represents the PP overlay which is called upon to load 
the loader selected for the job currently executing at this control 
point. 

The PP input register Is restored to central memory, and an exit jump is 
made from LDV to R.IDLE. 
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LOG Load Octal Cards 

LOG will process the next logical record on the file named INPUT. A 
block of central memory may be optionally cleared prior to loading 
corrections* If the clearing option Is to be used, the range Is 
specified In the Input register as follows: 

Bits 18-35.* First word address of area to clear 
Bits 0-17*. Last word address +l of area to clear 

Storage clearing is performed In the subroutine CLS. The FNT is then 
searched to locate the file named INPUT at this control point (PNTSRCH). 
Once the file Is Iccated, PP memory Is prepared for a disc read Into the 
PP (BUFINIT) and up to 5000B PP words are read (READPP). The routine, 
UNPACK, Is called to extract one card image, i.e* one octal correction. 
AAD and ASV are then called to extract the address and word content, 
respectively, from the card Image. The word Is written to central memory 
and LOC loops back to UNPACK for the next card. 

This process continues (with calls to READPP to read more data, If 
necessary until an end-of-record status Is encountered* 
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SCOPE 


MDI Move System Directory (EDITLIB) 


Genera 1 


MDI is a PP program, always loaded at lOOOB, It is called only by EDITLIB, 
in connection with directory manipulation! 


Function. Entry and Exit Information 
The input register always has the form: 

VFD 18/OHMDI,3/0,3/n,18/0,18/a 

where n is the control point number and a is the address relative to 
RA of the first of two consecutive cells in central memory containing 
the request. These two cells are formatted: 

VFD 12/t,A8/0 
VFD 30/c,30/d 

Bit zero of the first of these words is set to 1 by MDI when it has completed 
its action. The nature of the action depends on t. 

If t is greater than 4, the job is aborted. 

t^, c in the request is ignored. The GM-resident directory is copied 
into cells BA+d through RA+d+k-l, and the two cells at RA+a and RA+a+1 
are left: 

VFD30/b,30/l 

VFD30/k,30/d 

K is the length of the directory, and b is the absolute address at which 
it begins in the CM resident. No check is made on whether k+k is greater 
than the field length of the job. 

If t=2, the action is the same as for t=0, except that only the file 
name table in the directory Is copied. Instead of the whole directory. 

Then k is the length of this table. 

If t=3, nothing is copied to or from the directory, but the two cells 
at RA+a and RA+a+1 are left as for tH), This option is used by EDITLIB 
when it needs to know only the address of the directory. D and c in the 
request, and k in the response, have no significance. 

If t=l, the CH-resident directory is to be replaced by the words in 
RA+d through RA+dhc-1. But first the operator is to be given a chance 
to abort the Job. So MDI alters t in the request, in central memory, 
to 4; sets bit 12 of RAH) to 1 (a type-in of n.GO can zero it), puts 
the message "EDITLIB WARNING - GO OR DROP" on the B-dlsplay, and recalls 
Itself with one second delay* 
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If t—4, and bit 12 of RA+0 has been reset to 0, the replacement is carried 
out and the response in cells RA+a and RA+a+1 is: 

VFD 30/b,30/l 
VFD 30/c.30/d 

where b has no signlficance- 


Other Programs Galled 
IMD (see subroutine GRPQ) 


PP-Resident Subroutines Called 


R-MTR for storage request for control point 0^ if the length of the 
CM-resident directory is changed. 


Narrative 


Note that there are macros defined for loading, subtracting, and storing 
CM addresses taken from 2 consecutive bytes- The 2-byte address holders 
are named by their first byte, and this is not specially noted below. 

First we check the error flag, and drop the PP if it is set. Then check 

bit 12 of RA+0; if it is 1, we are waiting for a type-in of n-GO or 

n.DROP, and so branch to RECALL to recall MDI after one second. Otherwise 

the request is brought from RA+a and RA+a^-l to TYPE through TYPE+9, and 
CM cell P-LIB Is read into D-TO through D.T4 and HOLD through HOLD+4* 

This means that the 2-byte address of the beginning of the directory 
is at D-TO and HOLD, and its Last+1 address is at D-T2 and for type 0, 

GP for type 1, GE for type 2, and GAB for HOLD+2. Then we branch on the 
type of request; to GA for type 0, GPRE for type 1, GE for type 2, GAB 
for type 3, or GP for type 4- 

We go to GAB when all necessary copying has been done, or if type 3, 
immediately because there is no copying- The response will be copied back 
from TYPE through TYPEH-9 to RA+a and RA>+A+1, but RA+a will be copied 
last to prevent the CP program from seeing the completion bit prematurely 
First the completion bit is set to 1 in TYPE+4- Then the 2-byte address 
of the start of the CM -resident directory Is moved from HOLD to bits 
30-47 of the word in TYPE through TYPE+4. Then the 2-byte address in 
TYPE+5 and +6, which will be the length of what was copied if anything 
was. Is moved to bits 30-47 of the word in TYPE+ through TYPE+9; the 
request is returned to central memory, and the PP is dropped. 

Now for what is done before going to GAB if the request type is not 3- 
If the type is 0, we go to GA- Subtract the 2-byte address of the start 
of the directory from that of Its end+1 and store the length in TYPE+5 
and TYPE+6, from which it will be copied later into the response, and 
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also at BS and BS+1| where It will be counted down as the directory is 
copled« Then move the 2-byte destination address from TYPE+8, adding 
RA to it, and store at D,T2. Now copy the directory^ in the loop from 
GAD to GAB-1* If BS contains 0^ the move is completed and we go to 
GAB* 


If BS contains not less than TH, which was preset to lOOOOB, go to GAC, 
reduce (BS) by (TH), and copy (TH) words from the address D*T0 points to 
the address D.T2 points to, and add(TH) to those address holders* Then 
return to GAD. But if BS contains less than TH, store (BS) in TH and 
return to GAD to try again* Then if BS contained zero, we are finished 
and go to GAB. Otherwise we come through the loop again, setting BS 
to zero this time, and move (TH) words, some number less than lOOOB, 
and go back to GAD, whereupon we find (BS)H3 and finish. 

If the type is 2 we have a similar action. But instead of using the 
pointers at D.TO and D.T2 that frame the whole directory, we must first 
replace them with pointers to the beginning and end+1 of the program 
name table. So we go to GE and read the word D.TO points to* This is 
the first word of the directory. Bits 0-17 of that word point to the 
word of the directory that sits between the end of the entry point table 
and the beginning of the program name table. We read that word into 
HOLD through HOLD+4, and store address plus I at D.TO, as the beginning 
address of what we have to copy- Now bits 0-17 of the word in HOLD 
through HOLD-f-4 are the address of the word that follows the program name 
table, so we move that address to D.T2 as the last+l address of what 
we have to copy. Now we are nearly ready to go to GA and copy as if the 
type were 0. But HOLD 8 through HOLD+4 no longer contain a copy of 
D.TO through D.T4, which Is what we shall want after CAB, so we first 
make them contain such a copy, and then go on to GA. 

If the type is 1 we go to GPRE, to change the type to 4, put the go-or- 
drop message in the B-display, set bit 12 of RA+O to 1, and recall MDI 
with one second delay. If the byte is 4, and we have got this far, the 
operator has consented and we go to GP* First we get the length of the 
new directory and store it at TYPE+5 and TYFE+b, then add it to the address 
of the beginning of the GM-resident directory, and store what will be 
the new end+1 address in HOLD+2. Then we see whether this is at, above, 
or below the present field length of contol point zero. If it is at, 
there is no problem and we go to GPE, call subroutine GPW to cpy the new 
directory to CM resident, and then go to GAB to terminate. If it is below 
the present field length, we go to GPF; call subroutine GPW to copy the 
new directory; then call subroutine GPRQ to reduce the field length of 
control point zero; and finally go to GAB# If the new directory would 
extend beyond the present field length of control point zero, we must 
first call subroutine GPRQ to request a larger field length; then go to 
RECALL to recall MDI after 1 second delay. This will happen repeatedly 
until either increased field length is granted, or the operator drops the 
job* 


Subroutines 


The only subroutines are GPW and GPRQ, which are only called for type 1 
requests. 
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GPW 


This subroutine copies a new directory, whose address relative to RA Is 
In TYPE+8 and whose length Is at TYPE+5, Into CM resident, beginning at 
the address In HOLD (and also In DdO, but we are about to destroy that). 
First we zero CM cell P.Llfi, and wait one second. The directory Is already 
unavailable for CM loading, because file SYSTEM has been assigned to our 
control point. But we must make is unavailable to PP>resldents before 
disturbing it. If a PP-resident finds zero in cell P.LIB, it waits for 
non-zero, which we shall not reset until the new directory has been 
completely copied. If a PP-resldent finds non-zero just before we zero 
the cell, we give it one second to complete using the directory, '^his is 
safe because the PP-resldent needs only to copy a CM-resldent program 
out of the directory, which it can certainly do in less than a second 
unless there Is some Incredible jamming of the channels (pyramids) between 
central memory and PP-memory, or else to get the disk address of a program 
from the directory. No program on disk is ever destroyed by EDITLIB or 
HDX. Even If it is superseded, the older copy is still there and can be 
successfully read once the disk address has been obtained, which can 
certainly be done within the 1-second delay. 

After the delay, we move the length of the new directory from TYPE+5 to 
BS, its starting address, with HA added on, to D.T2, and the starting 
destination address in CM. Resident from HOLD to D.TO. Then copy the 
directory with the loop at GPD and GPG just as we did above, in the reverse 
direction, at GAD and GAG. When this is complete, go to GPWX and copy 
the new directory pointers into cell P.LIB before exiting from the sub¬ 
routine. 


GPRQ 

This subroutine calls IMD to another PP to request a new field length 
for control point 0. The format of the call is: 

VFD 18/OHlMD,30/0,12/a 

where 10OB times a Is the new field length wanted. 


Index to location symbols in MDI flowcharts 


NAME PAGE 


GA 

GAB 

GAG 

GAD 

GP 

GPG 

GPD 

GPE 

GPF 

GPRQ 

GPW 

MDI 


1 

2 

2 

2 

3 

4 
4 
3 

3 

4 (subroutine) 
4 (subroutine) 
1 
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IMP 

IMD is a PP program, always loaded at lOOOB. It is called only by MDI 
and only to control point 0, to request a change in the field length 
of that control point, in order to accommodate a changed directory. 

The input register contains: 

VFD 18/OHIMD,30/0,12/a 

We request lOOB times a words of field length for our control point (zero) 
and then drop the PP» Whether the new field length was obtained, if it 
represents an Increase, will be checked by MDI. 
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MEM Process MEMORY Function 


MEM - process a field length request from a central program. The request 
may be for a modification of the field length or simply a request for the 
value of the field length currently assigned. The request might also be 
for either the central memory field length or the extended card storage 
field length. 

The input register will contain in bits 17-0 a relative address pointer 
to the parameter word and in bit 18 an Indicator if the request is for 
CM or ECS. Bit 18 will have the value 0 if the request is for CM or I 
If It is for ECS. 

Bits 59-30 of the parameter word contain the new value of the field length 
that is being requested. Bit zero is the status bit. It is set to the 
value one when the request has been completed. 

MEM uses bit 18 of the Input register to set Its own internal type indication 
and to set an Index at GBTFL which Is used to access of subroutine FCMFL 
to fetch the CM field length or FECSFL to fetch the ECS field length. 

It then fetches the current value and stores it af FLOLD. 

The requested field length is read from the parameter word and if it is 
not already an even multiple of 100 CM or 1000 ECS words it is increased 
to the next higher even multiple. If the result is zero, the current value 
of the FL is loaded into the parameter word and the status is set to 
completed. 

When a new FL Is requested, MEM sets up the request to MTR and then tests 
if the request was granted. If MTR does not grant the request, MQl drops 
into the PP delay stack for a quarter of a second then comes back and tries 
again until it is successful or it finds the error flag set at the control 
point. 

If the error flag is set at the control point it posts an error code in 
the status word and releases the PP. 
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SCOPE 


REQ REQUEST CARD/FUNCTION PROCESSING 

Philosophy 

This version of REO was rewritten for SCOPE It 

is based on the earlier versions r but was rewritten to 
ill clear up the coder {9> include new featuresr and 
■C3> help reduce PP saturation by ending the need for 
repeated calling of RE(3. 

General Description 

REtt is called either by lAJ or by a central macro call 
to create a file and assign equipment to it. RE(3 has 
the following functions: 

1. Ask operator for non-allocatable devices. 

2. Assign non-allocatable devices by EST ordinal. 

3. Ask operator for allocatable devicer and assign 
it by device type or EST ordinal. 

M. Assign allocatable equipment automatically by type 
or EST ordinal. 

S- Set in FNT the request disposition codes- 


A. REQUEST Cards 

If called by lAJr REi3 must decode the request. The 
parameters are left in RA+Et RA+3.^by lAJ with the 
number of parameters in RA+bMg. Each parameter is 
read and» based on its lengthr turned over to a sec¬ 
tion of code to break.** 

B. REQUEST Function 

If an external call is made to REC! {i.e.? by a cen¬ 
tral program!* the parameter list is read from 
central memory. Checks are made to insure the para¬ 
meter address is in the user''s flj the status word 
is zero* and the auto recall bit xs set. 


** Except for the file name which must be the first 
parameter. 
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C• FNT Creation 

At this point the information from either the card 
or function is in the following direct cells: 

D.BA through D-BA+M Logical file namer left 

justified zero fill. 

EST ordinal if specified 

6m For X tape 
H For SrtT , SHY, BLOrEHY 
Sm For Labeled tape 

Disposition code 

Device code and labels 

Allocation style of mass 
storage 

For both cases, the file name is verified for seven 
or fewer alpha-numeric characters, the first alpha¬ 
betic- A search is made of the FNT- If no file 
at this control point has that name, an FNT entry is 
created. - If one exists, the request processing is ended- 

The disposition code is now entered in the FST. If 
it is riF for multi-file, the file name must be six 
or fewer characters- 

If the request is for a multi-reel file, the secon¬ 
dary equipment byte in the FST is set to all seven''s. 

If the operator has pre-assigned equipment, an EST 
was specified in the request or automatic assign¬ 
ment of mass storage was specified, the flow proceeds 
as in section D- Otherwise, the request is displayed, 
the FST containing the above information is written, 
a pointer to the FST is left in byte C-CPREO of the 
control point area as a flag to DSD and a check is 
made of the EST for the existence and availability of 
the requested equipment- 


D.FIRST+1 

D-FIRST+S 

D.FIRST+3 

D.FIRST+M 

ALLOT 


D- Equipment Assignment 

When REQ is recalled by DSD {see Interface section!, 
the equipment assignment and pointer to the FST is 
read along with the FST entry. 


M The data from a function call is mapped into D.FIRST+M if 
a tape with only density specified. 
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If the operator has assigned an EST ordinal or an 
EST ordinal was specifiedr and the equipment is 
non-allocatablef the EST entry is read and the type 
cross matched- If the device is allocatable» 
the RBR'’s are searched for one of the proper type 
and allocation pointing to the assigned EST- 

If the operator assigned mass storage by device 
type or automatic assignment was requested* the 
RBR**s are searched for one of the proper type and 
allocation style- In this case* no EST ordinal is 
passed to MES through the FST- 

If a second tape is needed* the FST entry is written 
along with the flag to DSD as before- Otherwise* the 
completed FST is written. 


E• Jermination 


1. Normal - If the request is satisfied without 

errors* normal termination procedure is followed. 

If this was a control card request* REfl drops out 
allowing monitor to call lAJ. If the request was 
external* the status reply word is set add and REa 
drops out- 

2- Abnormal - If error conditions occured and the re¬ 
quest was by control card* the job is aborted- 
If the request was external* most errors will cause 
a status to be returned to the calling program. 

Normally* repreated calls to RE£^ will not occur in 
processing one request- However* if the FNT is full* 
or the request asks for a specific EST which is 
unavailable* REG will bounce with a one second delay. 


Plajor Subroutines tor sections of code> 


DISPLAY 

DISPDT 

REiaiAJ 

FNT 

E£3AV 


Writes the RECUEST message to the operator, 
for an external call* this routine must 
create the message- If a card call* the 
card image is used- 

This routine returns in the A register a 
device neumonic for the octal device code 
in the A register when the routine is 
called. 

Decodes the parameters from the request card- 

Searches the FNT for the file name in D-BA- 
If it does not find one* it will create 
a local file of that name with an all zero 
FST. 

Searches the EST for the requested equip- 
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SERIAL 


COnPLT 

VFN 

ALLOC 

RBR 

FNTDC 


tnent type in DFST • IF available or 
assigned to another control pointr EQAV 
will return- If all equipment of the 
request type is assigned to this CPr 
turned offr or does not exist» the re¬ 
quest is ended with an abort or status 
code to the CH request. 

This routine handles assignment of files 
to non-allocatable devices. Issues the 
assigned message and checks for multi-reel 
request• 

Returns the status code to CM. 

Verify file names and disallows '^OUTPUT'^ 

Assignment of allocatable equipment and 
equipment to files where no specific 
device was requcsted- 

This routine searches RBR'*s for one with 
the proper device type, allocation style 
and EST ordinal- 

This routine places the disposition 
code in the FST and if it is MFr checks 
the length of the file name and label 
bits. 


Residence 


REi3 should, most likely, be disk residence-^ Since under 
normal conditions it will be loaded only twice per job the 
problem of disk saturation will not be increased. 


Interfaces 


The new concept of pseudo-activity in IITR is used to reduce 
bouncing of REQ. lilhen REC3 comes to a Joint where operator 
action is required for equipment assignment, the pseudo¬ 
activity count is increased by one. This fuctions to prohi¬ 
bit monitor from calling lAJ to the idle control point 
when REU drops, out- When REa comes in again, this count 
is decreased by one. 

When the operator assigns equipment REu must be called in- 
All information needed to finish processing the request is 
stored in the FST entry. Thus, the address of this FST 
entry is' placed in the control point area -Cbyte C-CPREfll 
before REfl drops out. This byte also serves as a flag to 
DSD to recall REi3. Then, when recalled. REfl can read up 
the equipment and pointer to the FST. 
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To be able to discriminate between type of calls and if RE<3 
is being recalled, the input register format is . 

When an external call is made, the low o^^er 16 bits ^he 
input register contains the parameter address. Uhen called 
b^lAJ. bitm of the IR is set. If the call by ^ 
in response to operator assignment, byte three of the IR 


non-zero. 
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RFL Request Field Langth 


RFL is called to modify the amount of storage assigned to a job. The 
request Is in the following format. 


RFL,£1 where fl is the requested field length 


The PP Input Register contains the following: 


Bits 0-17 
Bits 18-35 
Bits 36-38 
Bits 39-41 
Bits 42-59 


New field length requested 

Address of the status response location 

Control pointer number 

Not used 

RFL 


The purpose of this routine is to request a new field length. The new 
field length is obtained from the Input Register and a request for storage 
is made. If the request for storage is satisfied and the status is zero, 
the PP is released, the dayfile message Is cleared, and the routine exits 
to IDLE. If the storage request is satisfied and the status is non-zero, 
the status is written in central memory, the PP is released, the dayfile 
message is cleared, and the routine exits to IDLE. 

If the request for storage is not satisfied and the error flag is set, 
the routine continues as if the request were satisfied. If the error flag 
is not set, the’ message WAITING FOR STORAGE is written, and RFL is recalled 
with a 250 msec, delay. 
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SRB Enter Expanded Disk Address into Directory (EDITLIB) 


General 


SRB is a PP program^ always loaded at lOOOB* It Is available to any PP 
or CM program that needs its services, but only EDITLIB calls it at present. 


Function 

Given the name of a common file, and the information that would be in bits 
0-23 of the second word of its BUT entry if it were positioned at the be¬ 
ginning of any record, SRB will furnish the RBT number and physical unit 
number for the record. Together with the 24 bits mentioned above, but 
without the name of the file, the Information SRB furnishes suffices to 
address the record In a direct way. 

When a record Is written on disk for the first time by EDITLIB, the disc - 
driving programs return the 24 bits that were in bits 0-23 of the second 
word of the file's FNT entry just before writing began. For the convenience 
of PP-resldent, if it will have to read the record from disk, the more 
complete address, independent of the file name, is wanted in the directory, 
and this is what SRB provides. 


Entry Information 

The input register contains: 

VFD 18/0HSRB,3/0,3/n,18/0,18/a 

where n is the control point number, and a is the address of the first 
of two consecutive words containing the request, relative to RA. The 
words RA+a and RA+a+1 are formatted: 

VFD42/name,18/0 

VFD 15/x,21/y,9/b,3/c,12/d 

where "name" is the name of a comnon file, left justified with zero fill; 

X Is Ignored and will be left unchanged; y is Ignored but will be replaced 
by the Infoxnation whose furnishing Is the whole purpose of SRB; b is the 
RBT ordinal of the record (left unchanged by SRB); c is the RBT byte number 
of the record (left unchanged by SRB); and d Is the PRU number of the 
record (left unchange by SRB). 


Exit Information 


If a common file with the given name is not found, the request cells 
become: 

VFD 42/name,18/1 
VFD 60/0 


Nov. 1968 


13-43 



SCOPE 


otherwisej they become: 

VFD 42/name>18/l 

VFD 15/x,3/0s6/u,12/e,9/b,3/c312/d 

where x, b, c, and d are unchanged; u is the physical unit number for the 
record, and e is the RBT number- 


Qther Programs Called 
None 


Narrative 


Between SRBl and EXIT-1 we scan the FNT for a common file with the given 
name. If none is found, set the completion bit in the first request word 
to 1, zero the second request word, write them back to central memory, and 
drop the PP* If we find the wanted file, we arrive at SRB3, extract the 
RBT ordinal from the request and save it at D-FIRST, and then fetch the 
second word of the FNT entry into D.FNT-1 through D.FNT+3, so that the first 
RBT number is in D.FNT. Read CM word P.RBR into D.Tl through D.T5, so that 
the size of memory, needed for locating RBT word pairs, is in D.T5, and the 
base address for RBR^s is in D*T1 and D.T2. The RBT word pairs for the 
file form a chain, the first byte of each giving the almost-address of its 
successor- Considering the links of the chain numbered, with the first one 
as number 0, we have to read link number b, where b is the RBT ordinal we 
have stored in D,FIRST- Link number 0 is addressed by the FNT entry, and 
we have read the relevant pointer into D-FNT initially. If we read the 
first word of each ^^link*' (RBT word pair) into D-FNT through D-FNT+4, its 
onward pointer will be in D-FNT. 

So we perform the loop of 11 instructions beginning at SRB3A b+1 times; 
fetching the first word of the next link in the RBT chain and counting down 
on D-FIRST until It is negative- At SRB3A each time through the loop, we 
have saved the pointer to an RBT word pair in D.EST+2 just before fetching 
the RBT word pair- So when we have the wanted pair, we have its almost- 
address in D-EST+2, which will be bits 24-35 of the second word of the 
response, or in the format given for exit information. But it remains 
to find the physical unit number- 

First read the second half of the RBT word pair. Probably the RBR number 
is in D-FNT+1, byte y of the word pair when its bytes are numbered X, Y, 

0, 1 , . • 7- We put this in D-Z4 (at SRB51), and then scan bytes k through 
c inclusive of the word pair, where the bytes are imagined as numbered X, 

Y, 0,*.; k is the initial byte number given In byte Y of the RBT word pair, 
and c is the byte number given in the request- Ea®h time we find a byte 
to be even, we know it is a new RBR link, and replace with it the previous 
value in D+Z4- On completing the scan, we know we have the RBR link for 
byte c in D.Z4. 
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Now, at SRB6, multiply this RBR link by 38, add It to the RBR Initial 
address In D.Tl and D.T2, and read the RBR header word this points to. The 
physical unit number Is taken front bits 42-4-7 of this word, and inserted 
In bits 36-41 of the second word of the request. Then we go to exit to 
set the completion bit In the first word of the request to 1, return the 
request to central memory, and drop the PP. 
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Xl}(3 


Initial Call from DSD 


IjJhen DriPfl-I Cl for inputi 0 for output or P for punch> is 
entered into the consolei DSD forms a call to XDfl and places 
the parameter CIiO or P} in bits 0-5 of the PP input register 
XD£3 checks the parameter and if it is less than 21B {display 
code P> + l>i XD(3 assumes that DSD has called it and not the 
CM portion of the dump program. 

XD(! checks if the parameter is Ot or P and if nott the 
PP is dropped. The job name DHPcJn {where n is It 0 or P} is 
set into the control point areai and SDOOB words of storage 
is requested. 

The parameters for LCD are set into the field length and 
LOD is called to load XXXDMPfl. The file type parameter is 
set into RA+5 to be interrogated by the CM program. 

The above description is also valid to loading XXXRESiS from 
XRfl. 


Called from XXXDMP(3 


XD(2 is called from XXXDMPC! with the address of a three word 
buffer in bits 0-17 of the call. As the address will be 
greater than EIBt XDi 3 assumes that this is not the initial 
DSD call. XDl3 interrogates bits EM and BS of its input 
register to determine what type of file is being dumped. 

QD input 
□1 output 
10 punch 

Depending on the file typei various instruction modification 
is done. 


Major Subroutines 
1. SCFNT - Search FNT 

This routine searches the FNT for the specified type 
file. If one is found t the address of the entry is 
saved in D.FROt if no entry was foundi a zero is stored 
in D.FRO. 

H. RCH - Request FNT Channel 

The internal error flag is checkedi and if oht the file 
is closed and the PP dropped. If noti the FNT channel 
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is requested and the FNT entry whose address is in D.FRO 
is read into the PP. If it is no longer therei a call 
is made to SCFNT to get another entry. If it is still 
a valid entryn depending on the initial instruction 
modificationi a check is made for disposition code of 
punch if the type is ''OUTPUT^. If it is type OUTPUT-i 
a check is made to determine if the file has been back- 
spacedi if yesT the number of RBT bytes are counted 
and the total is placed in the field normally occupied 
by the address of the current RBT word pair. 

The FNT/FST entry is then written to CM into the buffer 
specified by the call to SDj 3» The file is then set to 
type local■» the disposition code cleared and the file 
set to beginning of information. The FNT/FST entry is 
then written back to the FNT table. A dayfile message 
containing the job name is written to the dayfile. 

3. ENDl 


Job termination is handled in this routine. If the Job 
terminates normally via an operator dropT the following 
procedure is executed. 

1- Drop the CP 

S. Get address of FET from RA+k 
3. Set up FET function code for close reel 
Call CLO for closing procedure 
5. Store END in RA+1 
b. Drop PP 


General Flow 


The FNT is searched for a file ISCFNTIt and if initially 
no files of the type specified are foundi the PP is dropped. 
The FNT channel is requested and the FNT entry is written 
to CH {RCH>. The FNT is searched again to save search time 
the next time and the address of the next FNT entry is saved 
until needed. If the CPt program requests an entry and none 
exists-i the PP loops searching the FNT and pausing for re¬ 
location. If the error flag is seti termination procedure 
is executed -CENDII. 
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XRQ 


Called from DSO 


XRfl is loaded in the same manner as XOAt and XXXRESfi Is 
loaded in the same manner as XXXOMPfl. 


Called from XXXRESfl 

XRfl is called from XXXRESfi with the address of a M-word 
buffer in bit 0-17 of the call. As the address will be 
greater than 21 Bt XRfi assumes that this is not the initial 
DSD call. The first location of the buffer is monitored 
by XR(S and if it is zero-i the routine pauses for relocation. 
If the cell is nonzero*! a check for 7777B is madei if yes-i 
the pp routine drops the CP and PP. If not equal to 7777Bi 
XRfl assumes that it is the address of the FNT of the file 
being restored. The next three words of the buffer is read 
into the PP. These three words are the actual FNT entry of 
the file before it was dumped. XRfl checks if the file is 
type output and if it is the backspace bit is checked. If 
the bit is on-i the current RBT word pair is advanced the 
proper number of RBT bytes. The FNT entry is then written 
to CHR and the PP again enters into its main wait loop- As 
soon as the PP reads the FNT entry from the CH program-i it 
sets the location to zero so the Cfl routine can continue 
processing. 
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IBT Blank Label Routine (For Tapes and Disk Packs) 

lET is called by DSD to a vacant control point following one of two 
type-ins: 


n*BLANK- To write blank labels on degaussed or blank tapes- The blank 
labels written are the standard SCOPE 3-0 tape labels, viz* 
a volume header label (VOLl)j a file header label (HDRl) and 
a tape noark, in that order* The operator will be requested 
to assign tapes to be labelled and to enter a visual reel number 
which will be written in the volume header label- 


n.BLANK,uu. where uu is the EST ordinal of a disk pack unit; to write 
a blank label on a disk pack- The label is written in the 
64 CM words of PRU 0, record block 0, of the disk pack; the 
640 characters are written as follows: 


1 - 

4 

5 - 

10 

11 

- 78 

79 

- 80 

81 

- 460 


^^DEVl^^ 

the right 6 characters of GMR word T.JDATE: OOB 
followed by the five-character Julian date. 

binary zero* 

a 12-bit checksum of all the other 2-character bytes 
in the label. 

a skeleton RBR entry (38 CM words) for an empty 
public disk pack, viz.; 

0700 0000 0000 0301 0100 

3720 0000 3717 3717 0000 

4000 0000 0000 0000 0000 0000 

--.30 zero words... 

0000 3777 7777 7777 7777 7777 
-.. 4 zero words... 


which shows that the first record block is occupied 
by the label, the next 3717B are both physically 
and logically available, and 47 are physically non - 
existent* 


461-640 binary zero. 


The tape and disk functions are not really related, but are brought to¬ 
gether in IBT for convenience- 


When IBT is called, bits 0-11 of the input register contain either 0, 
indicating the tape function, or the EST ordinal of the disk pack unit. 
Subroutine PRS sets the job name "BLANK”, sends it to the dayfile, and 
gets a field length of lOOOB words, priority 7700B, and time limit lOOOB. 
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Tape Function 

If bits O-Il of the input register do not contain Oj we branch to location 
DISK- Otherwise, proceed with the tape function, IBT prepares an FET 
in central memory, the first two words of which it also uses as KEQDEST 
function parameters. The FET is 13 words long so that it can hold label 
information and so that the FNT pointer will be filled in by a CIO request- 
The only field in the label portion of the FET that is set is the Retention 
Cycle field. This is set to display coded zeroes so that the tape on 
which the blank label is written is regarded as expired. 

REQUEST TAPE and REWIND TAPE functions are accomplished by asking monitor 
to call the REQ and CIO programs into other PP's. These functions are 
called sequentially with the FET being modified as necessary for each 
call. The FET Is monitored for completion of operation after each call. 

4LB, the labelled tape driver, is called as an overlay to IBT three times 
per blank tape to be labelled, once for each of the parts of the label, 

CIO is called after the labels have been written to rewind the tape 
again, 

2DF is called as an overlay to drop the file from the FNT and the process 
repeats with a REQUEST TAPE as mentioned above. 


Disk Function 

At DISK, we begin by reading the EST entry for the device specified by 
bits 0-11 of the input register. If this EST ordinal is out of range, 
we go to DERRl to issue the day file message ^^EST ORDINAL OUT OF RANGE”, 
and then wait at DERRB till the operator drops the control point. If 
the EST entry is not for a disk pack that is logically on the system, 
we go to DERR2 and do the same with the message ”N0T DISK PACK, OR OFF”. 
If the status of the disk pack is not unloaded C4040B), we go to DERR2 
and do the same with the message ”PACK STATUS NOT UNLOADED”, Now call 
monitor to assign the pack as private at this control point. If it is 
not granted, go to DERR4 and do the same with the message ”CANT GET 
PACK ASSIGNED”, If all is well so far, fill the EST ordinal into the 
stack request at MYRQ ff*, which has been pre-assembled to write bytes 
4001 b through 4500B of PP memory to PRU 0, RB 0, of the device, with 
no FET or FNT. 

Next construct a blank label in this area, first zeroing it| then in¬ 
serting ”DEV1”, the Julian date, and the skeleton RBR table, and forming 
the checksum. Note the use of subroutine COPY, which is entered with 
address x in D.21 and y+z^'lOOOOB in the A register; it copies bytes y 
through y+z-1 into x through x+z-1. Next load overlay 5DA at 5000B ff., 
and enter it with 5 in the A register to indicate the BLANK function. 

If 5DA exits with zero in the A register, the disk pack does not contain 
a private pack label, and we branch to DISKB to write the blank label. 
First add to the stack request at MYRQ ff. by inserting this PP*s message 
buffer address; then scan the RBR tables in CHR for the one containing 
the proper EST ordinal. If this cannot be found, go to DERRB, issue the 
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dayfile message ''NO RBR TABLE FOR PACK**, and wait at DERRB until the 
operator drops the control point. If the right RBR table is found, 
copy the DST ordinal from it into the stack request, and call R.WRITER 
to execute it, thus writing the blank label on the pack. Format the EST 
ordinal into the message at GOODMES, ”uu BLANKED.” and send it to the 
dayfile. Then request monitor to return the disk pack to unloaded status* 
If this succeeds, go to EXIT to drop the PF and the control point. If 
not, go to DERR6, send the message ”CANT UNLOAD PACK AFTERWARDS” to the 
dayfile, and wait at DERRB till the operator drops the control point. 

If, on return from 5DA, the A register contains non-zero, the disk pack 
appeared to contain a private label, and the A register contains the 
starting address of a copy of its first PRU, which has been read into 
the PP. We now copy the pack name, Julian date, and visual identification 
from this copy into the message at DMSG7, *>PN “ pname, VK = vrno, JD = 
jdate”, and send this message to the dayfile. The same message appears 
on the first line of the B-display, and we copy to the second line the 
message "PAUSING FOR GO OR DROP” (at DMSG8). Now set bit 12 of RA40 to 1 
and wait until the operator types "n.DROP.” or "n.GO.”. If the operator 
wants to save the private-labelled pack, he types "n.DROP.”, and on 
seeing the error flag we go to EXIT to drop the PP and the control point. 
The pack will be returned to unloaded status by lEJ as part of the 
termination process. If the operator still wants to blank label the 
pack, he types ”n.GO.”, which causes bit 12 of RA+0 to be reset to 0. 

On seeing this, we continue to DISKS to write the blank label and so on 
as if the disk pack had not been privately labelled In the first place. 


Entry Information 


For blank labelling tape, bits 0-11 of 
and one or more tapes are specified by 
ASSIGN sequences* For blank labelling 
input register contain the EST ordinal 


the input register contain 0, 
the operator through REQUEST - 
a disk pack, bits 0-11 of the 
of the pack. 


Exit Information 


None except the messages. 


Other ProRrams Galled 

5DA, for disk pack but not for tape. The return from 5DA is with 0 in 
the A register if the pack is not privately labelled, otherwise with the 
address of a copy of the first PRU of the private label. 

4LB and 2DF for tape but not for disk pack. 
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IDF D\imp Dayflle 

IDF is called by lEE following the keyboard entry n.DAYFILE,uu. The para¬ 
meter uu Indicates the media the system dayfile Is to be dumped to. It 
may assume the values LP. CP. or MT, IDF expects one of these three 
arguments In byte 4 of its input register. Upon being called IDF sets 
its direct cells and requests a field length of 40000B, a priority of 
7700B. and a time limit of lOOOB. IDF then Jumps to the proper routine 
to process the assigned equipment type. If the equipment is not of the 
proper type the message ILLEGAL EQUIPMENT REQUEST is issued and the job 
dropped. 

All three equipment types use the subroutine CDF (Complete Dayfile). CDF 
Issues the MTR function M.CDF to complete the dayfile and Issues the 
message DAYFILE DUMPED. CDF then rewinds the system file DAYFILE and 
creates a new file local to IDFs control point, also by the name of DAYFILE 
and with the proper disposition for the requested device. All RB assign¬ 
ments associated with the system file DAYFILE are transferred to this 
newly created file. When the dump process is completed this new file 
will automatically be dropped, releasing the reserved record blocks. 


In the case of the two equipment types LP or CP (line printer or card 
punch) all that is necessary Is the creation of a file with the proper 
disposition. The Job is dropped when IDF releases its PP and the printing 
or punching of the dayfile will be handled by the output package. In the 
case of equipment type MT (Magnetic tape) it Is necessary to copy the 
local file DAYFILE from disc to tape. IBT does this by placing three 
control statements in the control statement buffer for its control point* 
These three statements are REQUEST TAPE, COPYBCD (DAYFILE, TAPE), an 
aCSP (TAPE). When executed these statements will cause the dayfile to 
be copied to tape and the tape backspaced over the trailer information 
to reposition it for the next dayfile dump. After setting up the control 
statement buffer IDF exits, allowing the system to handle the processing 
of the statements as it would for a normal job. Upon completion of the 
statement..processing the job will be dropped and along with it the local 


file DAYFILE. 
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IMF MULTIFILE POSITIONING 


Refer to Chapter lit page llo'l* 
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IMR OPEN Read/Alter Magnetic Tape File 
Refer to Chapter 11, page 11-!• 
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IMW OPEN Write Magnetic Tape File 

Refer to Chapter 11, page 11-1. 
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IPL—Dummy Plot Program 


General 

IPL is a PP program-i always loaded at lOQDB. It is 
called only by JANUS for OUTPUT files having a PLOT 
{□□3D> disposition Code. 

Function 

JANUS calls IPL to simulate a system Plotter driver for 
OUTPUT files having a PLOT disposition Code. 

Entry Information 

The input register contains! 

VFd b/a-i Ifi/Oi 16/b where a is the Control 

Point number and b is the FET address relative to RA. 

Narrative 

IPL checks the control point error flag and if it is set 
drops the PP. If the control point error flag is not set-i 
then IPL sets byte 0 of word zero of the FET to 7777B 
and drops its PP- 

Subroutines 


None • 

Exit Information 


None • 
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IRI - ROLL-IN 


GENERAL 


IRI is a PP program loaded at 1D0D8 and called in by DSC 
as a result o^F an n*ROLLIN" type-in at the console* 


FUNCTION 


IRI complements the functions performed by IRO* Specifically* 
IRI reinstates a program that was previously rolled out and 
peactivates the program by restoring its central processor 
status. The rolled-in program remains at the control point 
with which it was associated when it was rolled out. 


ENTRY INFORtlATION 


When IRI is initially called in by DSD* a file named 
''cjROLOUTn'' where n is the control point number and the pro¬ 
grams field length, C-P- status and file FNT address all of 
which are in the programs RA+ID. If IRI is recalled IIRI 
enters the delay stack at control point zero if there is 
insufficient C.r. available to rollin the programl the FNT 
address* the control point address and the programs FL* all 
this information is in the input register bytes 8*3* and M- 


EXIT INFORHATION 


None. 


OTHER PROGRANS CALLED 


None. 


NARRATIVE 


IRI checks the control point number in the input register, 
j-p it is zero* then IRI was in recall* therefore the pro¬ 
grams FL* CPA address and the file''s FNT address are all 
in the input register- A reguest for Ctl is made* if granted IRI 
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transfers to read in the program^ otherwise IRI goes into 
recall at control point zero. 

If the control point number in the input register is non- 
zerof the FNT entry is scanned for the file named '’flROLOUTn'' 
•Cwhere n is the control point number} and if the file is 
there continued* Otherwise a message ''CIO ERROR I'' followed 
by ''ROLLIN ABORTED'' is written to the dayfilet the error 
flag in the CPA is set =3 and IRI drops out* 

Uhen the FNT entry has been checked the status in the 
associated FST is tested and if the status is busy error 
messages ect.f as abover are written to the dayfile and 
IiRT drops* 

If IRI is still in business then an attempt is made to 
ensure that there is no activity at this control point* if 
this is impossible ''ROLLIN ABORTED'' is written to the dayfile 
and IRI drops* 

IRI then reads in the program''s RA+IQ where the FL was 
stored* displays ''ROLLIN INITIATED'' message* saves the • 
FL* CPA address and FNT entry address in the input regist¬ 
er and request CM equal to 1he field length. If the request 
is honored IRI continues otherwise IRI sets itself in delay 
at control point zero and then drops. 

The program can now be read in* First* 11 CH words saved 
at RA+ID are read in* these include the programs CP status* 
FL* last dayfile message buffer and last two words of CH 
field. The DST ordinal is then located and stored in the 
stack request* the request is made and IRI waits for I/O 
completion* If there is an I/O error the messages ''CIO 
ERROR 3'' and ®R0LLIN ABORTED'' are written to the dayfile 
and IRI drops* Otherwise IRI stores the 1st RBT word pair 
address in the stack request* zeros the FNT entry* trans¬ 
fers to stack request to drop file ''c/ROLOUTn''* restores the 
programs last dayfile buffer* last two CM field words and 
the central processor status* updates the rollout flag* 
decrements the psuedo-activity count in MTR and exits* 
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SUBROUTINES 


PPACT 

Tests for control point activityf if none returns otherwise 
will retest. The activity test is made for 5 seconds 
and if at the end of that time the control point is still 
active rollin is abandoned? the rollout flag is reset to 
job roiled out {FLAG = 31? ^ROLLIN ABORTED*' is written to ^ 
the dayfile, and IRI drops.^ The number of times the activity 
loop is executed can be varied by changing the initial 
values of either CNTR or CNTR+1 in this subroutine* 


DisnsG 

This subroutine writes a message in the last dayfile message 
buffer for console display? and returns. 
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IRO - ROLL-OUT 

GENERAL 


IRO is a PP program loaded at lOOOB and called in by DSD 
as a result of an n-ROLLOUT* type-in* 


FUNCTION 


A job running in CM is utilizing resources which may be 
needed by some other Job# in particular another job may be 
waiting for central memory* If the resources used by the 
first job are to be allocated to the second then the first 
job must be rolled out* This is accomplished by IRO* 

IRO will write the job to be rolled out to a file named 
^QROLOUTn^f where n is the control point number at which the 
job is running# after deactivating this job and will relin¬ 
quish all but CM words previously assigned to the 

job* In fact# after a job has been rolled out the only 
resources which remain associated with the job are a control 
point and lOO CM words* 


ENTRY INFORMATION 
None* 


EXIT INFORMATION 


The rolled out job'*s FL» the FNT address of ^wROLOUTn^ 
and CP status as well as its last dayfile buffer and last 
two FL words are saved in RA+10 to RA+5D* 


OTHER PROGRAMS CALLED 
None * 


NARRATIVE 

IRO checks the CPA error flag the jobs field length and the 
jobs priority* If the error flag is non-zero or the field 
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length less than or equal to or the priority is zero 
IRO drops- If none of these conditions hold then IRO tests 
for activity at this control point by dropping the central 
processor and requesting from Monitor an activity count. 

If the control point is inactive* i.e* the only activity is 
the PP used by IRO* then IRO continues. Otherwise it will 
retest the activity until either the control point becomes 
inactive in which case IRO continues or the test has been 
performed for a period of a seconds in which case IRO 
displays ^ROLLOUT ABONSONCI)^* restores the central pro¬ 
cessor* if necessary* resets the rollout flag and drops. 

lilhen the control point becomes inactive a search through the 
FNT is made for a file named ^ttROLOUTn'^ and a free entry. 

If either such a file is located or there is no free entry 
IRO drops otherwise ^flROLOUTn® is inserted in the FNT at 
the free entry. '^ROLLOUT INITIATE]}® message is then dis¬ 
played and the jobs FL-E is written out. Uhen the I/O 
completes the file is reqound. If the I/O terminated with 
an error ^ROLLOUT ABORTED® is written to the dayfile* the 
rollout flag is reset to job not rolled out then IRO drops. 

Otherwise the Jobs FL* CP status* last dayfile buffer* last 
two CM words and the FNT address of ®IR0L0UTn® are saved 
at RA+IQ through RA+2D* the rollout flag is set to job rolled 
out and IRO drops after requesting anFL of IDO CM words* and 
increments the psuedo-activity count via MTR. 


SUBROUTINES 

DROPCP 

This subroutines drops the central processor and saves the 
status returned by the monitor function M.DCP. 


MS'JDIS 

This subroutine writes a message in the Jobs last dayfile 
message buffer for console display. 
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ITD Tape Dump 


This routine Is used to dump print files to tape. It is loaded when the 
operator types In X-DUMP- The logic Involved Is to search the file name 
tape for a print file and put the name of this file into a s^t^nt of 
the form COPYBCD (XXXXXXXjTAPE) (the file name replaces the XXXXXXX;. 

Then the statement Is written to the control statement buffer of the 
control point, and lAJ is called in to process the control statement. 

The result is that the print file gets copied to tape. When there are 
no more output files in the system, ITD releases its PP and exits to 
Its Idle loop. 

The main routine of ITD merely reads the input register, stores the control 
point address, presets some constants, and calls first the subroutines 
CPS and REQ and then loops, calling the subroutines SCH and DIMP until 
no further print files remain. 

The subroutines of ITD and their functions will be described below. 


CPS - Enter control point status 

This routine is used to set up the control point area constants and 
initialize some other values. Since ITD comes in and out of recall at 
one point in its execution, it is first necessary to check to see if 
ITD has been at this control point previously or not (i.e., whether xt 
has been loaded initially or is Just coming back out of recall). This 
information is derived by checking the job name. If It is non-zero, 
then ITD is Just coming back out of recall and the code in CPS is not 
necessary. In this case CPS is exited. If ITD is in for the first time 
it requests storage and a time limit from MTR- If the storage Is not 
assigned, the PP is dropped and ITD terminates. If it is, RA and PL 
are recorded and (RA) - (RA+7) are cleared. 


REQ - Request tape 

This routine is used to request a tape from the operator. It just checks 
the Job name to see if this is the first time in. If so, it enters the 
Job name, DUMP, and sends the statement, REQUEST (TAPE), to the control 
statement buffer, calling in lAJ to process it. If ITD was merely coming 
back in out of recall, the above is not done. In either case, it now 
searches the FNT to see if a file has been assigned. If so, its FST 
address is saved and ITD exits from REQ. If no file has been assigned, 
ITD sets a delay of about 2 seconds and goes into recall. 
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SCH - Search for output file 

This routine looks for an output file in the FNT. It requests the FNT 
channel and looks through the FNT for an output file of print disposition 
and, finding one, saves Its priority for comparison against the highest 
current priority. At the end of the search the print file with highest 
priority is selected to be dumped. If no print file r«Bains in the FNT, 
the FNT channel is dropped, the PP is dropped and ITD terminates. If 
a file is found, it Is assigned to this control point as a local file, 
its priority and disposition code are cleared, the FNT channel is dropped, 
and the file name is inserted as the job name of the control point. ITD 
then exits from SCH. 


DUMP - Dump file to tape 

This routine first merges the file name into the COPYBCD statement and 
then calls KNS to write the statement to the control statement buffer. 
It then loops, looking at the FST status word to see if it reflects a 
completed EOF. When it does, DUMP calls RNS again to put the statement 
BKSP (TAPE) in the statement buffer and DUMP then loops until the FST 
status reflects a completed skip-backward. At this time ITD exits from 
DUMP. 


RNS - Enter control statement 


This routine clears the control statement buffer, sets the control state¬ 
ment pointer to the beginning of the buffer, and stores the designated 
statement in the buffer (the address of this statement is in the A-register 
upon entry to RNS). It then uses CALLIAJ to bring in lAJ to process the 
statement. Upon return from CALLIAJ, ITO exits from 


CALLIAJ - Bring in lAJ 

This routine asks MTR to bring in lAJ at this control point. The monitor 
function M.RPJ (request peripheral job) is used. Upon return from R.MTR, 
ITD exits from CALLIAJ. 


CHECKEF - Check error flag 

This routine is called periodically in ITD to see if an error has occured. 
It reads the error flag from the control point area and checks to see 
if it is set. If not, ITD exits from CHECKEF. If the flag is set, iTD 
releases the PP, Jumps to the idle loop, and terminates. 
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2BP - CHECK BUFFER PASAMETERS 


Introduction 

When action is intended for a file, 2BP can be used to validate the buffer 
parameters of the File Environment Tape (FET). It also locates or creates 
an associated File Name Table (FNT/FST) entry* 


Entry Information 

When calling 2BP the following Infonnatlon must be given: 

D.PP IRB+C.CPNUM = Right justified control point assignment 

D.PP IRB+3 and D.PPIRB+4 = Relative CM address of FET to be processed 

D.RA = Control point RA (hundreds) 

D.FL * Control point FL (hundreds) 

This information can be prepared by using the system macro PPENTRY with 
D.PPIRB as the first parameter. 


General 


The FET name is checked to be no more than seven alpha-numeric characters. 

The first character must be alphabetic. The buffer parameters are checked 
to be in the following range: 

FET(l) +4+1 FL 
LIMIT FL 
OUT LIMIT 
IN LIMIT 
OUT FIRST 
IN FIRST 

The validated name in the FET and the Control Point assignment in the input 
register are used to search the FNT for an existing entry. If no entry is 
found, an entry is made in the first empty space found in the FNT. This new 
entry has a zero device type. 

If an FNT entry must be created and there Is no available space, normal pro¬ 
cessing will not continue. If the I field in the FET is zero, an appropriate 
dayfile message is written and the control point is aborted. If the 1 field 
is non-zero, 24 octal is returned in bits 9-13 of the code and status field 
of the FNT. 

The requested code and status field Is transferred from the FET to the 
established FNT after the last buffer status in the FNT has been placed in 
direct location BS. The device type in the established FNT is placed in the 
FET and direct loaction D.DT. 
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If the high order bit In the CIS Link field of the FNT Is off, the FET 
address is stored in this field. 


Error Procedure 


When an invalid file name or an illegal buffer parameter is detected in the 
FET, an appropriate dayfile message Is written and the control point is 
aborted. 

If 1 is non-zero in the FET, the disposition code from the FNT and the FNT 
address will be placed in the FET. 


Exit Information 

The following Information Is prepared and left by 2BP: 


D.FNT to D.FNT+A 
D,FNT+5 to D.FNT+9 
D.DTS 

D.BA to D.BA+A 
BS = D.BA+5 
FA = D.FL+1 
D.FIRST to D.FIRST+1 
D.IN to D.IN+1 
D.OUT to D.OUT+1 
D.LIMIT to D.LIMIT+1 


= 2nd word of FNT 

= 3rd word of FNT 

= device type found in FNT 
(zero if FNT created by 2BP) 

= 1st word of FET 

= last buffer status found in FNT 

= address of 2nd FNT word 

= "FIRST" parameter of FET 

= "IN" parameter of FET 

= "OUT" parameter of FET 

= "LIMIT" parameter of FET 
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2DF - DROP F1L£(S) 


General Description 

2DF is called as an —flSs^byTuas^g 

L conbrol^poinc^rero).^dropping local^ 

fiirchange bit Is Ignored in determining 
which files are common and which are local. 

Entry Information 

The value of direct cell D.BA determines what action 2DF is to take: 

2DF is to remove all files assigned to the control 
point• 

2DF is to remove a single file- Tbe address of the 
files FNT is in D.BA+l. 

If D.BA contains neither a zero nor a one. then 2DF 
is to drop a single file whose FNT entry s ” 

D BA+4. That is, D.BA - D.BA+3 contain a 7 character 
:nd rt. l.«.r 3 bits of “«ain a 

control point number. 2DF Is to search the FNT until 
it find a file of the given name at the given contr 
point and then remove the file. If no such file is 
found 2DF exits. 


D.BA = 1 
D.BA = 0 
D, BA = NAME 


Exit Information 

If the FNT for the (or a) specified file is 
D.FA is set to zero. Otherwise D.FA is not 


zeroed the direct cell 

changed. 
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SLP 

Function 

ELP is a PP prograniT always loaded at EQQDB. It is call¬ 
ed only by CIO-, when CIO finds itself writing a local 
file assigned to a 501 or SIE printer lEST mnernonics LP 
and L<3.> 5LP reads data from the circular buffer and 
sends it to the printer. 

Entry Information 

B. EST through D.EST+M contain the EST entry for the printer. 

D.FNT through I).FNT■^'^ contain the second and third words 
of the FNT entry for the local file to which the printer 
is assigned. Special use is made of t. bits in I).FNT+ 

C. FLBL {D.FNT-^3> as follows: Bit b CFL .N0NXT=10ae> is 

1 if the first character of the next line lif any} can¬ 
not be found or cannot be obeyed*, if it calls for a pre- 
print skip. Whenever possible*, a pre-print skip is handled 
as a post-print skip for the preceding line. 

Bit 11 -CFL.NENXT=4D0DB} is set to D at the beginning of 
a line unless bit b is 1^ in that case bit b is reset to 
Q and bit 11 is set to 1. This means that if the first 
character of the present line calls for a pre—print skip*. 
the skip has not already been carried out-, and it will be 
necessary to skip before printing this line. -CTo get the 
effect of a pre—print skip-, a minimum-length blank line 
will be printed with the corresponding post-print skip.} 

Bit 7 -CFL.P0ST=50DB> is set to 1 whenever a post-print 
skip function is sene to a SOI printer. After the line 
is actually printed-, this flag is seen and reset to 0-> 
and a lOB -Cclear post-print skip} is sent to the printer. 

A flag in the FNT is used to signal this-, rather than a 
cell in the PP program-, although there does not seem to 
be any way SLP could be dropped and re-loaded between the 
two events. 

Bit 6 {FL•CUT=4DQB} is set to 1 whenever the current line 
is terminated because it appears to be longer than 155 
bytes. Its continuation is printed as a separate line-, 
and at that time bit fi will signal that the first character 
of the new line is to be ignored rather than treated as 
a format character. 

Bit T -CFL.AUT0=lDa00B} is set to 1 whenever a line begins 
with an ''R'' format character*, to indicate automatic skip¬ 
ping from the bottom of each page to the top of the next. 

It is reset to □ whenever a line begins with a format 
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character. As long as this bit is li a 5 function is 
sent to the printer before printing each line- 

Bit ID iFL • flLL = EDODB> is set to 1 u/heneven using a 513 
printer! a line begins with a format character! to 

indicate 6 lines per inch spacing. It is reset to 0 
whenever a line begins with an '’S^ format character! to 
indicate a return to ta-line spacing. The 6-line function 
is sent to the printer when bit ID is first set! and there¬ 
after whenever 3LP is reloaded! if bit 10 is li and whenever! 
bit 10 being li a line with a format character is 

processed, calls for a termination of automatic 

page skipping! and the clear function sent toihe printer 
at this time also clears the 6-line status! so the latter 
has to be restored if bit 10 is 1. 

D-PPIRB through D-PPIRB+M contain a copy of the CIO 
request! with the address of the FE?! relative to RAi in 
bits 0-17. 

D.IN! D.IN+It D.OUT! D.OUT+l! D-FIRSTt D-FIRST+It D.LIMIT! 
and D-LIMIT+l hold the current values of the FET pointers. 


Exit Information 


Bits b through 11 of D.FNT+C.FLBL contain information as 
described under Entry Information. 

D-OUT and D.OUT+1 now equal D.IN and D.IN+1. However! the 
OUT pointer in the FET has been updated only to the last 
+1 word actually printedi or if a record has just been 
completed! the IN and OUT pointers in both PP memory and 
the FET have been set equal to the FIRST pointer. 


Other Programs Called - none 


Messages 

If any print line begins with the characters '^Pfl'^! it 
is not printed! but is sent to the dayfile as a message! 
and appears in the control point B-display. The program 
waits until the operator types ^n.60.^ 

PRINT ERROR This message goes to the dayfile and the B- 
display when a 513 printer sets bit S or bit 10 in its 
status byte -CCompare Fault and Print Error! to 1. The 
program waits until the operator types '^n.GO.'^! then re¬ 
initializes the printer and continues printing the file. 
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NOT READY This message appears on the B-display as long 
as the printer status is not ready -CQ in bit D>- 

RESERVED This message appears on the B-display as long 
as the SOI printer is reserved by another channel than 
the one 2LP is using to check its status- Since SCOPE 
requires that the printer be assigned exclusively to a 
control point before its status is checked-, this con¬ 
dition could only arise if the printer were connected to 
two different computers. 

REJECT This message appears on the B-display as long as 
the bb61 status shows that a function code has been 
rejected {bit 1 or 3 is 1>* 

XnSN PARITY ERROR This is put on the B-display and the 
dayfile when the bbfll status indicates a transmission 
papi-ty error {bit 0 is ll- The program then waits one ^ 
second-, issues a clear channel function-, and tries again. 

These messages are all preceded by ’LP® and the EST 
ordinal of the printer. 


Narrative 

To save a little space-, the initializing section of_2LP 
is located in cells afterward mostly used for the print 
line image. On entering 2LP-i we immediately branch to 
PRS-i check the status byte of the FNT-, and set cell 
EOR-*-! to zero if not end-of-record-, or non-zero if end- 
of—record. Then zero cell PRSY-. so that if this code is 
executed a second time-, we shall immediately branch to 
LPDA. If 2LP is entered more than once without being 
re-loaded each time-, the only presetting that has to be 
done after the first entry is of EOR+l- So the print 
line image area can begin at BUFi the cell next after 
the branch to LPDA. 

On the first entry to 2LP-. we do not branch immediately 
to LPDAi but get the EST ordinal out of the FNT entry-, 
format it-, and insert it after the letters ^LP® in the 
message area beginning at HSGA. Then determine-, from 
the EST entry-, whether the printer is a SDl or a SIE* If 

a SOI-, we zero a number of program switches-, thus setting 

them to NOP instructions! and also zero one or two con¬ 
stants so as to adjust the program from SIE to SOI opera¬ 

tion. Then branch to FILLTi call subroutine LOAD-, and go 
to LPDD to start processing the first line. Subroutine 
LOAD-, for a SQ1-. merely tests bit EH of the second word 
of the FNT entry to see if the file is in auto-page-skip 
status-, and if so passes the corresponding function code-. 
S-. to the printer. This may not be necessary-, but as 
ELP has no way of knowing who may have tinkered with the 
printer-, it is done anyway- 
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For a 512n we leave the program switches set as they were 
assembled! and set up the printer train image. Only the 
standard b4-character image is provided! whereas in the 
51E-driver part of IIR-IISt a MS-character image and an 
interface for a ESS-character image are also provided. 
Between PRSB and FILLKt by a procedure needing no clari¬ 
fication! the array of BBS characters including b3 dif¬ 
ferent ones is set up in 1M4 bytes beginning at IMAGE. 

From FILLK oni each of these bytes is expanded into two 
bytes! padded with display code zero as their left halves! 
giving an array of ESS bytes beginning at IMAGE. This 
expansion is done from right to left! as the extra space 
for it is taken on the right. Converting this array from 
display code to BCD will give what has to be copied into 
the printer-'s train image buffer! display code zero has 
been inserted into the left half of each byte because the 
BCD code for the character is DDB- Finally we call sub¬ 
routine LOAD. For a SIE printer! LOAD loads the array 
into the train image buffer! and then refreshes auto- 
page-skip status if necessary! as above for the 5D1. 

Finally we branch to LPDD. Note that IMAGE through 
IMAGE+ES7 must remain undisturbed in case LOAD is called 
again after a print error- The print line image area is 
below IMAGE. 

For the first print line it processes after being called! 
ELP begins work at LPDDi for all subsequent lines! at 
LPDA. The reason for the difference is that the code 
between LPDA and LPDD is to be executed once after each 
line! and not twice. If ELP has just been called for a 
new file! this code need not be executed. Otherwise! the 
last time ELP worked on this file! it executed the code 
after printing the last line! and before discovering 
that there wasn'*t another line left in the buffer. So if 
ELP initially began at LPDA! this code would be executed 
a second time after the printing of only one line. 

At LPDA we begin work on a line by setting flag LF.NENXT 
to 1 if FL.N0NXT=1 and then setting FL-NONXT to On other¬ 
wise by clearing them both to D* FL-NONXT may have been 
set during the processing of the preceding line to indicate 
that the first character of this line! if it calls for a 
pre-print skip! has not been obeyed as it normally would 
have been. We are now setting FL.NENXT if necessary! so 
as to take the proper action for this line a bit latern 
and clearing FL-NONXT so that it becomes immediately 
available to carry information about the next line. Ilf 
this promotion of FL-NONXT to FL-NENXT were done twice 
between lines! the information would vanish.> 

At LPDD we set WC! the byte counter for the line! to 0i 
and call subroutine XFR to get the next -Cfirstl word out 
of the circular buffer into the next available space in 
the line image buffer! which begins at BUF. 
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If the return from XFR is with non-zero in the A register^ 
a word was taken from the buffer and we branch to LPOll- 
If the return is with zeroi the buffer was already empty-* 
and so we have not succeeded in beginning a line. There 
is nothing to do but exit from LPOt if the FNT status was 
e.nd—of—record when 2LP was entered-* we set INr OLIT= FIRST 
in the FET before exiting 5LP. 

At LPOll we check the last byte of the last CM word moved 
into the print line image areai if this is OODQBi it 
terminates the line image and we go to KA. At KA-* we 
would like to look at the first character of the next 
line imaget as it may affect the format of this line. If 
IN does not =0 UTt we can look at iti so at KAF we read 
the next word-* copy its first character into NCHAR-. and 
so arrive at KAG. But if IN=0UT we cannot see the next 
character^ we go to KAC-* set FL.N0NXT=1 to show that it 
will have to be handled later if it calls for a pre-print 
ski pi then set NCHAR to zero and so reach KAG. 

If the line image is not found at LPDll to be terminated-* 
we test the byte count-, in li)C. If this has reached 15S 
we shall arbitrarily cut off the line-* and we branch to 
KAA to do this. If not-* we call subroutine XFR to get 
the next Cfl word in the linei if the return is with non¬ 
zero in the A register-* the word was obtained and we 
return to LPDll- If with zero-* the buffer was empty and 
no word was obtained* If the FNT status was end—of—record 
on entry to 2LP-* ELP assumes that it was meant to print 
out the rest of the buffer even though there was no ter¬ 
minator-* so we go to KAC- {This casei buffer exhausted-* 
end of record-* no normal terminator-* is treated the same 
as buffer exhausted at the end of a line with a normal 
terminator^ i-e*-* e-o-r* is allowed to serve instead of 
a zero byte at the end of the last CH word in the record-* 
which seems reasonable.3- If the FNT status was not end- 
of-record when BLP was enteredi and the buffer is exhausted 
before we see a normal terminator or reach a byte count 
of 15Si we simply exit from ELP-* leaving the OUT pointer 
in the FET still pointing to the beginning of the un¬ 
completed line. Either some other program will put more^ 
of the record into the buffer-* or it will call for printing 
the incomplete last line by calling 5LP to write end of 
record. 

bJe go to KAA if the line image becomes ISS bytes long 
before a terminator is found. If IN=0UT-* so that the 
buffer is exhausted-, and the FNT status when BLP was called 
was end—of-record -1 we go to KAC. In other words-* buffer 
exhaustion with end of record but no normal termina¬ 
tor is handled the same when the image is 1S5 bytes long 
as when it is shorter. But if the buffer is not exhausted-* 
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or the FNT status was not end-of-recordi this is probably 
an artificial cut we are going to make after the ISSth bytei 
and we arrive at KAD^ set CUTFLAG to l-i then set NCHAR to 
D and go to KAG. It would be logical to set FL-NONXT to 
1 in this casei but the first character of the next line 
image is going to be disregarded altogether-i so there is 
no need to set the flag that shows it has not been obeyed 
in case it calls for a pre-print skip. 

Iilheni one way or anotheri we have terminated a line image 
and set NCHAR to contain either the first character of 
the next line or zeroi we arrive at KAG. Now if FL.CUT = 
the end of the preceding line must have been arbitrarily 
determined-i so the first character of this line is not 
likely to have been intended as a format character. Ue 
reset FL.CUTi then go to LPR5 to set FORMAT to zero 
rather than the first character of this line-i and then 
print the line. If FL-CUT is Dt we have to consider the 
first character of this line- If the first two characters 
are the line is intended to appear on the dayfile 

and the B-displayi rather than being printed. If noti 
branch to LPR to print it. But if sot set FL.N0NXT=1 t 
indicating that the first character of the next lineT if 
it calls for a pre-print skipi has certainly not been 
obeyed during theproccssing of this line. Then blank the 
^PM^. As the dayfile message is not to be more than IS 
bytes longi including the zero byte at the end-, we zero 
BUF+lHi to terminate it by force if already longer than 
that. Then if the byte count in UC is not less than IMt 
we go to PSE2 to send the message to the dayfile. If 
it is less than IHt we zero bytes following the last one 
up to and including BUF+13 and then go to PSEB. At PSESn 
send the line to the dayfile and the B-displayi then 
call subroutine UAIT to wait until the operator types 
^n.G0.’*i and so reach LPRId. 

Ue come to LPRIil after printing or displaying a line. If 
CUTFLAG is nonzeroi the line was terminated arbitrarily^ 
we zero CUTFLAG and then set FL-CUT to the use of this 
in the next line is explained at the beginning of the 
preceding paragraph. At LPDTAt we update the OUT pointer 
in the FET to reflect that the line has been definitively 
taken from the buffer and disposed of- Unless 2LP was 
called with end-of-record status in the FNTt in which case 
the IN pointer then existing must be taken as finali we 
update ]>-IN and D.IN+1 according to the FETt and return to 
LPDA to begin the next line- 

If a line is to be printed rather than displayed as a 
dayfile messagei we come to LPR or LPR2 and put either the 
first character of the line or zero into FORMATi depend¬ 
ing on whether FL-CUT was D or 1- Since the first character 
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is no longer wantedT we shift the whole line one character 
to the left-, so that cell BUF contains the second and third 
characters of the original image* At LPRE-i we begin to 
scan the line from right to lefti discarding one byte 

another by reducing IiICt until we come to a byte that does 
not contain two blanks -CODOOBt ODSSBt SSODBi or SSSSBl** 

However-i if the entire line turns out to be blanki we keep 
the count in lilC at L. 

At LPRF we begin working on the format of the line* Ue 
test FL.N2NXT-, and pass on to LPRJ if it is □* If it is 
It it means we have not taken carsi during the preceding 
line -1 of a possible pre-print skip called for by the first 
character of this line. Then we put the content of FORHAT 
in the A register-i the first character of this line or zero-i 
and call subroutine DUfI to do pre-print skip if necessary* 

This does not conflict with later format processing-! as 
DUn acts on exactly those format characters that are not 
checked for in the code between LPRJ and SPCI1. So whether 
DUn is called or not-i we arrive at LPRJ. 

If the character in FORMAT is OQBt we go straight to 
SPCG. If this were not done-i the character would fail 
all the tests and we would arrive at SPCG just the same* 

Note that a blank format character will fail them all and 
send us to SPCG. 

If FORMAT contains £3-i this calls for cancelling automatic 
skipping from bottom to top of page* We set FL-AUTO to 
Ot and send function IDB -Cfor a 501 printer} or 3DB -Cfor 
a SIB printer} to theprinter via subroutine DO. This 
cancels the effect of any previous functions that set auto¬ 
matic page skipping. Howcver-i it also cancels the effect 
of any previous selection of 6 lines/inch spacing on a 
SIB printer. So if the printer is a 512-t and FL.flLL is l-i 
we send function lOB to the printer to restore a-line 
spacing. Whether this is done or not-i we arrive at SPCV. 

If FORMAT does not contain fl-. we go to SPCA. If it contains 
Rt this calls for automatic skipping from bottom to top 
of page. We set FL-AUTO to l-» which will cause the appropriate 
function to be given to the printer before every line-i and 
then go to SPCV. 

If FORMAT does not contain (3 or Rt we go to SPCB. If it 
contains S or Tt this calls for b-line or S-line spacingT 
we put □ or 1 in D-Zl and go to SPCP. At SPCPt if the 
printer is a 501-i the switch will have been set to send us 
straight to LPRUt as there is no choice of spacingT and the 
line is to be simply ignored- The p^rogram behaves as if 
the line had not existed^ with the single exception that 
if the line beginning with S or T is more than ISS bytes 
longT the remainder after 155 will be printed as though the 
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preceding ISS bytes had not been there and the IStath 
byte had DOB as its first character. For a 515 printeri 
however-* we set FL-fiLL to the number in D.Zli D or 1. 

Then send the function IIB—CD.Zl}-* i.e.i IIB for S or 
lOB for Ti to the printer via subroutine DO- This will 
select b-line or 6-line spacing* 

DO is called by branching to SPCNi thereafteri we pick up 
the character in NCHARi which is either the first character 
of the next line or zeroi and call subroutine DUH to do the 
equivalent of a pre-print skip on the next line if necessary. 
bJhen possiblen a pre-print skip on the next line is handled 
as a post-print skip on this linei but this line is not 
printed at alii so DUh has to be called. Then we return to LPRU. 

Ue come to SPCV afterissuing the necessary functions for a 
change to or from automatic page skipping- The line that 
began with 0 . or R is not to be printed-* but there should 
be a skip to top of page before printing the next line* 

Howeveri if the next line begins with ®1^ the format 
character that would have that effect-* there is no point 
in having two page skips. So we see if NCHAR contains 
if sot we go out to LPRW; if not-* put 4 in the A register-* 
the function code for page skipping-* and go to SPCN as 
in the preceding paragraph. 

If FORMAT does not contain (3-* R-* S-* or T-* we check for A 
or B-i and if neither■* go to SPCC. A and B call for skip¬ 
ping to top or bottom of page after printing this line. 

If this line is about to be printed on the line next be¬ 
fore the top or bottom of page-* and we allow the natural 
post-print skip to occur-* then the explicit skip to top 
or bottom thereafter will be a skip of exactly a whole 
pagei probably not what was intended. So we now send 
function b to the printer via subroutine DO-* to suppress 
the natural post-print skipi then call subroutine PRINT 
to print the linei then put M or 3 in the A register-* accord¬ 
ing as top or bottom is to be skipped to-* and go to SPCN-* 
where we send the function to the printeri obey the first 
character of the next line -CNCHARI if it calls for a pre¬ 
print skipi and go to LPRti). 

If we have excluded A-, B-, fi-, R-, S-* and T-* we come to SPCC 
and try for a letter between C and L-* which calls for a 
post-print skip to some channel. If not go to SPCE. If 
soi call subroutine POST with a corresponding number 
between 0 and 1 in the A registeri the subroutine will 
send the corresponding post-print function code to the 
printer unless the format character was I through L and 
the printer is a SD1-* for which these characters have no 
meaning. If a post-print skip function is sent to a SOI-* 
subroutine POST will also set FL-POST to 1-* so that the 
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clear function will be sent to the printer after the 
line is actually printed- After calling POSTt we call 
subroutine PRINT to print the current line^ then skip 
around the DO call at SPCN to pick up what may be the 
first character of the next linei in NCHARi and send it 
to subroutine BUM to obey it if it calls for a pre-print 
skip on the next line- Since we had a post-print skip on 
this linen we could not handle a possible pre-print skip 
on the next line as a post-print skip on this onei so 
calling DUn was the only way to deal with the possibility- 
Then go back to LPRU. 

If we have excluded A through L and Ci through Tn we come 
to SPCE and look for In St On or -- If none of themn go 
on to SPCGn to whichi as noted beforen we go if the first 
character of this line is DDB or any character not recog¬ 
nized as a special format character. If In 2n On or - 
is foundn we put the corresponding function code 4n 3n In 
or 2 in the A register and pass it to the printer via 
subroutine DO at SPCJn for a pre-print skip to top of 
pagen skip to bottom of pagen single extra spacen or double 
extra space- Then arrive at SPCS- 

At SPCGn we have finished with the format character of this 
linen but have not yet printed itn and are still in a 
position to obey the first character of the next linen if 
possiblen as a post-print function on this line- If NCHAR 
contains +n In or 2n we go to SPCGA and send function t. to 
the printern to suppress the natural post-print skip on 
this line. For +n the reason is that it calls for the 
next line to be printed on top of this onen so suppress¬ 
ing the natural skip on this one will accomplish it- Note 
that this is the only place in the program where the format 
character + is recognized- For 1 or 2n we suppress the 
skip to avoid the possibility that the present line is 
about to be printed on the line just before the top or 
bottom of pagen and that the skip that the 1 or 2 will 
produce when the next line is processed will be a skip of 
exactly a whole pagen which presumably was not intended. 
After the suppress function in any of these three casesn 
we go to SPCGE to print this line. 

If NCHAR does not contain +i In or 2n we pass the character 
to subroutine EVn to see if it is between 3 and Tn or X 
and Zi and calls for a pre-print skip on the next line- 
If not-i the exit from EV is with the A register negativen 
and we branch to SPCGE- If son the exit is with a cor¬ 
responding number between □ and 1 in the A register! and 
we call subroutine POST to issue the post-print function 
to the printer if possible and set FL-POST if necessary. 
Then-t at SPCGEi we call subroutine PRINT to print this 
line and then return to LPRW. 
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Subroutines 

XFR 

This is called from two points in the main routine of ELP 
to bring the next wordi if any-i from the circular buffer 
and put it in the next free space in the print line 
image areai namely in BUF+n through BUF+n + 4-i where n is 
the byte count in ItIC. If a word is moved-i S is added to 
the content of li)C« First■» if the IN and OUT pointers in 
the PP are equal i we exit from XFR with 0 in the A register-t 
showing that nothing has been moved and the buffer is 
empty. Otherwise we copy the word D-OUT points to into 
BUF+n ff.-i and add S to the value of n in UC. Then add 1 
to the pointer in D.OUT and D.OUT+1^ but if this makes it 
equal to D.LIMIT and D.LIMIT+1 t reset it equal to D.FIRST 
and D-FIRST+l. Then exit from XFR with non-zero in the A 
register! indicating that a word has been moved. 

Entry Information 

Only the PP buffer pointers and the line image length in 
UC. 


Exit Information 


0 in the A register if the buffer was already emptyi other¬ 
wise the A register contains non-zero-i D.OUT and D.OUT+1 
have been updated! and 5 has been added to the line image 
length in UC. 

Other Subroutines Called 


None. 

Registers Destroyed 
None. 


UAIT 


This is called to make the program wait until the operator 
types '^n.GO.'^ First we set bit 12 of the word at RA + D to 
1. Them at PSEBt call subroutines RES and REL to reserve 
and release the channel! bbSl and printer. This seems 
rather pointless! but subroutine REL includes a pause for 
storage relocation! and the possibility of dropping the 
control point. Then we check bit 12 of RA+Di if still li 
wait one millisecond and return to PSE3 to repeat the 
cycle. If the bit has become Di the operator must have 
typed ®n-G0.'^ Ue zero the B-display word in the control 
point! which contains and then exit. 
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Entry Exit Information 

Nonsn cxcspt that D»RA and D»FL haya bsan updatsd it" 
necESsary during the call to REL* 

Other Subroutines Called 

RES, REL. 

Registers Oestroyed 

Only D.TO through O.TM by WAIT directly. 


DO 

This is called whenever a special function is to be 
sent to the printer. The function code is in the A register 
on entry, and is saved. Subroutine RES is called to re 
serve the channel, select the bbSl, and connect the printer* 
Then the function code is put back into the A register and 
to subroutine FCN, which sends it to the printer. 

Then subroutine REL is called to release the channel, bbBl, 
and printer, and we exit from DO. 

Entry Information 

The function code in the A register. 

Exit Information 
None • 

Other Subroutines Called 
RES, FCN, REL. 

Registers Destroyed 
None by DO directly. 


PRINT 

This is called to print the current line, which begins at 
BUF, and whose length in bytes is stored at li)C. Ue call 
subroutine LIST with address BUF in bits 0-11 of the A 
register, and address lilC in bits lB-17. This makes LIST 
send the series of bytes so defined fpr printing. On 
return, the status byte of the printer has been stored in 
STAT:, if bits B and ID of this are both zero, there is no 
printer error and we exit from PRINT._ Otherwise, uc know 
the printer must be a SIB, as these bits are not set by 
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the SDl^ so as the trouble may be in the print image 
memory of the SlEi we call subroutine LOAD to re-load it. 
Then send function code ^ to the printer via subroutine 
DO to cause a page skipl call subroutine nSG to set up 
message LP uu PRINT ERRORS subroutine R.DFH to send it to 
the dayflle and put it on the B-displayn and subroutine 
WAIT to wait until the operator types '^n.GO.'’ Then reset 
D.OUT and D.OUT+1 from the FET OUT pointer-i and return to 
LPDA to try the same line again. 

Entry Information 

litC holds the length of the line in bytes. 

Exit Information 


None. 

Other Subroutines Called 

LIST-. LOAD-, DO-, hSG^ R-DFn-. WAIT 

Registers Destroyed 

Only D.TQ through D.TM by PRINT directly. 


LOAD 


This is called initially to load-, or subsequently to re¬ 
load-. the print image memory of a SIS printer with SfiS 
characters taken from the right halves of bytes INAGE 
through INAGE-t-SS?. The characters are in display codei and 
must be sent to the printer in BCDi the left half of each 
byte contains display code 0-. so that when sent to the 
printer it will be the corresponding code-, UOB. These 
2aa characters correspond to the Eaa characters in the 
same order on the train of the 512. 

Subroutine LOAD also sends function 5 {set auto-page-skip 
status} to the printer if FL.AUTO = 1. This is necessary 
on the 512 initially or after a print error-, and it is 
necessary initially on a SDl printer. So the only time 
LOAD is called for a 5D1 printer is during initialization-, 
and in this case the jump at LOADS is suppressed so that 
everything between there and LOADA is skipped. 

First {for a 512} we call subroutine DO to send function 
code 12B to the printeri this conditions the printer to 
copy the next print line sent to it into its print image 
rather than printing it. Next-, we are about to call sub¬ 
routine LIST to send the '^line'^ of characters to the printer. 
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However-i LIST will convert the characters from display 
code to BCD using table ALPH. Normally-« the table con¬ 
verts both display code 5SB and display code QDB into 
tOB-. the BCD blank. But the printer train contains some 
per cent signsi which because of a limitation in SCOPE can 
never be printed. We must send to the corresponding 
positions of the image memory some BCD code that will never 
be sent to the printer during actual printing- The BCD 
code that is never used in printing is ILBi so we store 
IbQDB in the position of table ALPH that corresponds to 
display code DDBi thusn temporarily! letting display code 
□□B take care of the unprintable per cent sign*^ 
put the length of the image line-i MMDS or Bfifln into D.T?! 
and call subroutine LIST with address IIIASE in bits 
of the A register and address D.T7 in bits lB-17. 
sends the line to the printer. Then we restore table 
ALPH so that display code DOB will once more be turned 
into BCD bOB-i the blank character. 

This loading or reloading may have upset a previous 
selection of fl lines/inch spacing on the printer*! so we 
send function BOB to the printer through subroutine DO 
to clear fl-line and auto-page-skip selections^ then send 
code IDB or HBt to select fl-line or b-line spacing accord¬ 
ing to^flag FL.flLL*! then send code 5 -, to select auto page 
pping-i if flag FL-AUTO is 1- This last selection! 
beginning at LOADAi is all that is done Cif necessaryl^ 
when LOAD is called during initialization for a 501 printer. 

Entry and Exit Information 

None.but the printer train image must have been set up or 
pre^rved in IMAGE through inAGE + Efl7. 

Other Subroutines Called 

DO! LIST 

Registers Destroyed 

Only D.T7 by LOAD directly. 


LIST 

This is called by subroutine PRINT to print the current 
line! by subroutine LOAD to send the printer train image 
to the printer image memory! and by subroutine DUti to 
print a line of two blanks after a post-print skip has been 
selected on the printers this last is how a preprint skip 
for the next line is simulated when it cannot be handled 
as a post-print skip on the preceding real line. 


13-77 





SCOPE 


On entry•« bits D-ll of the A register contain the address 
of the beginning of the linei which is stored at LISTA+li 
and bits 12-17 contain the address of a direct cell con¬ 
taining the number of bytes in the line. This number is 
fetched and saved in D-T?. 

At LISTD we call subroutine RES to reserve the channel t 
select the btaflli and connect the printer. Then call sub¬ 
routine STSi which puts the status byte of the printer in 
the A register. If bit 1 is Qt the printer is ready and 
not busy-i and we jump to LISTC. Otherwise•» call subroutine 
REL to release everything! and return to LISTD to try again. 
At LISTCi we zero the B-display message word in the control 
point! which might have had a hardware trouble message put 
in it. Then function the printer for output of data! 
activate the channel! and zero D.Zli the byte counter for 
the print line. 

At LISTAi we pick up the byte D.Zl points toi convert it 
from display code to BCDi send it to the printer! and wait 
till the channel is empty. Then add 1 to the count in 
D.Zl! and if it does not yet equal the line length in D.T?! 
return to LISTA. 

When the whole line has been transmitted! we arrive at PRT?! 
disconnect the channel! call subroutine REL to release 
the channel! bbfil! and printer! and set ALARM to contain 
the current time plus AL.LP milliseconds! modulo lODODB 
milliseconds. This is to prevent us from starting to 
process the next line until at least AL.LP milliseconds have 
passed! on the assumption that until then it is worse 
than useless to keep testing the printer status. 

The switch at LISTS will make us exit from LIST if the 
printer is a SIB. But for a SDl! we test FL.POSTi if 
this is 0i exit from LIST. If it is we sent a post¬ 
print skip code to the printer before printing the line! 
and must now clear it! so we reset FL.POST to 0 and send 
the clear codei IDBi to the printer via subroutine DO. But 
if the printer is supposed to be in auto-page-skip status! 
this lOB function will have cleared that as well! so nou! 
if FL.AUTO is l! we renew auto-page-skip status by sending 
function 5 to theprinter. Then exit from LIST. 

Entry Information 

The A register contains the starting address of the line 
to be printed in bits D-ll! and bits 12-17 contain the 
address of a direct cell that contains the length of the 
line in bytes. 

Exit Information 


None! except that ALARM has been updated. 
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Other Subroutines Callgd 
RES-, STS-, RELi DO 
Registers Destroyed 

D.Zli I>.Z2i D.TD through ]>.T4i 0.T7. 


This is called with either the ^ 

current line in the A register-, or with the Jl! 

NCHAR-. which is either the first character ^ ^ 

line or zero If that character is unknown . If the character 
i-rdilplay code 3 through 'I. we exit from EV with D through 
b In the A register. If it is display code X through Z, 
we exit with 7 through ^ in the A register. If 2 a 
anything else-, we exit with a negative number in the 

register. 

Thus we exit with a negative number in the A register if 
the entry character does not call for a pre-print skip on 
the line in question-, or with a positive number specifying 
the channel to which a pre-print skip 

exit numbers G through T. the corresponding channels for 
the Sia printer are b-. 5-. 4-, 3-, 2-, H- 7 . fi-, ^ . 

To exit numbers D through 5. the corresponding channels tor 

the 501 printer are b-, S-, 4-, 3-, S-, and 

numbers b through 1-, no skip is done for the 5u 

Entry Information 

The A register contains either the first character of a 
print line-, or zero indicating that the first character of 
the next line is unknown. 

Exit Information 

The A register is negative if the entry character did not 
call for a pre-print skip*-, otherwise it contains a number 
Stween 0 and 'i, specifying the format channel for a pre¬ 
print skip. 

Other Subroutines Called 


None. 

Registers Destroyed 


None. 
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POST 


This is called with a number between 0 and 1 {QDB and IIBJ 
in the A register! specifying a printer format channel to 
which a post-print skip is to be sent to the printer* 

This number may have been constructed by subroutine E7 
from a character calling for a pre-print skip {which is 
always simulated by a post-print skipf-i or by t he main 
routine at SPCC from the first character of the present 
line if it calls for a post-print skip* 

The switch at POSTS sends us to POSTZ if the printer is a 
S15. If the entry number is □ through >4! this calls for 
a skip to channel b through we have subtracted S 
from the number! giving -5 through -li we change the sign 
of this and add it to BlBi giving a function code 3b0 
through 3BB which is sent to the printer via subroutine 
DO* If the entry number is 5! we send function code S+3bB 
M3B to the printer! giving a skip to channel 11* If the 
entry number is b through we subtract 5 from it and 
then add 3bB! giving a function code of 37B through 42B! 
calling for a skip to channel 7 through ID* After call¬ 
ing subroutine DOi we exit from POST with a negative 
number in the A register! showing that a skip function has 
been sent to t he printer. 

The switch at POSTS is a no-op if the printer is a SDl* 

If the entry number is b through *1! we exit from POST with 
a positive A register! showing that no skip function was 
sent to the printer! as format characters "i! X through 2! 
and I through L have no meaning for it* Otherwise! we 
have subtracted b from the number! giving 777771B through 
77777bB. Forming the logical difference of this with 
7777b7B gives IbB through llBi the function code for a 
post-print skip to channel b through and this is sent 
to the printer via subroutine &0* Then we set FL.POST to 
li indicating that immediately after the next time a 
line is printed! the clear skip select code IDB must be 
sent to the printer. Then exit from POST with a negative 
number in the A register! indicating that a skip function 
has been sent to the printer* 


DUM 

This is called before doing anything else for the current 
line if FL.N5NXT is indicating that if its first char¬ 
acter calls for a pre-print skip! it has not already been 
simulated! in this case it is entered with the first 
character of the current line in the A register* It is 
also called if the current line had a post-print skip 
format character! so that a pre-print skip on the next 
line has still to be simu"kited. In this case! DUM is 
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called with the content of NCHAR .n the A register-i 
which is either the first character of the next line or 
zero if that character is unknown- If zeroT DUfl will do 
nothing^ and FL-NaNXT will be set 1 when the next line 
begins to be processedn so that DUfl will be called once 
more - 

When sun is entered-i subroutine EV is immediately calledi 
and if the exit from EV is with a negative A register-i the 
character did not call for a pre-print skip and we exit 
from sun. Otherwise-, we immediately enter POST without 
changing the key number EV left in the A register- POST 
will either issue the corresponding post-print skip function 
and exit with a negative A register-, or do nothing and 
exit with a positive A register. If the exit from POST 
is with a positive A register! we exit from SUn- Other 
wise! we call subroutine LIST in such a way as to ''print 
a line consisting of the single byte DOODB! i-e-! two 
blanks- The post-print skip will take effect immediately 
after this empty print action! thus giving the effect of 
a pre—print skip immediately before the next real 
to be printed! whether the current or the next one- Then 
we exit from OUTI - 

Entry Information 

The A register contains the first character of the current 
line or the next linen or zero if we are dealing with the 
possible next line but its first character is unknown. 

Exit Information 


None - 

Other Subroutines Called 
EVn POST! LIST 
Registers destroyed 
None by DUPI directly. 


STS 

This is called when the channel! bbfll! and printer have 
already been reserved! selected! and connected by subroutine 
RESn to put the printer status byte in STAT and in the A 
register. It does not exit until the printer status is 
ready! though it may be busy or not- 

lile function the printer for status! activate the channel! 
input the status byte! deactivate the channel! and store 
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the byte in STAT. If bit □ is 1-. the status is ready; 
we go to STSS to check bit 11. If this is It it may 
indicate that the printer is reserved by another channel 
-Chowevern this cannot happen under SCOPE unless the printer 
is somehow connected to more than one computer.} If the 
bit is Dt we return the status byte to its original 
position in the A register and exit from STS. If it is 
It but the printer is a S12-» we do the same because the 
bit has a different meaning. But if the printer is a 
501-1 switch STSb lets us continue; we call subroutine flSG 
to put the message LP uu RESERVED on the B display; call 
subroutine REL to release everything! pause for storage 
relocation! and allow a control point drop; call subroutine 
RES to reserve-) select•) and connect once moren and return 
to STSl to try the status again. 

If bit □ of the printerstatus is Ot we do not check bit 
111 but call subroutine liSG to put the message LP uu NOT 
READY on the B-display; call subroutines REL and RES-, 
and return to STSl to try the status again. 

Entry Information 

Nonei but the channel-, bbfil-i and printer have already been 
reserved-, selected-, and connected. 

Exit Information 


The status byte of the printer is in STAT and in the A 
register-, and is known to be ready and not reserved by 
another channel. 

Other Subroutines Called 

nSG-. RELi RES 

Registers Destroyed 

None by STS directly. 


nsG 

This is called to copy the variable fb i^t of a message 
into nSGA-t-3 ff- -CliSGA through nSGA-^E contain ''LP'’ follow¬ 
ed by the EST ordinal of the printer} and to copy the 
whole message beginning at nSGA into the B-display message 
area of the control point. 

Entry Information 

The address of the beginning of the variable part of the 
message is in the A register. The message is terminated 
by a zero byte. 
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Exit Information 
None • 

Other Subroutines Called 


None. 

Registers Destroyed 
D.Zln &.Z2 


RES 

This is called to reserve the channeln select the bbfili and 
connect the printer. First we find the current time in 
milliseconds, modulo lODQGB, subtract it from the value 
in ALARM, and add IDOODB to the result if negative. Now 
either: ALARM was recently set to the then time 

plus AL.LP msec.*, if not more than AL.LP msec. ^^®ve 
elapsed since then, the result of the above operation w 
be less than AL.LP+U i.e., the alarm has not struck, 
and we do not want to bother the system by asking J^out 
the printer uselessly, so we wait one millisecond a 
to RESF to try again. ALARM was recently set to 

the then time plus AL.LP msec^ if more than AL-LP 
msec, but less than lOOGOB msec -CM sec.> have elapsed 
since then, the result of the above operation will be 
greater than AL-LP^ i.e., the alarm has struck and we go 
ahead to RESG. However, if IDODQB msec have elapsed 
since the alarm was set, it will appear that the alarm 
has not yet struck*, the same may happen the 
RES is called since 2LP was loaded, as we do not bother 
to initialize ALARM. However, this error means only an 
extra delay of AL.LP msec., which can be ignored when 
added to an occasional delay of 4 seconds. 

At RESG, we set ALARM to the current time in milliseconds, 
modulo IDDOQB, so that if we do not succeed in 
a line immediately, which would set the 

AL.LP msec., at least the next time RES is tthis 

should be in a very few miniseconds> there is no doubt 
that the alarm will appear to have struck and there will 
be unnecessary delay. 

Now at RESl we take the 1 to 4 channels named in theprinter 
EST entrv and fill them into a request to monitor to 
reserCfonrof them for our PP. Then call R.RCH to issue 
the monitor request. On return, we pick up the number of 
the granted channel, and store it in CH. Ir it is the 
same as the channel specified in any 2LP instruction that 
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names a channel {RESM is used arbitrarily for the com¬ 
parison)" ue go to RES3 t if not-* we first call subroutine 
R.ST8 with a pointer to the list at RESA. The first 
address in the list is CHi showing where to find the new 
channel address =. the remaining addresses are those of 
all the instruction bytes in 2LP that specify the printer 
channel. R.STB will alter all those instructions so that 
they specify the channel named in CH. The list at RESA 
terminates with a zero byte. Then go to RES3. 

At RES3 we select the bbSl-. prepare to send an equipment 
connect code-i send the equipment connect code-i which is^ 
already formatted in bits 0-11 of the EST entry-i wait till 
the channel is emptyi then set the return address of 
subroutine CFR to and enter CFR at CFRE* The effect 

of this differs from a simple RJtt CFR in avoiding the FAN 
instruction with which CFR begins. FAN would send a 
function code to the equipment and then check for acceptance^ 
the connect code cannot be sent by a FAN-i so we send it 
by an OAN in subroutine RES and then call CFR to check 
on acceptance. If the A register contains zero on return 
from CFRi the connect was accepted and we exit from RES. 

If not-. CFR has already released the channel-, bbaii and 
printer-i and we return to RESl to try again. 

Entry and Exit Information 

Nonei except what concerns ALARMi and the fact that the 
channel-, btfil-. and printer are not reserved-, selected-, 
and connected on entry-, and are so on exit. 

Other Subroutines Called 

R.RCH-. R.STB-. CFR. 

Registers Destroyed 

D.TQ through D.T4 


REL 

This is called whenever a printer action has just been 
completed-, or found to be impossible for the moment-, to 
release the printer-. bbSl-i and channelto pause for 
storage relocation-, and to drop the PP if the error flag 
is non—zero* The channel and bbfil must be reserved and 
selected on entryi the printer will no'^mally be connected 
but in fact we may have failed to connect it. First we 
send function code □ to the printer-, which disconnects 
it if necessaryT then deselect the bbflli and finally 
call R.DCH to release the channel. Finally-, call R.PAUSED 
update D.RA and D.FLi exit if the error flag byte in the 
control point is zeroi otherwise drop the PP. 
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Entry and Exit Information 

Nonei except that the channel t blafilji and printer are 
reserved-, selected-, and connect on entry-, and alt released 
on exit. 

Other Subroutines Called 
R.DCH-, R.PAUSEt R.HTR 
Registers Destroyed 
None. 


FCN 

This is called-, with a printer function code in the 
register-, whenever a function is to be sent to the printer 
after it has been connected-, and apart from printing it¬ 
self. On entry -1 we save the function code at FN. The 
channel-, bbfili and printer have already been reserved-, 
selected-, and connected. lile call subroutine STS to get 
the status of the printers it will not exit until the status is 
'='ready’'V but we must still check the ''busy'' bit. Ue call 
STS until the ''busy'' bit is Then pick up the function 

code and call subroutine CFR-. which will send it to the 
printer and check for acceptance. If the function is 
accepted-, the exit from CFR is with zero in the A register^ 
we then zero the first word of the B-display line in the 
Control point-, in case a hardware trouble message had 
appeared there in the meantimeT and then exit from FCN* 

If the exit from CFR was with non-zero in the A register^ 
the function was not accepted-, and the channel-, tt.61-, and 
printer have already been released* So we call subroutine 
RES to reserve! select! and connect them again-i and return 
to FCNl to try once more to send the function. Iile dp not 
call STS on the re-try•, because we cannot exit from RES 
until the printer status is ''ready'' in any casei the only 
other status we were checking after getting the status 
was ''busy''-, but the printer can hardly be busy if it is 
reserved to this control point and file. 

Entry Information 

The printer function code in the A register. The channel 
bbSl-. and printer are already reserved-, selected-, and 
connected. 

Exit Information 

None. The function code has been acceptedn and the channeln 
btifili and printer are still reserved-, selected-, and connected 
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CFR 


This is called to send to the printer any function code 
that can be sent by a FAN instruction! and to check for 
acceptance- On entry t the function code is in the A 
register! and the FAN instruction is immediately executed- 
After that! from CFR3 down! everything concerns checking 
for acceptance. 

CFR is also entered from subroutine RES in such a way as 
to skip the FAN instruction! as RES has already transmitted 
the relevant function! but to go through all the checking 
for acceptance. 

At CFRE we function the bbfll to ask for its statusi activate 
the channel! input the status bytei deactivate the channel! 
and zero all bits but 0! l! and 2« If those three bits 
are all Oi the function was accepted and we exit with 0 in 
the A register. 

If bit □ is li we go to CFR?! call subroutine MSG to format 
the message LP uu XnSN PARITY ERRORi call subroutine R.DFh 
to put it on the dayfile and the B-displayi wait one seconds 
issue a channel clear functions go to CFRb- The one-second 
wait is an effort to let any data transmissions that may 
be happening on the same channel i involving other PP-'s! 
be completed rather than interrupted by the channel clear* 

No new transmission could be begun by another PP during 
the wait! since the channel is reserved by our PP. 

If bit □ of the bbSl status is 0 but bit 1 or bit S is 

we call subroutine HSG to format the message LP uu REJECTi 
then copy it to the B display line of the control point 
and arrive at CFRb. 

At CFRb we call subroutine REL to release the channel! 
bbSl! and printer! pause for storage relocation! and give 
the opportunity to drop the PP. Then exit from CFR with 
non-zero in the A register! indicating failure. 

Entry Information 

A printer function in the A register. The channel i bbflli! 
and printer are reserved!selected! and connected! except 
that the printer may not have been successfully connected 
when CFR is called to check the acceptance of the connect 
code. 

Exit Information 

If the A register contains □! the function has been accepted 
by the printer and the channel! bbSln and printer have 
not been released. If the A register contains non-zeroi the 
function was not accepted and they have all been released. 
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Other Subroutines Called 
nSCi REL-. R.DFn 
Registers Destroyed 
None by CFR directly. 


March lltl 


13-87 



V 


r feP 9ri i ;?uo'^<iuZ 

► -3F 

b wo •» 


^9ri7 0 
r.)2n 

U^t 


ta • 


r ifc' 



SCOPE 


2PC On-Line Punch Driver 


General 

2PC is a PP program, always loaded at 2000B* It is the only program 
that actually drives a card punch unit. It is called 

1. by CIO to write a local file that has been assigned to a punch 
unit, 

2. by PBC to punch out an area of central memory, 

3. by IPO, which was requested by lOT, to punch a file from the output 
stack. In cases 2 and 3, there is no FNT entry for the cards 
regarded as a file. 


Function 


2PC punches cards in three different formats: 

1. Standard binary. Each card has xy05 octal in column 1, where 

xy is the word count; a checksum in column 2; xy words of information 
beginning in column 3 up to column 77 If xy has its maximum value 
of 17B; and a sequence number within its record in columns 78-80, 
the first card of a record being numbered 1, not 0* Only the last 
card of a record may have xy less than 17B- 

2. 80-column binary. Each card contains 16 words of information in 
its 80 columns. The last card of a record may in fact contain 
fewer^than 16 words, but as there is no word count, this merely 
means that columns at the end of the card, in which no information 
Is being transferred, contain zero* 

3. Coded (BCD). Each card contains up to 80 BCD characters, beginning 
in column 1. As words are being transferred from the buffer to 
the card Image, the last byte of each word is checked for being 
zero, and If zero, no more Information is transferred to the card; 
the next word will begin the next card. When eight words have been 
transferred to the card image without finding a zero byte at the 
end of word, the next word in the buffer will simply begin a new 
card unless it is a zero word that was put in the buffer in order 
to have a word ending in a zero byte. Then the terminating word 

is skipped, and the next word begins the next card. 

Unfortunately, card punching is unique among outputs in that the checking 
of a card cannot be done until just after the next following card is 
punched. E.g., card 3 in a record is checked just after card 4 is punched. 
Now If card 3 turns out to be bad, the programs has to offset both card 
3 and card 4, and then back up its pointers not one card, but two. To 
make it worse, 2PC has to be able to work with CIO; this means that the 
PP may be dropped in the middle of a record, and the next time CIO and 
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2PC are loaded, they may have to back up the pointers and repunch some¬ 
thing that was punched the last time they were loaded. So It has to keep 
all the necessary Information In the FET and PNT. 

Tn fact, there are three different OOT pointers. Let us call them x, y, 
and z. At the beginning of a record, they are all equal. Then pointer 
X is advanced In transferring data from the buffer to a card Image. Then 
the first card Is punched. There is no question of checking, as there 
Is no preceding card. So z Is set equal to y, and then y is set equal 
to X. Now z points to the beginning of the last card punched, and x 
and y point to Its end+1 in the buffer. Then words are transferred from 
the buffer to the card image for a second card, while pointer x is advanced. 
Then this card is punched, and the preceding card is checked. At this 
point y and x point to the beginning and end+i of the card just punched, 
and z and y point to the beginning and end+1 of the preceding, just checked, 
card. If the check is bad, we must reset x and y equal to z. If good, 
we can set z equal to y, and then y equal to x, and repeat the cycle. 

If punching is interrupted in the middle of a record by a lack of data 
in the buffer, there will be doubt about whether the last card punched 
was good. Just before finding that there was insufficient data in the 
buffer for another card, we will have been using x pointer to move the 
data. Y will still point to the beginning of unused data in the buffer, 
and z to the beginning of the punched but unchecked card. Now we must 
not set the OUT pointer in the FET equal to y, as somebody might then read 
data into the buffer and destroy the information between z and y, which 
we may need if. when 2PC Is later reloaded, the last card punched is 
found to have been bad. So we store z in the OUT pointer of the FET. 

But in order to give 2PC a y pointer the next time It is loaded, since 
it is from y that It will have to start moving data for a new card image 
before it can even check the last card, the number of words that were 
moved to the lest card is stored in the FNT, in bits 18-23 of the second 
word. The next time 2PC is loaded. It will get the z pointer from the 
FET, then construct a y pointer using this number from the FNT, then 
set x=y and start building the next card image. 

The 2 pointert in fact^ is the one maintained in the FET in central memory 
(if 2PC is called by IPO or CIO) or in cells D.BA and D.BA+1 (if 2PC Is 
called by PBC, which uses no FET.) The y pointer is kept in cells D.OUT 
and D.OUT+1, and the x pointer in PA and PA+1. 


Entry Information 

D.FNT through D.FNT+9 hold the second and third words of the FNT entry 
for the file of cards being punched (if 2PC is called by IPO or PBC, 
there is no FNT entry really, but this is simulated). D.EST through 
D.EST+4 hold the EST entry for the punch unit. But D,EST+3, which would 
normally contain the display code letter "CP", will contain zero if 2PC 
was called by PBC; this is merely a self-identification made by PBC. 

If 2PC is called by PBC, D.OUT, D.OUT+1, D.IN, and D.IN+l contain the 
starting and ending+1 addresses, relative to EA, of the CM area to be 


13-89 


Nov. 1968 



SCOPE 


punched out; and the infonoation in the input register does not directly 
concern 2PC. 


Otherwise* D.FIRST, D.FIRST+1, D«IN, D 
D.LlMlT+1 contain the normal pointers 
input register contains, in bits 0-17, 
first word of the FET. 


.IN+1, D.OUT, D.OUT+1, D.LIMIT, and 
from the FET of the file, and the 
the address relative to RA of the 


If no card from the present record has been punched yet, bits 0-23 of 
the second word of the FNT entry, in D.FNT through D.FNT+4, contain zero. 

Otherwise, bits 0-16 contain the number contain 

17 is a flag that does not appear ever to be used, and bits ^^“23 co ta 

the number of words of information that were taken from t e u er or 
the last card punched. D.OUT and D.OUT+l contain the z pointer, as ex¬ 
plained in "FUNCTION" above; and this number from the FNT enables us to 

construct the y pointer. 


Exit Information 

D.FNT through D.FNT+9 have been updated. Note that the sequence number 
of the last card punched has been stored in bits 0-16 of the word in 
D.FNT through D.FNT+4, and the number of words of information that were 
taken from the buffer for it has been stored in bits 

word. The OUT pointer in the FET (or cells D.BA and D.BA+1 if 2PC was 
called by PBC) has been set to point to the beginning of the last car 
punched, while D.OUT and D.OUT+1 have been set to its end+1 in "e buf£e^. 

However, if 2PC has just punched an eor or eof card, OUT oointers 

in D.FNT through D.FNT+4 have been set to zero, and the IN and OUT pointers 

in the FET have been set equal to the FIRST pointer* 


Other Programs Called 
None* 


Narrative 

First subroutine PRS is called. As this is the only place it is called 

we describe it here as part of the main routine. 


PRS begins by formatting information from the EST entry into 6661 select 
and equipment connect codes. Then it inserts the equipment number in 
the message at MSGA. Then it sets the x pointer (PA) equal to the V 
pointer (D.OUT) and sets PM to 1. PM is 1 whenever the last card P«"ched 
should be offset by giving a suitable function code * 

the following card, and 0 otherwise. Now check bits ^ 

word of the FNT entry. If these are zero, we have yet to punch the first 
card of the record, so the y pointer already equals the z pointer, an 
the X pointer should be equal to both, as we have n^ set it. Also, the 
last card punched was 7-8-9 eor card, and this should be offset. 
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PM=1 is correct) and we exit from PRS. But if these bits in the FNT 
are not zero, they give the number of words that were taken from the 
buffer for the last card punched; and we know that the z pointer in the 
FET points to the beginning of that card; so did the y pointer when we 
entered PIS, and we have set the x pointer the same. Now we put the number 
in cell WC, and call subroutine XFR. This moves words from the buffer 
into the area beginning at BUF; we shall clear that area before we actually 
build up a card image in it; but what XFR has done usefully is to advance 
the X pointer, so that it now points to the end+1 of the last card punched. 
Now we set the y pointer (D.OUT) equal to the x pointer (PA) so that the 
X pointer is free to be used in moving data for the next card. Since 
we do not, so far as we know, want to offset the last card punched, we 
zero PM, and then exit from PRS. 

After PRS, we check the mode in the FNT. If this is binary, we test the 
disposition code in the FNT, and branch to BIN or PAB according as it is 
12B or 14B (normal binary or 80-column binary). If the mode in the FNT 
is BCD, we go to HOL. 

We come to PCD4, just below where we choose a branch to BIN, PAB, or HOL, 
in only two cases - from PCD3+1 above, when the status in the FNT shows 
rewind, unload, or backspace status (this could scarcely happen) or from 
CHK5, after punching an eor or eof card, when not called by PBC. At PCD4 
we merely set IN=OUT=FIRST in the FET before exiting from 2PC. 

Before describing what happens at BIN, PAB, and HOL, let us describe 
subroutine CHK. This is entered with a number in the A-register: 15 
when punching normal binary and 16 when punching 80-column binary cards, 
as this is the number of words we expect to move per card, or 1 when 
punching BCD cards, as we examine the words one by one for final zero 
bytes as terminators. This number is saved in WC, and then we look at 
the FIRST, IN, OUT, and LIMIT pointers in the PP (using the x pointer 
for OUT, not the y pointer) to see if there are that many words left in 
the buffer. If so, we exit from CHK, having merely put the word count 
in WC, but not having touched any pointers. If too few left, we put the 
number that are left into WC, as this may be the word count for the next 
card if it turns out to be the last data card of a record. (Note that 
for BCD punching, we always entered CHK with I in the A-register, so if 
there were fewer words than that left in the buffer, we must have just 
zeroed WC. This thought simplifies the routine beginning at HOL.) Now 
call subroutine CLR to zero the card image area (so that a less-than-full 
binary card at the end of its record will contain blank columns, not 
garbage. In Its unused space. We need not do this for a full binary card, 
as the entire card image is filled with new things anyway.). 

Now check the status in the FNT. If it is not eor or eof, exit from 

2PC. We are not called on to do anything further until more has been 
read into the buffer. The z pointer is already in the FET, and the number 

necessary to reduce the y pointer, l.e. the number of words of information 

in the last punched card, as well as its sequence number in the record, 
have already been saved in the FNT. 

But if the status is eor or eof, and WC, the number of remaining words 
in the buffer. Is not zero, exit from CHK. This must mean exit back 
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to the routine at BIN or PAB, as for BCD punching, WC would have to be 
zero now. So we would be going back to that binary routine having put 
the initial 15 or 16 in WC, and then either confirmed that there were 
that many words left in the buffer, or having adjusted WG down to the 
number of available words. If the status is eor or eof, and WC^, the 
buffer is empty and it is time for the eor or eof card to be punched. 

We have already zeroed the card image; now we put 0007B or 0Q17B in 
column 1. Then, for eor, we get the level number from the FNT, convert 
it to two octal BCD characters, and store them in columns 2 and 3, Then, 
at CHK3A, we call subroutine PCH to punch the card, and also to check the 
preceding card. If it found an error in the preceding card, EM will 
1, otherwise 0. If 1, it will have offset the preceding card, but the 
offsetting of the just-punched eor or eof card remains to be done. If 1, 
we lower the exit address in CHK by 3, and then exit. This means that 
the program immediately reloads the A-register with 16, 15, or 1, and 
re-enters CHK. But PCH (or rather subroutine CICC, always and only called 
by PCH) has also backed up the x pointer to equal the z pointer, so this 
time we come through CHK we will not set up the eor or eof card, but 
merely set WC = the number of words in the buffer remaining for the last 
card, and return from CHK to the routine that will set up that last card 
for punching once more- When that card is punched once more, CKC will 
see the 1 in PM, and will offset the previous card, i.e. the eor or eof 
card we punched in CHK, but found that its predecessor was bad. 

But if the card before the eor or eof card was found to be good, so that 
PM = 0, we continue at CHK4- If it was an eor card, we go down to CHK6 
to clear bits 0-23 of the second word of the FNT and then exit from 2PC, 
first setting IN=OUT=FIRST in the FET, at PCD4, if 2PC was not called 
by PBG. If it was an eof card, we first do a ^^4^^ function on the card 
punch, which causes the eof card to be pushed on out of the punch unit, 
and checked - we ignore the check - and a blank card is "‘punched^^ behind 
it. Then go to CHK6. The blank card behind an eof, or the eor card it¬ 
self, will be offset because when 2PC is called for a new record, PM 
will initially be set to 1. 

So we can say that apart from complications due to punch faults, CHK 
sets WC to the nimiber that was in the A-register on entry, or to the 
number of words remaining in the buffer, whichever is smaller; and exits 
from 2PC if less than a full card is left and the status is not eor or 
eof; and if there are no words left in the buffer and the status is eor 
or eof, it punches the appropriate card and exits from 2PC. 

Now for the punching of 80-column binary cards, beginning at PAB. We 
put 16, the number of words per full card, into the A-register and call 
subroutine CHK. If we return from CHK to the PAB sequence, we know that 
WC contains the number of words to be punched in the next card, beginning 
at what the x pointer points to* Se we put the address BUF in the A- 
register and call subroutine XFK, which will move the number of CM words 
given in WC from the buffer, beginning where the x pointer points, into 
PP memory beginning at BUF, i.e. the card image- XFR will update the 
X pointer accordingly. Next we call subroutine CCT, which merely adds 
1 to the card count in bits 0-16 of the second word of the FNT entry, in 
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D-FNT through D*FNTH-4. Finally^r we call subroutine PCH to punch the 
card whose image Is already in BUF through BUF'^79^ and to check the 
punching of the preceding card. If the preceding card was good, the 
2 pointer will be advanced to equal the y pointer, and the y pointer 
will be advanced to equal the x pointer, and we then begin the cycle 
again at PAB. If the preceding card was bad, the x pointer will be backed 
up to the z pointer, and we recommence the cycle at PAB, In the latter 
case, the y pointer will not be moved, but this does not matter. Having 
backed up two cards, we will re*punch the first of them, but when we 
get into subroutine GKC we will find M already =1; so we will not check 
the preceding card but merely offset it, and will not set the z pointer 
equal to the y pointer. On exit from GKC on that occasion, the z pointer 
will still point to the beginning of the first of the two cards to be 
re-punched, and the x and y pointers will both point to the beginning of 
the second. 

So much for the PAB cycle. The exit from it can take place only through 
subroutine CHK when the buffer Is exhausted, with or without eor status. 

The BIN cycle, for punching ordinary binary cards, differs from the PAB 
cycle only because the card format is more elaborate. First enter sub¬ 
routine CHK with 15 in the A-register, as that is the number of words 
of information that fill a card. The logic of what subroutine CHK does 
is exactly the same as for the call on CHK in the PAB cycle. If we 
return from CHK into the BIN cycle, WC has been set to the number of 
words of information that are to be punched in the next card. Now we 
set the A-register to BUF+2, because information in a standard binary 
Card begins in coliimn 3, and we call subroutine XFR to move words from 
the buffer to the card image, updating the x pointer. Again, this is 
exactly the same in principle as for the PAB cycle. Now (here we differ 
from the PAB cycle) get the word count from WC, put it in the upper half 
of column 1, with a 5, for 7- and 9-punches, in the lower half. Then 
call subroutine CKS to form the checksum and store it in column 2 of the 
card image. Then call subroutine CCT, just as in the PAB cycle, to in¬ 
crease the card count in the FNT. Then zero column 78 (this Is not in 
the PAB cycle) and copy the card count from the FNT into columns 79 and 
80. Then, as in the PAB cycle, call subroutine PCH to punch and check, 
and re-commence the BIN cycle at BIN. 

The HOL cycle, for BCD cards. Is more complicated because we do not know 
in advance how many words we shall put in a card image, as the first word 
that ends in a zero byte will terminate the card. First call subroutine 
CLR, to zero the whole card image preparatory to moving in the images 
of from 1 to 8 BCD words. This subroutine also leaves cell D.Zl containing 
the address BUF, and we shall use this setting in a moment as an index 
register as we fill in successive columns of the image beginning with 
column 1. Then zero D.Z4, in which we shall count how many words we 
took from the buffer in making up this card image (WC will not contain 
this count as it would for a binary card). Now we are at HOLl* We call 
subroutine GHKHOL to check the state of the buffer. If the status is 
end of record, and the buffer is already empty according to the x pointer, 
and D-Z4 does not contain zero, the record is exhausted but the card image 
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is not empty, and CHKHOL branches to H0L5 to punch out the card* If the 
record is exhausted but D*24 contains zero^ the card image Is still empty, 
so CHKHOL puts 1 in the A-register and calls the subroutine CHK, which 
will handle the eor card in that case. If the record is not exhausted, 
either because the status is not eor, or because the buffer is not empty, 
CHKHOL puts 1 In the A-register and calls subroutine CHK, which will simply 
leave 1 in cell WC if the buffer is not empty, or exit from 2PC if it is 
empty. Then we set the A-register to contain the address D.TO, and call 
subroutine XFER, which moves into D.TO through D.T4 the word in the 
buffer to which the x pointer points, and advances the x pointer by 1. 

Then we add 1 to the word counter in D.Z4. Next we convert the 10 characters 
of the word into ten bytes, taken from table HOLA, which we store in 
10 cells beginning at the one to which D.Zl points - initially BUF for 
column 1. Table HOLA gives, for every display code character the corres¬ 
ponding pattern of holes in BCD card column* Now D.Zl points to the next 
free cell in the card image. When D.ZL comes to contain BUF+SO, we have 
filled the card image. We do not know whether the last byte of the 8th 
word was zero, and this does not mattery yes or no, that word ends a 
card anyway. The only question is whether, according to the normal method 
of handling the suppression of trailing blanks, the line is terminated 
iimiediately after the 80th character by a whole word of zeroes; if so, 
we do not want that word to result in an extra blank card- 

Before looking at the next word, we call subroutine CHKHOL to check the 
state of the buffer. If the status is end of record and the buffer is 
now empty according to the x pointer, the record is exhausted and CHKHOL 
branches to HOL5^ to punch out this 80-character card- Otherwise, CHKHOL 
puts 1 in the A-register and calls subroutine CHK. If the buffer is not 
empty, CHK merely sets WC = 1 and returns. If the buffer is empty, CHK 
exits from 2PC; but this Is all right because the status is not end of 
record, so it Is not our last chance at this information- If we return 
from CHK an CHKHOL there is more available in the buffer, and we fetch 
the word the x pointer points to. If Its first byte is not 0, we go to 
H0L5 to punch the card we have set up, knowing that the next word in the 
buffer can be allowed to begin another card. If that byte is zero, we 
assume the whole word is zero, and is merely a terminator to the card 
whose image we have just set up. So we call XFR with the address D.TO 
in the A-register. As subroutine CHK has set WC “1, XFR advances the x 
pointer by 1, skipping over the zero word, and copies the zero word into 
D.TO through D-T4, where we are not Interested in it any further- Then 
add 1 to D.24, because it represents, not the niimber of words in this 
card, but the number of words that have to be taken from the buffer for 
this card, which is in fact 9. Then go to H0L5 to punch this card. 

Whenever we finish converting a word other than the 8th one, we get to 
H0L4. Here we test the last byte of the word from the buffer, now in 
D.T4. If the byte is not zero, we return to HOLl to begin the next word 
from the buffer; If it is zero, we have moved enough words from the buffer, 
the X pointer is now correct, the number of words taken from the buffer 
is in D.Z4, and we go to HOL5. 


Nov- 1960 


13-94 



SCOPE 


We come to HOLS when we are ready to punch out a BCD card. First call 
subroutine CCT, to advance the Card counter in the FNT. Then set WC = 
D.Z4, the number of words taken from the buffer for this card, and call 
PCH to punch and check. Then return to HOL to continue the cycle. What 
PCH does with the number in WC is to store it In the FNT, in case this 
is the last card we punch before exiting from 2PC. 


Subroutines 


CCT 

This adds 1 to the card count maintained in bits 0-16 of the second word 
of the FNT entry, in D.FNT through D.FNT+4. The only use made of this 
count is to insert it in column 79 and 80 of each normal binary card 
image. There is actually no need to call CCT in the PAB and HOL cycles. 


Entry and Exit Information 
Only the card count itself. 


PCH and CKC 


As the last action of subroutine PCH is always to call subroutine CKC, 
and as this is the only place CKC is called, we shall describe them 
together. When PCH is called, the card image has already been set up 
in BUF through BUF+79. We call subroutine RES to reserve the card reader. 
Then put 1 in the A-reglster, as a function code for selecting binary 
punching (since we have set up even a BCD card as a binary card image) 
and call subroutine FCN to issue the function to the punch unit. Then 
output the 80 words of the card image on the punch. Then call subroutine 
CKC. 


Subroutine CKC begins by calling subroutine STS, which reads the status 
of the card punch and stores it at ST. Then we look at cell PM. Ordinarily, 
it contains 0, and we go to CKCl. However, it will contain 1 if this is 
the first card of the record that we have just punched, or if, when we 
punched the preceding card, we found that the second preceding card was 
badly punched. In either case,we send function code 3 through subroutine 
FCN to the punch, then release it with subroutine REL, zero PM, and go 
to CKG3. We offset the preceding card with this function code because if 
this is the first card of a record, the preceding one was an eor card and 
must be offset. Or if not, the second preceding card was bad and has 
already been offset, and the preceding card has to be offset as well; now 
the card we just punched above in PCH is a second attempt at the second 
preceding card. In both cases, by going this way to CKC3, we avoid checking 
the preceding card (i.e., we do not check the preceding eor card in one 
case, or in the other case, the second preceding card was bad, so the next 
preceding card had to be offset and abandoned, and there is no use in 
checking it). 
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Also* we do not advance the z pointer in the FET to equal the y pointer 
in D*OUT and D.OUT+l. In the case of the first card of a record, the 
z pointer already equals the y pointer* In the case of a re^punch, caused 
by bad punching of the second preceding card, we must continue to have 
the z pointer point to the beginning of the second preceding card in the 
buffer, because although we have just re-punched that card, we have not 
yet checked it* 

But if PM==0 when we enter CKC, then after calling subroutines STS we go 
to CKCl* Here we check the error bit in the status word at ST; if this is 
0 we continue by calling subroutine REL to release the punch; then we set 
the z pointer (in the FET unless we were called by PBG, or at D-BA if we 
were) equal to the y pointer. We now know that the preceding card was 
good, so we move the z pointer up to the beginning of the card just punched- 
Then go to GKC3. 

If the error bit in ST is 1, we go to CKC4. Here we call subroutine FCN 
with 3 in the A-register, to offset the card just checked* Then call 
subroutine REL to release the card reader. Then call subroutine MSG to 
make up the message ^’GP xx COMPARE ERRORand call subroutine R.DFM to 
put it out on the system dayflle but not the control point dayfile. Now 
set the X pointer equal to the z pointer, so that we shall start back two 
cards* Then go to CKG6, where we set FM=1, which will have the consequences 
described above when PCH and CKG are next called* Then reduce the card 
count In the FNT by 2, and exit from CKC and then from PCH- 

On arriving at CKC3, which we do either if PM contained 1 on entry, or if 
It contained 0 and the check of the preceding card did not find an error, 
we set the y pointer equal to the x pointer, and store the content of WG, 
which Is the number of words of buffer that went into the card just punched, 
and hence the number by which the z pointer must be advanced in order to 
equal the x and y pointers, in bits 18-23 of the second FNT word in D.FNT 
through D.FNT+4. Then exit from CKG and hence from PCH- 


Entry Information 

A card image in BUF through BUFH-79. The x, y, and z OUT pointers, in PA 
and PAH-1, D.OUT and D.OUT+1, and the FET respectively; except that the 
z pointer is in D-BA and D.BAH-1 if 2PC was called by PBC- D-EST+3 contains 
0 if 2PC was called by PBC, and not otherwise* The address of the first 
word of the FET (unless called by PBC) is in bits 0-17 of the input register* 

PM contains 1 on entry if the card to be punched is the first of a record, 
or if the card two before the one now being punched was found bad* 


Exit Information 


If fM contained I on entry, it is left with zero, and the z pointer is not 
altered* If PM contained 0 on entry, then if the check of the preceding 
card is good, PM is left 0, and the z pointer is set equal to the y pointer 
in either of these two cases, the y pointer is set equal to the x pointer, 
and the number of words of buffer that went into the card just punched is 
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stored in bits 18-23 of the FNT second word in D.FNT through D.FNT+4. 

If PM contained 0 on entry, but the check of the preceding card was bad, 
IM is left containing 1, the x pointer is set back to equal the z pointer, 
and the card count in bits 0-16 of the second word in D-FNT through 
D.FNT+4 is reduced by 2* 


Subroutines Called 


RES, FCN, STS, REL, MSG, R.DFM* 


Registers Destroyed 

D.TO through D*T4; also those destroyed by the above subroutines. 


GHK 

This is entered with the number of words wanted in the A-register: 16 in 
the PAB cycle for 80-column binary cards, 15 in the BIN cycle for normal 
binary cards, and 1 in the BOL cycle for each word to be fetched from the 
buffer* This number is stored in WC, which will tell subroutine XFR how 
many words to fetch, and then is compared with the number of words still 
in the buffer, using the x pointer as OUT pointer* If there are at least 
the wanted number of words in the buffer, we exit from CHK, which has done 
nothing but set WC to the number of words to be fetched. 

If there are not enough words in the buffer, WC is set to contain the number 
of words that remain* Then subroutine GLR is called to clear the card image, 
so that an incompletely filled card will not have garbage in its unused 
columns* Then if the FNT shows the status is not eor or eof, we exit from 
2PC as there Is nothing further to be done* 

If the status is eor or eof, we are at GHK2. Now if WC contains 0, showing 
that the buffer is empty, we proceed to CHIC3 to punch the eor or eof card. 
Otherwise, exit from GHK, which has done nothing but set WG to some number 
less than the wanted 16 or 15, so that the PAB or BIN cycle will punch the 
remaining words in the buffer in a short last data card- At CHK3, set up 
the image of an eor of eof card, getting the eor level from the FNT if 
necessary* At CHK3A, call subroutine PCH (and CKC) to punch the card and 
check its predecessor. If now PM contains zero, the predecessor was good, 
and we go to CHK4. If PM contains non-zero, the predecessor was bad, and 
we shall have to re-punch it and the eor or eof card. We leave non-zero 
in PM, and return to the instruction before the return jump that got us 
into CHK* In effect, this means we load 15, 16, or 1 in the A-register 
and come back into CHK. 

Now, however, the x pointer has been set back, in subroutine CKC, to equal 
the z pointer, which points to the beginning of the card that preceded the 
eor or eof card. On this second trip through CHK, we will merely set WC 
to the number of words for the last card of the record, or to 1 if we are 
punching BCD. 
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At CHK4, we test and branch straight to CHK6 If the card was eor^. If it 
was EOF, we call subroutine RES to reserve the card punch, then call 
subroutine FCN to issue a A function code to it, then call subroutine REL 
to release it. The 4 function has the effect of punching a blank card 
after the eof, and checking the eof card, although we shall make no use 
of the check. The eof card is not offset* The card following It will not 
emerge from the card reader until the first card of a new record and file 
is punched, and at that time It will be offset. 

At CHK6 we clear the card count and the words-in-last-card count in bits 
0-23 of the second FNT entry word, at D.FNT through D.FNT+4. This means 
that the next time 2PC is called for this file, it will know it has a new 
record to deal with, and should offset preceding card without checking 
It. Then, if D.EST shows 2PC was called by PBC, we exit from 2PC immediately; 
otherwise, we set IN=^UT“F1RST in the FET (at PCD4) before exiting from 
2PC. 


Entry Information 

The number of words wanted in the A-register; the IN pointer in D-IN and 
D,IN+1; the z-OUT pointer at PA and PA+1; the FIRST and LIMIT pointers 
at D.FIRST, D.FIRST+1, D.LIMIT, and D.LIMITll; the second and third words 
of the FNT entry in D.FNT through D.FNT+9; zero in D.EST+3 if 2PG was 
called by PBC, and not otherwise. 


Exit Information 


WC contains the smaller of the ntimber that was in the A-register on entry 
and the number of words retoaining in the buffer, using the z-pointer for 
OUT. 


Subroutines Called 


CLR, PCH (involving ®G), RES, FCN, REL. 


Registers Destroyed 

D.Zl, as well as those destroyed by the above subroutines. 


CLR 

This merely zeroes cells BUF through BUF+79, l.e. the whole output card 
image- It leaves D.Zl containing the address BUF, and this is used as 
an index Immediately after CLR has been called, in the HOL cycle and in 
subroutine CHK. 
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Entry Information 

None. 

Exit Information 

D.Zl contains the address of the beginning of the card Image. 

Subroutines Called 
None. 

Registers Destroyed 
None. 


CKS 

This is called only in the BIN loop, to find the checksum of a normal 
binary card and Insert it in column 2 of the card image, after all the 
information has been stored In columns 3 through 77. 

It does this by adding each column to a cumulative total originally 0, 
but setting bits 12-17 of the accumulator to 77B before each addition, 
so that a carry out of bit 11 results in an addition of 1 to bit 0. 

Finally, this total is subtracted from zero, and bits 0-11 of the result 
are stored in column 2 of the card image. The result is that if columns 
2 through 77 are added up, with bits 12-17 of the accumulator set to 77B 
for end-around carry before each addition, the total should be zero. 


Entry Information 

Coliunns 3 through 77 of the card image. 

Exit Information 

Column 2 of the card image. 

Subroutines Called 
None. 

Registers Destroyed 
D.Zl, D.Z2. 
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XFR 

This Cakes n central memory words from the circular buffer and stores them 
beginning at p In the PP memory, where n is the ntimber In cell WC and p 
is the address in the A-register on entry to the subroutine- The z OUT 
pointer. In PA and PA+l, is used and updated. The IN pointer Is not checked 
as subroutine XFR is never called unless subroutine CHK has already con¬ 
firmed that there are enough words remaining in the buffer- 


Entry Information 

The number of CM words to be moved, in cell WCj the z OUT pointer at PA 
and PAf"l; the FIRST and LIMIT pointers- 

Exit Information 

The z OUT pointer has been updated* 

Subroutines Galled 
None. 

Registers Destroyed 
D.Z5. 

STS 


This reads the status of the card punch, which must have already been 
reserved and connected. The status word Is stored at location ST, and is 
also in the A-reglster on exit from STS- If bits 1 and 6 are 0 (busy bit 
and feed failure bit), and bit 0 is 1 (ready bit), we merely exit from 
STS. Otherwise, we call subroutines REL and RES to release and reserve 
the card punch, and go through STS again. If the ready bit or feed failure 
bit is wrong, we also display the message ”CP xx NOT READY*^ on the B-dlsplay 

Entry Information 

None. 

Exit Information 


The status word read from the punch, in the A-reglster and in location ST. 
Subroutines Called 


REL, RES, MSG. 

Registers Destroyed 

None, except those destroyed by the above subroutines If they are called- 
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HS(; 

This copies a massage, whose starting address is In the A-register on entry, 
to MSGA)3ff- It stops with the first zero byte in the message. Then it 
copies MSGA througli MSGA^ 14, i-e. NN^' where NK is the number of the 
card punch, fullowed by the message. Into control point +35B, +36B, 37B. 


Entry Information 

The starting address of the message in the A*register. 

Exit Inforntation 

None. 

Subroutines Called 
None* 

Registers Destroyed 
D.Zl, D.Z2- 


RES 


This reserves and connects the card punch* First it takes the numbers 
of the possible channels from D.ESTH-2 and D-EST+1, and calls subroutine 
R.RCH to reserve one of them. Then it stores the number of the obtained 
channel at location CH, and compares it with the number of the channel 
last used, if any* If they do not match, subroutine R.STB Is called to 
insert the new channel number in all the Instructions pointed to by table 
RESA* Then the 6681 is selected, and the punch is connected. Subroutine 
CFR is called to issue the connect code and check its acceptance. If on 
return the A-reglster contains zero, all is well and we exit RES* Otherwise, 
go through RES again. 


Entry Information 

The EST entry for the punch, in D.E5T through D.EST-t-4* as modified by sub¬ 
routine FRS. 

Exit Information 

The number of the reserved channel, in cell CH* 

Subroutines Called 
CFR, R.RCH, R.STB, 
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Registers Destroyed 
D.21, D.Z2, D.TO to D,T4. 


REL 

This releases the punch, the 6681, and the channel, and pauses for storage 
relocation. If the error flag is set, it drops the PP. 


Entry Information 

The EST entry for the punch, in D.EST through D.EST+4, as modified by sub¬ 
routine PRS. The channel number In CH. 

Exit Information 


None* 

Subroutines Called 


R.DCH, R.PAUSE, R.PROCES 
Registers Destroyed 
D.TO through D.T4. 


FCN 

This issues the function code that is in the A-register on entry, to the 
punch unit, which must already have been reserved and connected. The function 
code is saved in location FN. Then subroutine STS is repeatedly called 
until the status shows bit 1, the busy bit, is zero. Then we put the function 
code in the A-register again, and call subroutine CFR to send it to the 
punch. On return from CFR, if the A-reglster contains 0, all is well; we 
zero the message word at control polnt+35B and exit from FCN. If the A- 
register does not contain zero, subroutine CFR was not able to issue the 
code, and has already called usbroutine EEL to release the punch. So we, 
in FCN, call RES to reserve and connect it again, then go back to pick up 
the function code and call CFR once more. This will be repeated until the 
code is successfully given to the punch. 


Entry Information 

The function code in the A-reglster. 
Exit Information 


The message word at control point+35B has been zeroed. 
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Subroutines Called 
STS, CRF, RES. 

Registers Destroyed 

Only those destroyed by the above subroutines If called. 


CFR 

This is the subroutine that actually transmits function codes to the card 
punch. The function code is in the A-register on entry; it is Immediately 
sent to the punch, and then the 6681 status is read. If bits 0, 1, and 2 
of the status word are 0, all is well and we exit from CFR with 0 in the 
A-register. If bit 0 is 1, we go to CFR7j send the message "CP xx XMSN 
PARITY ERROR" to the system dayftle but not the control point dayfile, 
wait one second, clear the channel, call subroutine REL to release the 
card punch and the channel, and exit from CFR with 1 in the A-register. 

If bit 0 is 0, but one 6r both of bits 1 and 2 are I, we merely put the 
message "CP xx REJECT" on the B-display, and then call REL to release the 
punch and the channel, and then exit from CFR with 1 in the A-register. 


Entry Information 


The function code for the punch is in the A-reglster. 

Exit Information 

0 in the A—register if the function code has been accepted by the punch; 
1 in the A-register if not, and the punch has been released. 

Subroutines Called 


MSG, REL, R.DFM 
Registers Destroyed 


Only those destroyed by the above subroutines if they are called. 


Messages from 2PC 

CP XX COMPARE ERROR. This goes to the B-display and the system dayfile 
whenever a card is checked and found bad. (subroutine CKC) 

CP XX NOT READY. This goes to the E-display whenever bit 0 of the punch 
status word is found to be 0. or bit 6 is found to be 1. (subroutine STS) 


13-103 


Nov. 1968 



SCOPE 


CP XX REJECT. This goes to the B-display whenever bit 0 of the 6681 status 
word is found to be Oj but bit 1 or bit 2 is 1. (subroutine CFR) 

CP XX XMSN PARITY ERROR, This goes to the B-display and the system dayfile 
whenever bit 0 of the 6681 status word is found to be 1. (subroutine CFR) 

No operator action is called for by any of these messages: 


Index to Location Symbols in 2PC Flowcharts 


Name 

Page 

Name 

Page 

BIN 

1 

MSG $ 

8 

CCT $ 

3 

PAB 

1 

CFR $ 

9 

PCD 

1 

CFR2 

9 

PCD3 

1 

CFR6 

9 

PCD4 

1,6 

CFR7 

9 

PCH $ 

3 

CFR9 

9 

PRS $ 

5 

CHK. 

6 

REL $ 

8 

CHKHOL $ 

10 

RES $ 

8 

CHKHOLA 

10 

RES3 

8 

CHKl 

6 

STS $ 

7 

CHK2 

6 

STS5 

7 

CHK3 

6 

STS6 

7 

CHK3A 

6 

XFR $ 

7 

CHK4 

6 

XFRl 

7 

CHK6 

6 

XFR3 

7 

CKC $ 

4 



CKCl 

4 



CKC3 

4 



CK.C4 

5 



CKC5 

5 



CKC6 

5 



CKS $ 

3 



CLR $ 

3 



FCN $ 

9 



FCNl 

9 



FCN 2 

9 



HOL 

2 



HOLl 

2 



HOL 2 

2 



H0L3 

2 



HOL4 

2 



H0L5 

2 



$ indicates 

a subroutine 

entry. 



Nov. 1968 


13-104 





SCOPE 


2RC On-Line Card Read Driver 


General 

2RC is a PP program. In the form of a subroutine, always loaded at 2000B. 
It is called as an overlay by ILJ at the -READ" control point, to read 
cards that will become job files, and by CIO at a job control point to 
read a local file that has been assigned to a card reader. 


Function 

2RC reads every card in the binary mode. Neglecting for the moment the 

possibility of 80-column status, it transmits information from the card 

image as follows; 

1. If column I does not contain 7 and 9 punches, the 80 columns are 
translated into 40 bytes of display code characters on the ^ss^ption 
that it is hollerith-punched. Any column containing an invalid hollerit 
Lde is treated as blank. What is moved into the buffer is the information 
from the first byte up to and including the last byte that xs not two 
blanks, followed by from 1 to 5 extra bytes, enough to make a multiple 

of 5 bytes (i,e. an Integral number of CM words) of which the last 1 

to 5 bytes are zero* 

2. If column I contains 0017B, the card contains no information but marks 
an end of file. 

3. If column I contains 0007, the card contains no information but ^^ks 
an end of record. Columns 2-3 are then read as if punched in hoUerith. 

If column 3 contains blank, and column 2 a number from 0 to 7, this 
number is the eor level number. If columns 2 and 3 contain an octal 
number between OOB and 17B, this is the eor level number. Otherwise 
the level niimber is taken as 0. 

4. If column 1 contains xyOSB, where xy is an octal number b^ween OIB 
and 17. the card is a normal binary one. and contains xy CM words of 
information punched in columns 3 through 2+5*xy. Then column 2 must 
contain the correct checksum for the cards otherwise the job wiU 
aborted. (If 2RC was called by ILJ, the job must 

by putting a signal in the FNT entry for the file, which IBJ will 
translate to an immediate abort when the job is eventually brought to 
a control point.) Columns 79 and 80 should contain the correct binary 
serial number for the card within its record (the first card is number 
1, not number 0), otherwise there will be an error message. 

5. If column 1 contains xy45B, the case is the same as in (4) above, 
except that column 2 will not be tested to see if,it contains the 
proper checksum. 

6. If column 1 contains anything else, the card is unrecognizable, and 
the job is aborted (see (4) above). 


13-105 


Nov. 1968 



SCOPE 


This is complicated, however, by the possibility of 80-colunin status, 
which allows a user to read cards as containing 16 words of binary information 
each, without regard to their format. The first time, within a record, a 
card with 7777B in column 1 and in one other column, and OOOOB In all other 
columns, is read this card contains no information, but puts the file into 
80-column status. Until the next card identical with that one is read, 
all cards, no matter what their format, are read as 16 words of binary in¬ 
formation a piece. Thus no end-of-record is possible while in 80-columr\ 
status. The only exception is that a card with 0017 in column 1, and 
OOOOB in all other columns, will mark an end-of-file even while in 80-column 
status, and will terminate 60-column status. This provision is made so that 
a normal end-of-file will be an absolute separator between jobs in the 
card reader, even if one job misuses 80-column status. 

2RC exits back to ILJ or CIO when it has processed an end of record or 
end of file card, or when it finds fewer than 17 vacant words in the buffer, 
so that there might not be room to store another card. 


Entry and Exit Information 

The second and third words of the FNT entry for the file are maintained 
in D.FNT through D.FNT+9. The EST entry for the card reader is in D.EST 
through D.EST+4 on entry to 2RC, and is left unchanged. The FIRST, IN, 

OUT, and LIMIT pointers are in D.FIRST, D.FIRST+1, D.IN, D.lN+1, D.OUT, 
D.OUT+1, D.LIMIT, and D.LIMIT+1 on entry to 2RC. The IN pointer is updated 
by 2RC, and is written back to the FET as information is transferred to 
the buffer. 

Cell BS, at D.BA+4,contains the status of the file before the current call 
to 2RC, and 2RC does not touch it. It is set by overlay 2BP, which is 
always called by CIO or lU just before 2RC is called. 

The second word of the FNT entry for a card file, in D.FNT through D.FNT+4, 
has a special format: 

VFD 6/a,ll/b,7/c,12/d,6/0,1/e,17/f 

a is the equipment code, 60B for a card reader. 

b is the record count within the file, 0 for the first record. 

c is the record type - 0 for binary, 1 for hollerith, between 2 and 80 

for SO-colunm status, and 177B immediately after SO-column status is 
terminated, unless these record type numbers, see below under "Error 
Messages". 

d Is the EST ordinal of the card reader. 

e is the end-of-job flag, set when and end-of-file card is read without 

and end-of-record card just before it. 2RC then processes as if for 

end-of-record; but the next time 2RC is called it recognizes the end- 
of-job flag and processes as If for end of file. 
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f is the card count within a record, which is turned from 0 to 1 on 

reading the first card of the record, and increased by 1 for each card 
thereafter* A normal binary card will have its serial number in columns 
79-80 compared with this, and a discrepancy will give an error message 
if it Is the first such discrepancy in the record. 


Error Messages 

Apart from the messages connected with hardware difficulties, which are 
similar to those for other I/O devices, 2RC gives messages concerning card 
format. When 2RC is called by CIO, these messages go on the user dayfile 
in the normal way. But when it is called by lU, the messages have to be 
saved in some way against the time when the job will come to a control point* 
This is done by setting up an extra file the first time a format message 
is needed for a job. In the FNT, this file has the same name as the job 
file being constructed, and its control point number is 0. But its type is 

local, not input, and its disposition code is 0. After the job file has 

been completed and left in the Input stack, the extra file will not be 
noticed by any program (because its disposition code is 0) until IBJ brings 
the input file to a control point. Then IBJ will scan the FNT for a possible 
extra file with the same name, control point number 0, type local, disposition 
code 0, and if it finds it, will make its FNT entry into the entry for a 
file called OUTPUT, with the control point number for the new job, still 
type local. Thus the fortnat messages that 2RC produced will appear on the 
first page of the job's ordinary OUTPUT file. The FET for this extra file 

is put in RA+20B through HA-r24B. While being written, the file has name 

^'MESSAGE” and belongs to the ^'READ'^ control point. Then 2RC changes the 
FNT entry so that its name is the same as that of the job file, and its 
control point number is 0. But there can be no confusion between files, 
because the job file belongs to the control point until ILJ and 

2RC are through with it. 

The buffer for the extra file is in RA+3100B to RA+3300B, the end of the 
field length for the READ control point* If the buffer gets full, we do 
not for simplicity’s sake empty It by writing; we merely fall to write out 
any format error messages thereafter. As the format error messages are 
only 3 CM words long, this allows for 40 of them, which ought to be enough. 

When 2RC finds a format message that calls for an abort (a bad check sum 
or an unrecognizable binary format when not in SO-column status), then if 
we are at a job control point. It can be aborted in the normal way. But 
If 2RC is at the READ control point, it zeros RA+25B, which ILJ has initially 
set non-zero, and which is not otherwise used, and ILJ will pass this 
pre-abort signal on and put it in the job file FNT entry for IBJ to see 
later. 

The format error messages ars: 

MODE CHANGE RC.00,CD.0000 

SERIAL CHK. RC.0000,CD.0000 HOLL.CHECK RC.0000,CD.0000 

CKSUM ERROR RC.0000,CD * 0000 FORMAT ERR. RC.0000,CD-0000 

The two numbers are the record number, in decimal, and the card number, 

in decimal. 
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MODE CHANGE means that the record type has changed within a record. This 
message is given only once per record. The record type is set to 0 if the 
first card of a record Is binary^ or to 1 if It is Hollerith. If a card 
of the other type occurs, the record type is changed* When 80-colunm status 
begins, the card that begins It has 7777B In exactly one of columns 2 through 
80, and the number of that column becomes the record type. If this happens 
at the beginning of a record, no mode change is considered to occur. When 
a copy of the card that began 80-column status is read, the record type is 
set CO 177B, and this is not considered a mode change- But If the next 
card is not an end of file or end of record, it will change the record type 
to something between 0 and 80, and this will be a mode change. 

SERIAL CHK- means that the nth card of a record is a normal binary card, 
but its serial number In column 79-80 Is not n. This is given only once 
per record, 

HOLL.CHECK means that a Hollerith card has been read on which at least 
one column contained an invalid combination of punches, and was read as 
blank. This Is given for every such card. 

CKSUM ERROR means that a normal binary card with a bad checksum in column 
2, and no 4-punch in column 1, has been read. This will cause an abort^ 
but the rest of the card file will be read, and format messages will still 
be given for the rest of the file as necessary- CKSUM ERROR itself will 
be given for every such card in the file. 

FORMAT ERR. means that a binary card with no recognizable format has been 
read while not in 80-column status. This will cause an abort, but the 
rest of the card file will be read, and format messages will still be given 
for the rest of the file as necessary- FORMAT ERR. itself will be given 
for every such card in the file. 

If either of the last two m^sages is given, causing an abort, the last 
format message will be ^UOB PRE - ABORTED ”. Unless 2RC is at a job control 
point, In which case the system will give an ordinary abort message* 


Narrative 


As the 2RG assembly listing is copiously commented, we shall try to keep 
this short. 

2RC begins by testing the end-of-job flag in the FNT. If this is 1, the 
last call to 2RC caused us to read an eof card when the status was not 
already eor* We then set the flag and proceeded as if for eor- Now we 
must proceed as for eof without reading another card, so we set the status 
to eof, zero the record count and record type fields In the FNT, call 
subroutine DUMP to write out the accumulated format error messages, if 
any, and set the pre-aborted flag in RA+25B if necessary. But if 2RC is 
at a job control point, DUMP does nothing. Then exit from 2RC back to ILJ 
or CIO. 


L3'108 


Nov, 1968 



SCOPE 


If the end-of-Job flag is not set, we come to CRDl and call the Initializing 
subroutine P8S. This is the only place where it is called. PRS formats 
the 6681 select code and card connect code, using the EST entry in O.EST 
through D.EST+4. Then it formats the card reader EST ordinal number, which 
is found in bits 24-35 of the input register, and Inserts It in the message 
at MSGA. 

Now we check the buffer pointers, and if there Is not room to add 16 words 
to the buffer (the most that could come from one card), we exit back to 
ILJ or CIO. Otherwise, call subroutine RES to reserve the channel, select 
the 6681, and connect the card reader and instruct it to read the next 
card in binary regardless of its format. Then zero the word at control 
point +35B, to clear from the B-dlsplay any previous hardware trouble 
messages. 

Now we are at STSl. We read the card reader status, and store it at STAT. 

If bit 1 is 0, go ahead to CRD6, otherwise go to BSY. At BSY we send a 
0 function to clear the card reader, then call subroutine REL to deselect 
the 6681, drop the channel, and pause for storage relocation. Then come 
back to CRD5 to try the card reader again. At CIU)6 we pick up the card 
reader status again. If bit 0 is 1, we store 1 at LSTAT, and go ahead 
to ROCl. Otherwise, zero LSTAT and go to NRD. At NRD we check bit 10 of 

the status word. If this Is 0, the card reader is merely not ready, and 

we call subroutine MSG to put the message "NOT READY" on the B-dlsplay, 
and then go to BSY as above. Otherwise, the situation is more serious. 

We check bit 0 in LSTAT. If It is 0, we have already given the message 
and go to CMEl. Otherwise we zero LSTAT, and call subroutine MSGD to 
put the message "COMPARE ERROR" on the B-dlsplay and in the system day- 
file, but not in the control point dayfile. Then call subroutine REDCNT 
to reduce by 1 the card count in the FNT, and subroutine BACKUP to return 
D.IN and D.llW-1, and the IN pointer in the FET, to what they were before 
the last time a card was stored In the buffer. Remember that we have not 

yet read anything on this trip through the main cycle; it Is the preceding 

card that is giving a compare error, and we have to un-read that card. 

Now at CMEl we put the message "RE-READ LAST CARD" in the B-dlsplay, and 
go to BSY as above. The card reader stopped Itself because of this compare 
error, so only one card has to be re-read. 

When we get to ROCl, we have obtained a reader ready status, and stored 
1 at LSTAT. Now we read a card, in binary, into BUF through BUP^-79, one 
column per cell. Then increase by 1 the card count in the FNT. At 
ROCS, we read the 6681 status. If bit 2 is 1, we are in trouble again, 
and go to XPE. Otherwise, call subroutine RELCR to release- everything 
and then check whether the card had 7 and 9 punches In column 1. If so, 
go to CRD71 to treat it as a binary card; otherwise continue at CRD7, to 
treat it as a Hollerith card. 

At XPE, we call subroutine MSGD to put the message "6681 XMSN PARITY ERROR" 
on the B-dlsplay and in the system dayflle but not the control point day- 
file. The card reader has not stopped itself, as the trouble Is in the 
6681, so we shall have to set a pause bit, and not continue reading till 
the operator has cleared It, We have to reread 2 cards, of which only 
the first has been transferred to the PP by the 6681, but badly as it 
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seems. Now we clear the channel. Next we call subroutine BACKUP to back 
up the IN pointers to where they stood when the preceding card was about 
to be moved to the CM buffer. Probably this should not be done- But the 
call to BACKUP here is not known to have caused trouble so far, and it 
is not easy to force a 6681 parity error so as to settle the question by 
trying it out. Now we call subroutine REL to deselect the 6681 and drop 
the channel, and branch to ERE. This is the only way to get to ERR. At 
ERR, we call subroutine MSG to put message "RE-READ LAST 2 CARDS, TYPE 
GO" on the B-dlsplay, and then set bit 12 of the word at RA+0 to 1, as a 
pause flag. Now we call subroutine REDCNT twice, to reduce the card count 
in the FNT by 2, Probably REDCNT should only be called once, as the two 
cards we are about to re-read include the one the PP has just received, 
and the next one, which the PP has never actually read. To settle the 
question is not easy, as noted above. Then we reserve and release the 
card reader repeatedly until bit 12 of RA+0 has been zeroed, by the operator 
typing "n.GO" at the console after backing up the card input by two cards. 
Then go back to CRD5 to start over. 

If the 6681 parity error bit was not found, we go to CSD7 or CED71, as 
explained above. From here on, the assembly listing is heavily commented. 

If we have Just read an end of file card, we go to EOF. Now just before 
2RC was called, 2BP was called, and it moved the last status of the FET 
to BS. If this does not show end-of-record status, or if the buffer is 
not now empty, we go to BINl to set the end-of-job flag in the FNT. Then 
we go to EOR to pretend we have an end-of-record card, first zeroing BUF+1 
and BUPt2 to produce an eor level number of 0. But if the last status 
was eor, and the buffer is empty, we now set the status to end of file, 
call subroutine DUMP to write the accumulated format messages and set the 
pre-abort flag if necessary; then zero the record count and go to BIN3. 

When we read an end-of-record card, or want to simulate it as described 
in the preceding paragraph, we come to EOR. We increase the record number 
in the FNT by 1, and zero the record type in the FNT. Then reduce the 
level number from columns 2 and 3 of the card, in BUF+1 and BUF+2, and 
insert this in the FNT. Then go to BIN3. 

We come to BIN3 after setting the FNT properly on reading an eof or eor 
card. We clear the card count in the FNT, and zero MODCHY and NUMCHY, 
so that the first mode change or serial number check in the next record 
produce a format message. Then go to CRD to exit from 2RC back to 
ILJ or CIO, 

When we read a special card that begins 80-coluiim status, we arrive at 
CRD75A+2, where we set the record type to something between 2 and 80, and 
go back to CRD5 to read the next card. 

When we read a special card that ends 80-column status, we arrive at 
SPMODE+7, where we merely set the record type to 177B and go back to 
CRD5 to read the next card. 


When we read any card while we are in 80-column status, we go to CRD73, 
where we set WC the word count to 16, put BUF the start of Information 
in the A-reglster, and go to XFR to move data to the CM buffer. 
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When we read a binary card out of SO-colunm status, and ^ve f^nd t 
has normal format with a 4-punch In column 1 or a correct checksum, we 
arrive at CRD80. We test NUMCHY; If it is not zero there 
been a serial number check for the record and we go on to 
Is zero we match the serial number in the card with the card in the 

FNT. IE they do not check, we set NUMCHY non-zero and call subroutine 
UMES for a format error message* In any case, we have alrea y pnt ^ ® 
number of words of information, taken from column 1, In WC. Then we put 
the address BUPi2, where the information begins, in the A-register and 
go to XFR to move information to the CM buffer. 

When we have read a Hollerith card out of 80-column for^t, 
translated it into display code beginning in BUF, we get to HOLA, The 
address of the rightmost non-blank byte, or the address if 
card was blank, is in D.Zl. We divide this number by 5, discard the r 
malnder, and add 1 to get the number of CM words t^t have to * 

Then read a word of five zero bytes to follow Immediately 
address was in D.Zl. From one to five of these will go into ^e ® ^^® 
to terminate the card image properly. We have the number of CM words 
in WC; we put BUF, the address where the translated card i^ge begins, 
in the A-register, and we go to XFR to move data into the CM buffer. 

At XFR we store the address where the information the card begins 

at XFR2. Then save the IN pointer in BACKA+1 and BACKBfl, so that if 
subroutine BACKUP is called, the IN pointer can be backed up one card. 

We know there are at least 17 empty words in the buffer, as we checked 
this before reading the card, so there Is no worry about overflowing it. 
Find out how many words are free between IN and LIMIT, and put the smaller 
of thU .ud th. iord count fro. WC Into D.Zl. Now If WC oontotns toco 
(this should never happen) go straight to XFR4 without moving anything. 

Now put the difference between D.Zl and WC into D.22; th s s t e n\jm^ 
of wLds that will have to be put at the beginning of the buffer if t’^® 
card information cannot fit between IN and LIMIT. Now move the number 
of words given in D.Zl from the beginning address of the card image In- 
formatlon%o the buffer address D.IN and D.I^l 

contains zero, everything has been moved, and we go to XFR4. O^hewise 
move the number of words given in D.Z2 fr^ the beginning ^he card 
Image plus five times the ntimber in D,Z2 (number of bytes already m v ) 
into the buffer beginning where D.FIRST and D.FlRST+1 point. 

At XFR4, we have moved the card image into the CM buffer, but have not 

advanced the IN pointer either in PP or in the m. JJ® ®^®^ o^^lO^ 
in the FNT. If this is eor or eof, exit from 2RC back to lU or CIO 
without advancing the pointer (It does appear that this can ^gen. 

The code must be left over from a version in which we 

with 0 In WC for eor or eof, after setting the status in the . 

we would come to XFR4 without moving anything which scarcely seems pos 

now, and exits from 2RC at this point). Now advance D.IN, ^ 

the FET IN pointer according to the number of words in WC. 

D.OUT and D.OUT+1 according to the FET OUT pointer, in case somebody else 
emptied some of the buffer while we were working. Then return to CKD2 
for the next card. Note that we returned to CM>5 for the next card whe 
we have not actually read any information, but here we have to go back 
to CRD2 to begin by checking that there are at least 17 empty words in t e 

CM buffer. 
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Subroutines 


BACKUP 

This restores D-IN and D.IN, and the FET IN pointer, to where they were 
just before the last time a card image was moved into the CM buffer. The 
old values were saved in BACKA+l and BACKB+1 just before moving data in 
the section of the main cycle beginning at XFR. There may be a possibility 
of trouble here, if someone has been taking data from the buffer and moving 
the OUT pointer while 2RC was at word. This will not happen at the READ 
control point, as ILJ waits for 2RC to finish before it does anything with 
the information. But at a job control point, a user might call CIO to 
read a local file assigned to a card reader, without requesting recall, 
and then use the data in the buffer as fast as it arrived. 


MSGD 

This is called, with the starting address of a message in the A-register, 
to move the message to the control point for the B-display, and then call 
subroutine R-DfM to write it on the system dayfile but not the control 
point dayfile- 


MSG 

This is called, with the starting address of a message in the A-register, 
to move the message to the control point for the B-display* The message 
is copied into MSGA+3 ff., so that it will be prefixed by ^^CRnn'*. Copying 
stops on a zero byte. Then MSGA through MSGA+14 are copied to control 
point +35B through 37B. 


RES 

This is called to reserve the channel for the card reader; to fill the 
channel number into the instructions listed at RESA, if they do not contain 
It already; to select the 6681, to send function code 1 to the card reader, 
so that it will read in binary regardless of the actual format of the next 
card, and to go into subroutine CFR to check acceptance of this function. 

If the response from CFR is non-zero, subroutine REL has already been 
called to release everyting, and we start over in subroutine RES. If the 
response from CFR Is 0, we exit from RES. 


REL 

This is called to deselect the 6681, drop the channel whose number was 
stored by subroutine RES at CHAN, and pause for storage relocation. We 
drop the PP If the error flag is non- zero. 





SCOPE 


RELCR 

This is called to clear the card reader. We send function code 0 through 
subroutine CFR, which passes it to the card reader. If the response from 
CFR is non-zero, we exit inmediately from RELCR, as subroutine CFR has 
already called subroutine REL. Otherwise, we call subroutine REL before 
exiting from RELCR. 


CFR 

This is called to pass a function code, which Is in the A^register on 
entry, to the card reader. Then we read the 6681 status. If 0, 

I, and 2 are zero, we exit from CFR with 0 In the A-register. If bit I 
or 2 is 1, but bit 0 Is 0, we send the message ”GR nn REJECT" to the 
B-dlsplay and the system dayfile; then clear the channel, release the 
channel and the 6681, and exit with 1 in the A-register. If bit 0 is 
1, we send the message "CR nn FUNC XMSN PARITY ERROR" to the B-disp ay 
and the system dayfile; then wait 1 second, clear the channel, release 
the channel and the 6681, and exit with 1 in the A-register. 


UMES 

This is called with the starting address of a message about a card for^t 
error in the A-reglster. The record and card numbers are taken from the 
FNT, translated to decimal, and inserted after COUNTS. Then the message 
Is copied to the cells before COUNTS. Then if 2RC was called by lU, 
we put the starting address of the combined message in the A-register, 
and call subroutine WUMES to put it in the special buffer for the future 
output file. Otherwise we call subroutines MSG and R.DFM to put the 
combined message in the B-dlsplay, the system dayfile, and the control 
point dayfile. 


WUMES 

This is called with the starting address in the A-register of a message 
that is to be put in the special buffer, for the future output file. We 
get the pointers from RA+20B through 24B. If the buffer had not at least 
4 empty words, do nothing* Otherwise, advance the IN pointer by 3, and 
copy the 3 CM words of the message into the buffer. 


CONVERT 

This is called to convert a binary number, in the A-register on entry, 
to a 4-digit decimal number, and add it to the display code ''0000”, which 
is already in two bytes, of which the address of the first Is in D.21. 
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ABORT 

We come to abort, with the address of the appropriate message in the A- 
register, when we have found a binary card with an unrecognisable format 
or a bad checksum* We immediately call subroutine UMES to handle the 
message* Then see whether ILJ or CIO called us. If ILJ, store zero 
at RA-1-25B as a pre-abort flag for this job file, which ILJ will pass to 
IBJ In its FNT entry- Then go back to CRD2 to continue reading the file 
for the sake of further error messages- If called by CIO, go to ABOKTA, 
set the status of the FNT to complete, and abort the Job. 


DUMP 

This is called when 2RC is about to give control back to ILJ or CIO, 
after an end of file. If CIO, DUMP does nothing, but if ILJ it first 
checks the pre-abort flag in RA+25B. If this is set* i.e* zero, subroutine 
WUMES is called to add the pre-abort message to the file error messages. 

Then the routine is exited if the IN pointer of the FET at RA+20B is 
equal to the field length-200B, i.e. to the FIRST pointer of the special 
buffer. Otherwise, we write the name ^'MESSAGE^' and the function code for 
write-end-of-record into the first word of the FET; then add 1 to the 

field of the FIRST pointer, indicating a non-minima 1 FET so that when 
an FNT entry is created for the message file, its address will automatically 
by put into the LIMIT pointer word. Then call CIO to another PP to process 
this FET, and wait till the FET shows completion. Now we find the FNT 
entry, according to the pointer in the FET LIMIT word, and see that the 
FET pointer in the FNT points, in turn, back to RA+20B. Then it alters 
the control point number in the FNT entry to 0, and the name of the file 
to the name of the job file, which (and not ^*R£AD^0 is found at control 
point+21B. As we have both created, and released to control point 0, 
this FNT entry while ILJ was waiting for us, ILJ is not even aware of this 
future output file even though it has the same name as the job file whose 
termination we are about to signal. Then exit from DUMP. 


13-114 


Nov. 1968 



SCOPE 


2TJ - TRANSLATE JOB CABD 

2TJ is a relocatable overlay which is called to scan and interpret a job card 
whose Image is contained in the callers field length. 2TJ checks the job card 
for validity, obtains a sequence number for the job and returns to the calling 
program the parameter values specified on the card. It must be called by any 
routine which makes entries into the input queue for a new job. This would 
include JANUS, RESPOND and EXPORT/IMPOET. 

Entry Conditions 

At entry the job card image must be stored in central memory within the field 
length for the control point. The following direct cells must also be set up: 

D.RA Reference address of the control point 

D.FIRST, The relative address of the job card image (17 bit address, 

D.FIRST+1 right-justified). 

Programs calling 2TJ must provide the first word address of a parameter table 
(2TJ passes job card parameters back to its callings routines in a 15 byte 
table) in direct cell D.JPAR; 

D.JPAR FWA of parameter table. 

Normal Exit 

If the job card is valid, 2TJ will return all job card parameters in a 15 byte 
parameter table with first word address stored in D.JPAR. The parameter table 
will be in the same format as an input FNT entry. 

Error Exit 

If a job card error is detected, 2TJ will set byte C.JABT (bits 3-5) to a value 
of SB. Job field lengths, dependency count and dependency variable, tape unit 
requirement count will be zeroed. The priority will be set to the highest non- 
fixed value. If the name on the job card was valid D.JNM, D.JNM^"4 will contain 
phe job name as in a normal exit, otherwise D.JNM, D*JNM"^A will contain the 
name ERROR followed by 2 sequence characters. 

General Description of the Code 

The function performed by 2TJ is essentially quite a simple and straight - 
forward one. The code, however, is quite complex because an attempt was made 
to be very general. 2TJ can handle job cards in either of two formats (SCOPE 2 
or SCOPE 3); parameters on the job card can be treated as octal or decimal 
quantities; and 2TJ can be made to compute priority based on the other job 
card parameters. Each installation can control the above parameters by in¬ 
serting macro calls into the normally empty SCPTEXT macro named JOBCARD. 

JO BOARD Macro 

Normally octal parameters and a SCOPE 3 format (mnemonics followed by para¬ 
meter values) are assumed. Defining the symbol SCOPE 2.0 in JOBCARD will 
cause 2TJ to interpret job cards as SCOPE 2 format (parameter values separated 
by commas). SCOPE 2,0 job cards will not be able to use job dependency and 
scheduling dependent on tape unit availability. Calling the macro DECIMAL 
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FIELD (where FIELD is one of the following mnemonicsJ CM, EC, T, P) will 
cause the parameter indicated to be treated as a decimal quantity. Calling 
the macro 


WEIGHT FIELD,RELATION,VALUE,ADDITIVE 

In JOBCARD will cause addition code to be generated in 2TJ. This code 
checks to see if the specified RELATION (GE or LE) exists between the specified 
field (T, CM or EC) and the VALUE. If it does the ADDITIVE is added to the 
job priority. 
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qRP—Close Reel Processing 


General Description 

The purpose of 3RP is to perform the CLOSE REEL function 
for maqnetic tapes- The routine is called whenever a 
tSpeTiver encounters end-of-reel {E0R> or end-of-infor- 
mation CE0I>. End-of-reel is the ^ 

of-information depends on tape type and label type- 


A. SCOPE Standard Tapes 


logical end-of- 


Since the URITEF request results in a- 

file mark-i a physical end-of-file mark can only occur 
as part of an EOF labels indicating end-of-mformation. 


B. Unlabeled X, S-. and L tapes 

The tilRITEF request results in a physical, end-of-file 
mark. A backward motion following a write or open 
write causes four physical end-of-file marks to be 
written. ”he system cannot recognize end-of-infor- 
mation in this case- The user must 

files are on his tape and make an explicit CLOSE REEL 
request at the appropriate time^ for these tapesi 
the driver calls 3RP only when end-of-reel is encoun¬ 
tered- 


C. Labeled X-, S-i L tapes 

Since a URITEF request results in a physical end-of- 
file mark-i a tape read driver cannot determine whether 
this means simply end—of—file or whether it is part 
of a trailer label and therefore implies end-of in- 
'formation- 3RP is called to read the next PRU and 
check for a label. 


General Logic Flow 

A tape driver calls 3RP when a file mark or end-of-tape 
is encountered. If a file mark was read-. 3RP calls MLB 
to read the next record and test for a trailer label. A 
trailer label is an flO character record beginning ^5® 

display code characters EOF or EOV for a standard labeled 
tape and EOF or EOT for a Y-labeled tape. If a label is 
not found-. 3RP backspaces-, increments the PRU county clears 
the EOI biti and sets end-of-file in the FNT. , 

off or the UP bit is on-. 3RP exits. Otherwise end of reel 
procsssing is performed as follows! the next record is 
pead and checked for a valid trailer label* 

A- Label unrecognizable - ^ 

A dayfile message is displayed with a pause for the 


March 1969 


13-117 



SCOPE 


operator to type GO or RECHECK. 


B. EOF label read - 

The tape is positioned in front of the file mark pre¬ 
ceding the EOF label record-i EOI is set in the FNT-i 
and 3RP exits. 

C. EOV label read - 

The tape is positioned in front of the file mark pre¬ 
ceding the EOV label record-i EOI is cleared and EOR 
is set. If the UP bit is on-« 3RP exits. If the 
last operation was write or open uriten 3RP writes a 
file markn a label recordi and two more file marks 
on a standard tape and four file marks on an Xi St 
or L tape. The tape is unloadedi the PRU count is 
set to -3 for a labeled tapen +□ for an X tapeT and 
-0 for an unlabeled non-x-tape. Then 3RP displays 
the end-of-tape message. If the FNT has 2 EST 
ordinalsT they are swapped^ and if there is a HFN FNT 
entryn its primary and secondary EST ordinals are also 
swapped. Open is called in another PP and 3RP loops 
until the EOR bit in the FNT is cleared {by 0 PE>t 
then exits. The exit from 3RP is either to return 
to the user program or to reload the driver {see 
Exit Information}• 


Environment 

A. Other routines used 

bUn—to write an error message 

MLB—to process standard labels 

MLC--to process non-standard labels 

Ixy—the one level overlay which called 3RP 

B. Other routines calling 3RP 

IRS—Uhen file mark or end of reel is encountered 
HIT—liihen file mark on end of reel is encountered 

C. Usage of the routine 

3RP is not reentrant. The driver which called 3RP is 
reloaded over 3RP or the PP Is dropped. 

D. Residence 

3RP can reside on disk or in central memory 


Interface with other Routines 
A. Entry Information 

D.FNT+R is used by the tape drivers to indicate 
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whether a file mark was read {EOI bit set> or 
reel was reached CEOR bit set} or both CEOR and EOI 
set}. Bits Q-6 of and the PRU count in PP 

low core must be updated so that if 3RP finds no 
label it can increment this PRU count-i complete 
D.FNT+Ti and return to the user. Low core cells must 
be set as followsi 

O.FNT through ]>.FNT+'!=FNT words 3 and 3 

D.8A through ]>.BA + ^=FET word 1 

O.PPIRB through 0.PPIRe+4=Input Register 

O.RA = Relative address 

O.FL = Field length 

O.FA = FNT word 2 address 

O.CPAD = Control point address 

O.PPIR = Input Register address 

O.PPOR = Output Register address 

D.PPHESI = Oessage Buffer address 

B. Exit Information ^ 

If the driver is loaded after 3RP is finished-! the 
low core cells given as input are unchanged except^ 
pQssibly the code and status in I).FNT+^ and the primary 
and secondary EST ordinals. The cell used for last 
buffer status mSI and the buffer pointers in low 
cor's Isf't snd "ths EST Entry is 

from central memory. 

If 3RP is called with EOR only {data record on the 
reflective spot}-, after swapping reels the driver 
is reloaded except for READ and RPHR requests which 
return to the user* 

If 3RP is called with EOI set-, the statusn file 
position-! and exit are shown in the following tables. 
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Interface of 3RP with Label Processing Routines 

For a standard labeled tape, 3RP calls 4LB to read or 
write labels and reposition the tape. for a non-standard 
tape, 4LC is called- The 4LC submitted for SCOPE 3.1.b 
is for 3000 labels, but the intent is that a user can 
write his own MLC iF he wishes to process another label 
type. A restriction on the format of labels which can be 
processed without modification to 3RP is. a trailer label 
must consist of one physical record separated from the user 
data by a file mark. 

In order to interface with 3RP, 4LC routines should be 
writtten as followsi 

1- 4LC should be reentrant so that 3RP does not need to 
reload it for each entry- 

2. 4LC should use the low core cell 4t> for a communication 
word {CU} with input options of 

□ for Write volume trailer 
7 for write file mark 
ID for read and check contents of label 
14 for read and don'‘t check data 

31 for unload 

32 for backspace 

Exit information which should be returned by 4LC in CW after 
a read request CID or 141 is 
0 if volume trailer read 

1 if file trailer read ^ i • r 

{CW} 4 if record not recognized or if label infor¬ 
mation is in error. 

3. 4LC should not alter the low core cells 2D-3b, 4D-45 

sa-b7, 74-7? 
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5DA/7DA - PRIVATE DISK PACKS 


5DA is a PP overlay, always loaded at 5000B, which does all the reading, 
writing, and checking of disk pack labels except: 

a. what Is done during dead starting. 

b. the writing of blank labels on unloaded packs in response to ffl.ANK 
type-ins. 5DA checks the existing pack labels, but IBT writes the 
new ones. 

c. the writing of labels on private packs before they are unloaded at 
Job termination. This is done by lEJ. 

7DA is another PP overlay containing nothing but error messages for 5DA 
to issue. 5DA loads it into the space that is otherwise used for reading 
or writing a PRU to or from a pack label. 


Entry Information 

When 5DA is called as a subroutine, bits O-ll of the A register contain 
1, 2, 3, 4, or 5: 

1. 5DA has been called by IMH, called in turn by DSD, responding to an 
UNLOAD type-in. Bits 12-17 of the A register contain the EST ordinal 
of the disk pack to be unloaded. 

2. Same as 1., except that the type-in was DEVADD, and the EST ordinal 
is of the disk pack to be made public. 

3. 5DA has been called by lAJ in response to an RPACK control card, or 
by REQ in response to a REQUEST control card in which the second 
parameter is "PK.”. The first parameter from the card is left justi¬ 
fied with zero fill in D.BA through D.BA+4j the second parameter is 
in D.FIRST through D.FIRST+4, and the third is in D.FNT through 
D.FNT+4. However, when the second parameter of a REQUEST card is 
PK, OOOIB is found by 5DA in D.FIRST. If a parameter is not present 
on a card, the corresponding cell, D.BA, D.FIRST, or D.FNT contains 
0 when 5DA is called. 

The first parameter on an RPACK card must be the wanted pack name. 
Either the second or the third must be "E" or "N". If *'N", no other 
information is taken from the control card, and 5DA is to start off 
an empty private pack with that name. If "E", the remaining para¬ 
meter on the card, if any, is the visual pack number. 5DA is to 
bring an existing private pack of that name to the control point and 
check the visual pack number if specified on the card. 

If the second parameter on a REQUEST card is "PK", the first para¬ 
meter must be a file name not already in use for this job, and the 
third parameter must be the name of a private pack already assigned 
to the control point. 
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4^ 5DA has been called by lAJ in response to a REMOVE control card« The 

first parameter from the card is in D.BA through D-BA+4i this must be the 
name of a file at the control pointy assigned to some private pack, which 
is to be evicted, removed from the job, and removed from the list of files 
on the pack. If D.EST does not contain sero, there is a second parameter 
on the card, found in D.EST through D.EST+4. This must be the name of 
the private pack to which the file Is assigned. 

5- 5DA has been called by IBT, which was called by a type-in of ’^n. BLANK,uu. 
where uu Is the EST ordinal of a disk pack, which is to be blank labeled. 
Then the EST ordinal Is found by 5DA In D.PPIRB+4, bits 0-11 of the input 
register. IBT has already got the pack assigned to the control point. 


Exit Information 


This Is classed under I to 5, as above, according to the value in bits 0-11 

of the A register on entry. 

l*/2. No exit information, as 5DA drops or aborts the control point. 

3p/ 4. If successful, 5DA returns to lAJ or REQ with 0 in the A register^ 

otherwise, the A register on return contains the address of an error 
message that lAJ or REQ must send to the dayfile. 

5. If the pack has a blank label or an unrecognisable label, 5DA returns 
to iBT with 0 in the A register, Indicating that the pack may safely 
be blank labeled. If the pack has a private label, 5DA has read the 
first PRU into LABEL through LABEL+477B, and returns to IBT with the 
address LABEL In the A register, so that IBT can format a message to 
the operator including information from the label. In either case, 
the pack is still assigned to the control point. 


Other Programs Galled 

5DA calls overlay 7DA whenever Is has to issue an error message- It also 
calls ISX to another PP when it is loading an existing private pack and needs 
more RBT space. 5DA recalls lAJ with 5 seconds delay, after setting the flag 
telling it to process the same control card again, when it is waiting for an 
ASSIGN and/or VEN type-In from the operator during the processing of an RPAGK 
control card. 


Messages 

TYPE IN VISUAL PACK NUMBER. 

This message, at location VREEL, is put on the B display after the operator 
has assigned a private pack in response to an EPACK (pnarae,N) control card, 
but before he has given a VRN type-in with the visual identification number- 

(uu ASSD.) 

This message, at location GASMSG, is put on the dayfile as soon as an 
operator assignment, in response to an RPAGK control card, has been picked 

up. 
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CVRN OOOOxxxxxx) , 

This message, at location VBMSG, Is put on the dayfile as soon as the 

operator VRN type-in has been picked up. 

These two messages are issued before 5DA has actually looked at the assigned 
disk pack: so they may be superseded by an error message in the dayfile, after 
which either the job will be dropped or a new assignment and VRN message will 
appear in the dayfile * 

The remaining messages are all in overlay 7DA. 

BAD LABEL. ^ . 

This message is put on the B display and the dayfile when an unrecognizable 

label is read on a disk pack, in response to an RPACK control card or a 
DEVADD type-in, or when a recognizable label with wrong name is read in 
response to an RPACK (pname,E) control card. For DEVADD, the control 
point will be aborted. For RPACK, the system will wait for the operator 
either to drop the control point or to assign another disk pack drive, 
or the same drive with a different pack on it. 

DUPLICATE PACK NAME 

This message is sent to the dayfile by lAJ when the pack name on an CTACK 
control card is the same as the name of a pack already at the control 
point. The job is aborted by lAJ. 

DUPLICATE FILE NAME 

This message is sent to the dayfile by lAJ when a.) an existing private 
pack is being attached to the control point In response to an RPACK control 
card, and its label names a file with the same name as a file already 
at the control point, b.) a REQUEST (fname,PK,pname) control card contains 
a file name the same as the name of a file already at the control point. 

In either case, the job is aborted by lAJ. 

NO SUCH PRIVATE PACK 

This message is sent to the dayfile by lAJ when a REQUEST or REMOVE card 
names a private pack that is not at the control point. The job is aborted. 

63 FILES ALREADY ON PACK ,, 

This message is sent to the dayfile by lAJ when a REQUEST card calls for 
a new file to be initiated on a private pack, but the pack already has the 
maximum number of files assigned to it. The job is aborted by lAJ. 

THE FNT IS FULL 

This message is sent to the dayfile by lAJ whenever 5DA is unable to put 
a new private pack or private pack file into the FNT because It Is already 
full. The job is aborted, 

PACK NOT PUBLIC AND EMPTY 

This message Is sent to the dayfile by 5DA when an UNLOAD type-ln references 
a disk pack that cannot be unloaded because its EST status Is not 4000B. 

The control point Is then aborted. 
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THIS PACK STATUS NOT UNLOADED 

This message is sent to the dayfile by 5DA when a DEVADD type-in references 
a disk pack that cannot be made public because its EST status is not 40A0B. 

The control point is then aborted. The same message Is put on the B-display 
and the dayfile by 5DA when an ASSIGN type-in, following an RPACK control 
card, references a disk pack whose EST status is not 40A0B. In this case, 
the system waits for the operator to drop the job or try another assignment. 

CANT UNLOAD PACK 

This message is sent to the dayfile by 5DA when monitor refuses a request 
to set the EST status of a disk pack to 4040B. Something is wrong with 
the system. The control point is aborted. 

CANT GET PACK ASSIGNED TO C.P. 

This message is sent to the dayfile and the B-display by 5DA when monitor 
jgfuses a request to set the EST status of a disk pack to 402pB, p being 
the control point number. If there is nothing wrong with the system, the 
explanation must be diat the pack has been taken from under 5DA's nose for 
some other public or private use. If this is in response to an RPACK 
control card, the system waits for the operator to drop the job or try 
another assignment. Otherwise, the control point is aborted. 

CANT SET PACK AVAILABLE 

This message is sent to the dayfile by 5DA when monitor refuses a request 
to set the EST status of a disk pack to 4000B, Either something Is wrong 
with the system, or some other PP has taken the pack from under 5DA*s nose. 

5DA must have been called for a DEVADD type-in, and It now aborts the control 
point. 

PACK LABEL NOT BLANK 

This message is sent to the dayfile and the B-display by 5DA when it reads 
a private pack label from a disk pack that ought to have a blank label. 

If this is in response to a DEVADD type-in, the control point is then aborted. 

If to an RPACK<pname,N) control card, the system waits for the operator 
to drop the job or try another assignment. 

BAD PACK NAME IN REQUEST 

This message is sent to the dayfile by lAJ when an RPACK or REQUEST control 
card contains a pack name with a had format, or a REMOVE card names a file 
that resides on a private pack whose name is different from the pack name 
given on the card. The job is aborted by lAJ. 

NOT DISK PACK 

This message is sent to the dayfile and the B-dlsplay by 5DA when a DEVADD, 
UNLOAD, or BLANK type-in, or an ASSIGN type-in responding to an RPACK control 
card, gives an EST ordinal that does not correspond to a disk pack. For 
ASSIGN, the system then waits for the operator to drop the job or try 
another assignment. In the other cases, the control point is dropped. 

EST ORDINAL TOO HIGH 

This message is sent to the dayfile and the B-dlsplay under the same conditions, 
as the preceding one, when the type-in gives an EST ordinal larger than 
the length of the EST, as specified in P.EST. 
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NO RBR FOR THIS PACK 

This message Is sent to the dayfile and B-display under the same conditions 
as the preceding two, when the type*in gives an EST ordinal that specifies 
a disk pack, but no RBR referring to that pack by its EST ordinal can be 
found. Something is wrong with the system, or at least there is an omission 
in the RBR tables in CMR- 

WRONG VRNO 

This message Is sent to the dayfile and B-display by 5DA when the operator 
type*in In response to an RPACK(pname,E,vrno) control card names a pack 
whose label contains the right pack name but the wrong visual identification 
number. The system waits for the operator to drop the job or try another 
assignment. 

NO SUCH FILE 

This message Is sent to the day file by lAJ when a REMOVE control card names 
a file that is not at the control point. The job is aborted- 

FILE NOT ON PRIVATE PACK 

This message is sent to the dayfile by lAJ when a REMOVE control card names 
a file that is at the control point, but is not assigned to any private 
pack- The job is aborted. 

PACK FILE COUNT ALREADY 0 

This message is sent to the dayfile by lAJ when a REMOVE card names a file 
that is on a private pack, and the pack has the name specified on the card, 
if any; the file has been destroyed, but on attempting to reduce by 1 the 
file count In the FNT entry for the pack, 5DA found the count already zero 
and left it unchanged. Something is wrong with the system* The job is 
aborted. 

SUCH NAMES FORBIDDEN TO PR. PACK FILES 

This message is sent to the dayfile by lAJ whenever a REQUEST(£name,PK,pname) 
control card contains a file name which is one of those in the list at NAMTAB 
in 5DA* The job is then aborted by lAJ. These are the names that auto¬ 
matically bring disposition codes to their files at job termination; but 
no private pack file is allowed to have a special disposition code, because 
the file will not be available to the system after job termination- 

NO E OR N ON CTRL CARD 

This message is sent to the dayfile by lAJ whenever an RPACK control card 
does not have either or as its second or third parameter- The card 
is not analyzed further, and the job is aborted- 

BAD FILE NAME ON REQUEST 

This message is sent to the dayfile by lAJ when a REQUESXCfname,PK,pname) 
or a REMOVE control card gives a file name with a bad format. The job is 
aborted. 
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Narrative 


5DA Is fairly tight for space, as 7200B-7700B must be available for reading 
and writing label PRU's. So Insnedlately on being entered, tt branches to PRESET, 
which is within the area that can be overlaid by a PRU if necessary. The A 
register is Imnediately stored in D.TR; its value is 1 for UNLOAD, 2 for DEVADD, 

3 for RFACK or a REQUEST that initiates a new file on the pack, A for RE210VE, 
or S for BLANK. This value In D.TR remains unchanged, and can be used to de¬ 
termine what sort of function is being done, or as a constant =3 for HPACK 
and REQUEST. For UNLOAD and DEVADD, the EST ordinal that was part of the type- 
in will be in bits 12-17 of the A register, and this is stored at ESTO. Then 
38, the number of CM words in an RBR table, is stored for convenience in D.SV2; 
and the control point number is Inserted into the call to ISX at RISX. Then 
we branch to the appropriate routine, whose starting address is found in table 
FIVEDB. 

At DEVADD and UNLOAD, we set the job name in the control point to DEVADD or 
UNLOAD, and then branch to UNDEVE, which has to be In the non-overlayable part 
of the program, as CKEST is called to verify the EST ordinal; if it finds an 
error it will call overlay 7DA to provide an error message, and we want to be 
able to exit from CKEST to a non-overlaid part of 5DA. 

CKEST scans the RBR tables for one with the appropriate EST ordinal, and copies 
the DST ordinal from that Cable to DSTO. The exit is with 0 in the A register 
if this is successful. If not, an error message has already been given, and 
we branch to ABORT to abort the job. If successful, we branch to UNDEVF, in 
the overlayable part of the code. The EST entry has been read into D.EST ff.j 
we now check the EST status, which must be 4040B for DEVADD or 4000B for UNLOAD 
(cable UNDEVA.) If the status is wrong, go to UNDEVC, pick up the starting 
address of the appropriate message from table UNDEVD, and go to ABORTS, where 
we issue the dayfile message before aborting. 

If the status is correct, we pick up the Job name from the control point, and 
add to it the formatted EST ordinal, forming a dayfile message for completion 
at UDMES. Then branch to UNLA for UNLOAD, or DEVADA for DEVADD; these must be 
in the non-overlayable part of the program as they involve reading and writing 
Che disk pack label. 

At UNLA, call subroutine GET to bring the disk pack to this control point. 

There Is a possibility that the system will, since the EST status of the pack 
was found to be 4000B, have taken some space on the pack and made its status 
4010 b. In that case, subroutine GET will have failed to bring the pack to our 
control point, issued a dayfile message, and aborted. (When GET is called for 
STACK or REQUEST It does not abort but exits with non-zero In the A register; 
the distinction is made by seeing whether D.TR contains 3.) On return from 
GET, we set up a model of the first PRU of the disk pack containing Initial 
"DEVI”, the Julian date from CM resident, and the current RBR cable from CM 
resident. (The address of the RBR table is found by subroutine GRBRAD using 
the RBR ordinal, which was set by subroutine CKEST. This table will show an 
empty RBR, except for the first record block, reserved for labelling, and for 
any "flaw bits" that may have been set.) The checksum is formed by subroutine 
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CKSUM and then stored in the 40th byte of the label PRU. Then subroutines 
WRITE? and MK40 are called bo write the first PRU on the pack and return it t 
unloaded status (4040B). WRITE? uses the stack request at ZERQ, w^ich is al¬ 
ready complete in 5DA except for the EST and DST ordinals; ESTO and DSTO, a - 
ready set as explained above, are the appropriate bytes of this “quest. Finally, 
at FIVEDC, we issue the dayfile message ’^UNLOAD and exit frcm 5DA- 

At DEVADA, we call subroutine CZLAB to read the first PRU of the pack and check 
chat it is a *ero label, so that the pack can be used by the system without 
fear of destroying anything. If so, the exit from CZLAB is ® * 

register; otherwise, an error message has already been given by CZLAB and we 
ao to ABORT. Next we call subroutine MEST twice, to alter the EST ® 

the pack from 4040B to 4020B and then to 4000B, which makes it available to 
the system as a public pack. Probably the intermediate change to ^20B is un- 
necessary. If either of the calls to MEST is unsuccessful, the exit 
non-zero in the A register, and we pick up the pointer to the message at CANTADD 
and go to ABORTB to issue it and abort. Otherwise, call subroutine STORBRt 
write into CM the RBR table from the pack label, and then go to FIVEDC to issue 
the dayfile message "DEVADD uu." and exit from 5DA. 

If the A register contains 5 on entry to 5DA, we branch to BLANK., In this case, 
5DA has been called by IBT, and the EST ordinal is in bits O-ll of input 
register, not in bits 12-17 of the A register. So we copy it into ESTO and then 
branch to BLANKB, which has to be in the non-overlayable part of the program. 

At BLANKB, subroutine CREST is called to ascertain that the EST ordinal really 
refers to a disk pack, and to find its RBR ordinal and DST ordinal. If CREST 
finds an error^ it Issues an error message, so all calls to CREST have to e 
from non-overlayable locations to avoid having the calling part of the program 
overlaid by 7DA. If this has happened, the exit from CREST is with non-zero 
In the A register, and we branch to ABORT. 

Otherwise, we call subroutine CZLAB to read the label and check that it is either 
a blank label or not a recognizable label at all. Note that the ° 

recoenizable label is found by subroutine CKLAB, which is called by CZL^, 
and that CRLAB will then check D.TR to see If this is a BLANK call to 5DA; if 
not, an unrecognizable label is bad, but if so it is perfectly good- 

If, just below BLANKB, the return from CZLAB is with zero in the A register, 
the pack had either a blank label or no recognizable label, and we exit 
5DA back to IBT with zero In the A register; IBT will go ahead and write a blank 
label and then return the pack to unloaded status. Otherwise, the pac ^ 

recognizable non-blank label; i.e. it must be labelled as a Private pack. 5DA 
exits back to IBT with the address at which the copy of the label begins in the 
A register, so that IBT can format the information of the label into an operator 
message and wait for the operator to type GO or DROP before blank-labelling the 
pack. 

If 5DA is entered with 3 in the A register, we branch to PRIV, to do something 
about a private pack. 5DA has been called by lAJ in response to a control card 
of one of three types: 


RPACK(pn3me,N) . 

RPACR(pname,E) or RPACK(pname,E,vrno) or RPACK(pnaine,vrno,E; 

REQUEST(fname ,PK,pname) 
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The three parameters are In D.BA, D.FIRST, and D.FNT, except that for the 
third type of card, the "PK" will be represented by OOOIB in D.FIRST. So 

at PRIV, we check for this case first and branch to PFILE if so. Otherwise, 

if the second parameter is N or E, we set PRIVP+l to zero or non-zero respec¬ 
tively, then copy the third parameter (if any) from D.FNT to D.FIRST, and 

go to PRIVE, If not, but the third parameter Is N or E, we set PRIVRfl zero 
or non-zero respectively, leave the second parameter in D.FIRST, and go to 
PRIVE. If neither parameter is N or E, we go to PFILA to exit from 5DA with 
a pointer to a bad-card message in the A register; lAJ will Issue this message. 

At PRIVE, we call subroutine VFN to check the first parameter in D.BA for 
validity (not more than seven letters and/or digits; first character a letter; 
no embedded blanks or OOB characters). If the name is bad, VFN will exit 
from 5DA with a pointer to a bad-name message in the A register, and lAJ 
will issue the message. On return from VPN, we must see if the first para¬ 
meter, a pack name, is the same as a pack name already in the FNT for this 
control point. 

Note that whenever a private pack is assigned to a control point, there will 
be an entry ("pseudo-entry") in the FNT with this form: 

VFD 42/400000000000000B+pname,3/3,3/c,12/0 

VFD 12/07006,24/0,12/esto,12/n 

VFD 60/1 

where c is the control point number, pname is the logical name of the pack, 
esto is the EST ordinal, and n is the number of files currently residing 
on the pack. As the logical name of the pack, as of any file, must begin 
with a letter, the leftmost bit of the first word would naturally be 0, but 
is set to 1 instead to distinguish this type of FNT entry from a real file 
entry. 

So now we set the first bit of the name in D.BA to 1, so that It will coincide 
with the name In an existing FNT pack entry, and call SCFNT with a pointer 
to D.BA In the A register. SKFNT, If entered with a pointer rather than 0 
In the A register, scans the FNT for an entry at the same control point with 
the name pointed to, and exits with 0 in the A register If none is found, 
or the address of the FNT entry if one Is found. If none is found, we go 
ahead to PRIVET, but If one is found, we exit from 5DA with a pointer to a 
duplicate-name message In the A register; lAJ will issue this dayfile message. 

At PRIVET, we see if there is a device assignment waiting In the control 
point, and if so go to GETASA, If not, at DELAY, we set the bit in the control 
point that tells lAJ to reprocess the same control card, and issue a call 
for lAJ with a 5-second delay, and go to END to drop the PP. At GETASA, 
we store the assigned equipment ordinal in ESTO, which is actually part of 
a model stack request. Now If PRlVFM-1 contains zero, a new private pack 
("N") is called for, and we shall need the visual Identification to be typed 
in. Otherwise, an existing pack ("E") and we can skip to GETASB. If the 
visual identification Is needed, we see If It Is already waitisg in the control 
point. If so, go to GETASC with the visual Identification left-justified 
in D.FNT ff. If not, copy the message TYPE IN VISUAL PAOC NUMBER Into the 
control point B display, and go to DELAY to have lAJ recalled to process the 
same card in five seconds. 


13-130 


March 1969 



SCOPE 


When we arrive at GETASC> we clear the visual number space in the control point, 
and then pass to GETASB. At GETASB, clear the equipment assignment byte in the 
control point area* Then form the message (uu ASSD*) where uu is the EST ordinal, 
and send it to the dayfile. Then check FRIVF+1 again; if it is nonzero, skip 
to GETASD, hut if zero we have a new visual number, and call subroutine PADVRN 
to format it; then send the message (VRN OOOOnnnnnn) to the dayfile, where nnnnnn 
is the visual identification number, right justified with display code zero fill* 

At GETASD, we call subroutine CKEST to see that the EST ordinal in ESTO refers 
to a disk pack, and to find its RBR ordinal and DST ordinal. If CKEST finds the 
ordinal wrong, the exit is with non-zero in the A register, and we return to 
DELAY to ask, in effect, for a new assignment and visual number if necessary- 
If the return from CKEST is good, the EST entry has been read into D-EST, and 
we check that the status is unloaded (4040B)- If yes* skip to PRIVFA; if not, 
call subroutine EHMES to issue the not-unloaded dayfile message and return to 
DELAY to try for a new assignment* 

At PRIVFAj we set a bit in the control point that will tell lEJ that a least 
one private pack has been assigned to the job, so that private pack termination 
procedures will have to be carried out at the end of the job. Then, at PRIVF, 
branch to PRIVEX for an existing pack(”E*^ on the control card). For on 

the control card, representing a new pack, we continue downward and call sub¬ 
routine CZLAB to see that the assigned pack has a blank label. If not, GELAB 
will issue the appropriate error message and return with non-zero in the A re¬ 
gister, so that we return to DELAY to try for a new assignment- If the return 
is good, we set up at LABEL ff. the model of a blank label PRU- Characters 1-4 
are ’'DEVI'*; characters 5-10 are a copy of the right six characters of the Julian 
date word in GMR; characters 11-20 are the visual identification number, right 
justified with display code zero fill; characters 31-38 are the pack name, 
left justified with zero fill, and with the leftmost bit restored to zero; 
characters 39-40 are the binary count of files on the pack, which is initially 
zero. Characters 81-460 already contain the empty RBR table read from the pack 
by subroutine CZLAB (LABEL+40 through LABEL+229). As the pack had a blank 
label with an RBR table appropriate to use as a public pack, we now alter the 
11th byte of the cable from 4000B to 7000B, indicating that not the first one 
but the first three record blocks have to be reserved for the label, and corre¬ 
spondingly reduce the ninth byte (count of available record blocks) by two. 
(Possibly in future a flaw table will be effectively included in the RBR of a 
pack label; if so, the llth byte might contain flaw bits, and it could not be 
simply set to 7000B, but a more careful procedure would have to be followed.) 

The rest of this PRU model can be left unchanged as it came from the blank label 
model, except that a new checksum must be formed by subroutine CKSUM and stored 
in the 40th byte. Then we call subroutine WRITEP to write this PRU on the 
pack. Note that WRITEP uses the stack request at ZERQ after setting the order 
code to 0.WRP-b4000B; the EST and DST ordinals have already been filled in (at 
ESTO and DSTO) and the rest of the request is preset to read or write PRU number 
zero in record block zero, which is ail that 5DA is concerned with except when 
attaching an existing private pack, for which the code begins at PRIVEX. 

We also call subroutine PAKPlJT, with 0 in the A register as the number of files 
on the pack, to set up an FNT entry for the pack with that number in bits 0-11 
of its second word. PAKFNT copies into the proper place in CMR the RBR table 
we have just set up in LABEL+40 through LABEL^229. Then it calls subroutine 
SKFNT to find an empty slot in the FNT, and if one is found, puts in the proper 
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entry for the padc^ with the format previously described. If SKFNT finds the 
FNT already full^ It exits from 5DA with a pointer to a full-FNT message in the 
A register; lAJ will Issue this dayfile message. SKFNT also calls subroutine 
AVOID in case of this failure, but AVOID does nothing unless we aretrylng to 
attach an existing pack; in that case it drops the pack immediately to avoid 
having its label re-written when the job terminates, as this would effectively 
destroy the good files on the pack. 

Finally, we exit from 5DA with 0 In the A register. Indicating success* 

At PRIVEX we begin the special processing for an existing pack. It Is necessary 
to get all the existing files on the pack Into the FNT, so as to caake them 
available for the job. First we call subroutine CKLAB to see that the pack 
has a recognizable label. If not, the exit Is with non-zero in the A register, 
and we return to DELAY to try for another assignment and start over. Other¬ 
wise, con^are the pack name on the pack, now in LABEL+15 through LABEL+18, 
with the name from the control card, which is In D.BA f£. with its leftmost 
bit altered to 1. If they do not match, we go to PRIVXB, call subroutine ESMES 
to issue a bad-label dayfile message, then subroutine MK40 to return the pack 
to unloaded status, and finally go to DELAY to try for another assignment. 

(If CKLAB found any recognizable label, it will have left the pack assigned 
to this control point; hence the necessity of calling MK40 to unload it here.) 

If the pack name matches, we check D.FIRST; if this is zero, there was no visual 
identification number on the control card and we may skip to PRIVXE. Other¬ 
wise, D.FIRST ff. contain the number from the card, which must be checked with 
that in the pack label. We move the number from D.FIRST to D.FNT and then call 
subroutine PADVRN to copy it to VRNO ff., right justified with display code 
zero padding. Then we compare it with the number given on the pack, In LABEL+5 
through LABEL+9. If they do not match, we follow the same procedure as above 
for non-matchlng pack name, except that the content of the dayfile message is 
different. 

If the pack name and the visual Identification n\iffiber (if any) match, we arrive 
at PRIVXE; here we get the number of files on the pack from the 20th byte of the 
label, and call subroutine PAKFHT to set up an FNT entry for the pack. This 
has already been described above, for a new private pack. In the present case, 
subroutine AVOID will still do nothing if the FNT turns out to be full, because 
the pack is not in danger of having its label re-written until the pack FNT 
entry has actually been set up. If we exit from PAKFNT, however, the FNT entry 
has been set up, and we store the address of its third word in AVOIDA+1, so that 
from now on, if we fail to set up FNT entries for all tne files on the pack, 
because of a full FNT, the pack will be immediately released from the job and 
so its label will be saved from re-writlng. 

Note that PAKFNTA+1, in subroutine PAKFNT, contains the number of files on the 
pack, with which we entered PAKFNT; as the subroutine will not be called again, 
we can use this cell as a counter indicating when all the files have been dealt 
with. 
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We now enter a section of the program that is fairly complicated because It 
Involves setting up RBT chains for all the files on the pack, D*FIRST through 
D.FIRST+3 are used in this way: D,FIRST points to the first byte of the pair 
of CM words last taken from the PRU area at LABEL: this is initialized so 
that the next word pair will have to come from the next FRUj as the list of 
files and their RBT chains begins in PRU 1 of record block 0, D.FIRST+1 contains 
the address of the TOT slot for the file currently being worked on, D.FIRST+2 
contains constant 2| for use in moving word pairs of RBT chains. There is prob¬ 
ably no reason why it could not have been set to 2 just above NXTFILE, once for 
the packj instead of below PVK, once per file- D,FIRST+3 is filled with the 

first byte of the new word pair> to which D,FIRST pointsj by subroutine READON 

each time it is called to get the next word pair from the label* 

The handling of each file from the existing pack begins at NXTFILE; we reduce the 
file count by and exit from 5DA with 0 (indicating success) in the A register 
if this would make the count negative. Otherwise, we set PASTRBT to 0, indicating 
that we have to start a new RBT chain; then call subroutine READON to get the 
next word pair from the pack* If the exit is with zero in the A register, it 
means the first byte of the next word pair is zero, which would mean no more 
files on the pack and would in fact be an error. In this case we just exit 
from 5DA as if for success; at the end of the job, when the pack label is re¬ 
written, the file count will still be too high by the same amounts Otherwise, 

D*FIRST points to the start of the word pair, which should be the first two 
words of the FNT entry for the file. Calling subroutine SKFNT with the content of 
D.FIRST in the A register, we check for a file of the same name already at the 

control point. If the exit is with non-zero in the A register, there is such 

a file, and we exit from 5DA with a pointer to a duplicate-file message in the 
A register; lAJ will issue the message to the dayfile. But before exiting, 
we call subroutine AVOID to release the pack from the job so that its label 
will not be re-written and spoiled by lEJ* 

If the exit from SKFNT is with 0 in the A register, we call SKFNT again, with 
0 still in the A register, to look for an empty slot for the file FNT- If it 
finds none, it will call AVOID and then exit from 5DA with the FNT-full message 
pointer* If an empty slot is found, we return from SKFNT with its address In 
the A register, and store it in D.FIRST-^1* D*FIRST points to the next word 
pair from the label, which should be the first two CM words of the FNT entry 
for the file, and we copy these into the first two words of the slot SKFNT 
found* Then drop pseudo-channel CH-FNT, which SKFNT left reserved in anticipation 
of this use. Note that the control point number in the fourth byte of the 
first word has already been altered to the present number by SKFNT, in order 
to assist in checking for an existing file of the same name at our control point; 
this was done on the last call but one to SKFNT, Next the second and third 
words of the new FNT entry will have to be re-written in CMR. If the second 
byte of the second word, as it came from the label (5+C.FFRBA,D,FIRST) is 0, 
the file is empty; if not, we go to PVFA. If empty, we zero D.Zl through D.25, 
where the new form of the second word will be constructed; then copy the EST 
ordinal into the correct byte for an empty file on allocatable equipment, and 
call subroutine FINFNT to complete the second word by inserting the equipment 
code 0700 b, store it in the FNT, and store VFD 60/1 as the third word of the 
FNT entry. Then return to NXTFILE to process the next file on the pack, if any. 
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At PVFA» we have to copy the RBT chain for the file from the label to the system 
RBT. First call subroutine READON to get the next word pair of the label, 
which will be the first RBT word pair for the file. Then reserve pseudo-channel 
CH.RBT, to entitle us to work on the RBT. Now If the pointer to the empty RBT 
chain, In CM cell P.RBT, is non-zero, there is a space we can use, and we go 
to PVG. If zero, we can do nothing until the RBT space has been extended, so 

we drop the pseudo-channel and call ISX to a different PP, to get more RBT space. 

Then keep pausing and re-checking the empty chain pointer until it is non-zero, 
when we go back up to RESERVE and try again. 

At PVG, we are to copy the next RBT word pair from the label to an available 

space in the RBT. PASTRBT contains 0 if this is the first word pair for the 

file, in which case we go to SETIT to link it with the FNT entry that has not 
yet been completed. We zero D.21 through D.25, where the FNT second word will 
be constructed, and copy the empty chain pointer into the second and third bytes 
of the word. From the second byte of the word pair in the label, we get the 
first RB byte number, and put this, along with 0 RBT ordinal, In the fourth 
byte of the word. The fifth byte of the word is left zero, for PRU 0. Then call 
subroutine FINFNT to complete the second word, and copy it and a third word - 
VFD 60/1, into the FNT. This brings uns to SETIT2. 

If, at PVG, PASTRBT does not contain 0, this is not the first RBT word pair 
for the file and PASTRBT contains the pointer to the previous one in CMR. In¬ 
stead of being linked to the FNT, the new RBT word pair must be linked to the 
previous one. In which the first (link byte) was left zero. So we alter the 
link byte in the preceding RBT pair from zero to point to the beginning of the 
empty chain (still where we read it from CM word P.RBT). Then branch to SETIT2. 

Whichever way we come to SETIT2, we have now to store the next RBT word pair 
from the label into the first word pair of the empty chain. We save the pointer 
to the enqjty chain in PASTRBT, so that the next word pair if any can be linked 
to it. Then zero the first byte of the word pair as it came from the label; 
subroutine READON has already saved this byte at D.FIRST+3 where we shall look 
at it later; but at the moment the word pair is to be stored in the CMR RBT 
with no forward pointer. Bits 3-11 of the second byte of the word pair are now 
altered to the RBR ordinal of the disk pack; this was set by subroutine CREST. 
Before using the first space in the RBT empty chain for this word pair, we must 
detach it from the empty chain. So now we read the empty chain word pair, take 
its forward pointer, which of course points to the second pair in the empty 
chain (or to zero if there are no more), and Insert it in (M word P.RBT as the 
pointer to the first pair in the entity chain. Note that D.TO through D.T4 have 
not been disturbed since we got to PVG. Finally, put the word pair from the 
label Into the space we just took from the eoq>ty chain, to which PASTRBT points, 
and drop psexido-channel CH^RET* 

D.FIRST+3 still contains the first byte of the last word pair, as it came from 
the disk pack label. If it Is 0, this is the last word pair of the RBT chain 

for the file, so we go to NXTFILE to look for the next file on the pack. Other¬ 

wise, go to PVFA to read the next word pair from the label and continue the RBT 
chain for this file. Note that if there are n word pairs in the RBT chain for 
a file, the binary values of the first bytes are successively 1, 2, 3, ••• n -1, 
0, If n = 1, the value in the first word pair is of course 0. But the only 

use made of these numbers in the label is to distinguish a non-last (non-zero 

value) word pair from the last one (zero value in the first byte). 
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For a control card of the type 
REQUE ST(fname,PK,pname) 

we branched to PFILE from PRIV on finding 0002B as the second parameter in 
D.FIRST. The PFILE procedure Is in the overlayable part of the program, since 
nothing In it requires reading or writing a pack label. All chat has to be done 
is to Insert in the FNT an entry for an empty file "fname" assigned to private 
pack "pname". The third parameter. In D.FNT ff., has to be a valid pack name. 

We alter the leftmost bit to 1, to coincide with the form it would have in the 
FNT, and then leave it for the moment. However, if the left bit was already 
1, we exit from 5DA back to lAJ with a pointer to the bad-pack-name message 
in the A register. 

The first parameter, or file name, is in D.BA ff., where subroutine VFN would 
expect to find it. With a pointer to the appropriate failure message in the 
A register, call VFN to check the name for acceptability. If bad, VFN will 
exit from 5DA to lAJ with the pointer in the A register. If good, we return from 
VFN and match the proposed name against the list of forbidden names in table 
NAMTAB. These names are not allowed to a file on a private pack because at 
job termination time they would normally cause a file to be retained in the 
output stack with some disposition code. But disposition codes are not allowed 
on private pack files, because the system would not be able to get at such a 
file after job termination anyway. If the name is a forbidden one, we again 
exit from 5DA to lAJ with a message pointer In the A register. Otherwise, we 
arrive at FFILG and call subroutine SK.FNT to seek an FNT entry for the pack 
named in D.FNT ff. If the exit from SKBNT is with 0 In the A register, none 
was found, and we exit from 5DA with a pointer to the no-such-private-pack 
message. If the FNT entry is found, we save its address in D.T7, and read the 
entry into D.FNT through D.EST+4 (leaving the new file name still in D.BA ff.) 

The count of files already on the pack Is in bits 0-11 of the second word of 
the FNT entry, i.e. in D.FNT+9. For the mranent we merely check this to see 
that adding 1 to it would not put it over 63; if so , exit from 5DA with a 
message pointer. 

The limit of 63 files per private pack is set because we want to use a reasonably 
small pre-assigned area for the label; vi«. 3 record blocks, or 3x5x64=960 CM 
words. 63 files would use up 126 words for their FNT entries in the label, and 
at worst 126 more for RBT word pairs that didn't actually account for any record 
blocks. This would leave 708 CM words to serve efficiently as RBT word pairs, 
at 8 record blocks per pair; enough to account for 2832 record blocks, which is 
835 more than the available number on a private pack. So about 208 CM words 
will certainly go unused, and as the number of RBT word pairs used at 8 RB's 
per pair can't Increase, another 50 files could be accommodated, giving a maximum 
limit of say 113. However, 63 seems like enough in practice. 

If the increased number of files would not be excessive, we store zero in D.FNT+9, 
so that D.FNT+5 through D,EST+4, the so-altered second and third words of the 
pack FNT entry, can serve as the second and third words of the FNT entry for 
the new file. Then call subroutine SKFNT to see if there is already a file at 
the control point with the name given in D.BA ff. If so, the exit from SKFNT 
is with its address in the A register and we branch to PVK to exit from 5DA 


March 1969 


13-135 



SCOPE 


with the pointer to the duplicate-file message In the A register* If the exit 
from SKFNT Is with 0 In the A reglsteri there was no duplicate and we call SKFNT 
again with 0 in the A register* to look for an empty PUT slot for the new file. 

If SKFNT cannot find any* it will take an error exit from 5DA. Subroutine 
AVOID will be called by SKFNT but will not do anything, as it is presumably 
all right to re-write the pack label normally if the job terminates merely be¬ 
cause a new file could not be begun; the existing files are preserved as they 
stood at that moment. 

If we exit from this second SKFNT call, the A register contains the address of 
the vacant FNT slot, and we immediately write D.BA through D.BAhA 
and D.FNT+5 through D.FNT+14 into It as the new file entry, D.FNT+5 through 
D.FNT+14 are an altered copy of the same words from the pack entry, as explained 
above; D.BA through D.BA+4 contain the new file name from the control card, 
to which the control point number and type number (3 for local) were added by 
SKFNT when it was called previously, to help it compare the new name with existing 
FNT entries. 

D.T7 still contains the address of the FNT entry for the pack; we now add 1 to 
bits 0-11 of the second word of this entry, stepping the count of files on the 
pack. Then drop pseudo-channel CH.FNT, which is always left reserved by sub¬ 
routine SKFNT when it succeeds in finding an empty FNT slot. Then go to 2EREX 
to exit from 5DA back to lAJ with 0 in the A register, indicating success. 

When 5DA is entered from lAJ with 4 in the A register, we branch to DROP, to 
remove a file from a private disk pack. This routine is in the overlayable part 
of the program, because no reading or writing of the pack label is necessary. 

The control card format is REMOVECfname) or REMOVE(fname,pname). The file name 
is in D.BA ff., and the pack name, if any, is in D.EST ff.; If no pack name is 
given on the card, D.EST contains zero. We call subroutine VFN to check the 
file name In D.BA for acceptability, with a pointer to a bad-flle-name message 
in the A register. If VFN finds the name bad, it will exit from 5DA with the 
pointer to the message in the A register. 

If we return from VFN, the file name has an acceptable format. With a pointer 
to the name in the A register, we next call subroutine SKFNT to look for an 
FNT entry for a file of that name at this control point. If the exit from SKFNT 
is with 0 in the A register, there is no such file to be dropped, so we exit 
from 5nA back to lAJ with, in the A register, the pointer to the no-such-flle 
message. Otherwise, on exit from SKFNT, the A register contains the address 
of the FNT entry, and we store it in D.FNT; then read the second word of the 
FNT entry, and check the equipment type; if this Is not 07xxB, the file is not 
on a disk pack and we go to DROPM to exit from 5DA with a pointer to the not- 
dlsk-pack-file message In the A register. If assigned to disk pack, we take 
the initial RBT pointer aid Insert it In the release-chain stack request at 
DRQ. If this number is zero, the file Is en^ty and we skip to DROPB. Other¬ 
wise, read the RBT word pair it points to, take the RBR ordinal from the second 
byte of this, and store it at RBROED. (What is stored at RBRORD is always lOB 
times the RBR ordinal, with the three extra bits on the right not necessarily 
zero. But whenever RBRORD is used, these three bits are discarded anyway.) 
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Once RBRORD has been set, we can call subroutine GRBRAD to put the address of 
the first word of the RBR table In the A register. On return, we read the first 
two CM words of the RBR in such a way as to put the DST ordinal into bits 6-11 
of D.TO and the EST ordinal into D.T3. Note that if the file was empty, we 
jumped over this part of the code with the second word of the ENT entry in D.TO 
through D.T4, so that the EST ordinal was in D,T3 in this case as well. Then 
we extract the DST ordinal and store it in the proper position in the drop-chain 
stack request. 

At DROPB, whether the file was empty or not, we read its EST entry (the EST 
ordinal being at D.T3 whichever way we come to DROPB) and verify that the unit 
is private and at our control point. If not, exit from 5DA to lAJ with the 
pointer to the not-on-private-pack message In the A register. 

If the EST shows a private pack at our control point, we skip over DROPM and 
DROPS, and scan the FNT for the entry for this pack, Identifying it by its having 
the leftmost bit of its first word = 1 (peculiar to pack pseudo-entries), being 
at our control point, and having the same EST ordinal as that for the file, in 
the fourth byte of its second word. If this FNT entryis not found, something 
is decidedly wrong, because we have identified the private pack fairly positively, 
and yet find no FNT entry for it. In this case we exit from 5DA with a pointer 
to the no-such-private pack message in the A register. If we do find the right 
PNT entry, we re-read its first word. Now if D.EST contains 0, there was no 
pack name in D.EST against that of the FNT entry. If there is no pack name on 
the card, or the right one, we arrive at DROPD; otherwise, we exit from 5DA to 
lAJ with a pointer to the bad-pack-name message in the A register. 

At DRDPD, we check the initial RBT pointer for the file, which is in the release- 
chain stack request. If this is 0, the file was empty and we need not issue 
^ to evict it, so we jump to DROPL. Otherwise, evict the file by issuing 

the stack request at DHQ, and then arrive at DROPL. Note that the stack request 
is preset in the assembly of 5DA, all but the first RBT pointer and the DST 
ordinal, which we filled in above DROPB. At DROPL, we zero the file FNT entry, 
to which D.FNT points, and reduce by 1 the file count in bits 0-11 of the second 
word of the pack FNT entry, to which D.FNT+1 points. Then go to ZEREX to exit 
from 5DA with 0 in the A register, indicating success. However, if the file count 
In the pack FNT entry was already 0, we do not alter it, but exit from 5DA with 
a pointer to the file-count-already-zero message in the A register. 


March 1969 


13-137 



SCOPE 


SUBROUTINES 


MK40 


MK40 is called to alter the EST status of the disk pack we have been working 
on from 402pB» where p is our control point number, to 4040B, the unloaded 
status. Subroutine MEST is called twice, to alter the status to 4020B and 
then to 4040 b. Probably the intermediate step 4020B is unnecessary. On each 
return from MEST, the A register contains 0 If and only if the requested 
change was granted by monitor. We need not bother checking the request for 
4020B, but we check the final request for 4040B, and if it is not granted, we 
call subroutine EEMES to issue the dayflle message at CANTUNL and then abort 
the job. If the final request Is granted, we exit from MK40. 

Other Subroutines Called 


MEST, ERMES. 

Registers Destroyed 
None directly by MK40. 
Entry and Exit Information 
None. 


PARENT 


This is called to put a pseudo-entry for the disk pack into the FNT, and to 
store its RBR table in CMR. On entry, the A register contains the file count 
for the pack, and this is saved. Then subroutine STORBR is called to copy the 
RBR table, which has been read into or constructed in LABEL+40 through LABEL+239, 
into the position in CMR determined by RBRORD. Note thatthis RBR table remains 
there even if the FNT entry cannot be set up, as 5DA will then abandon the disk 
pack in unloaded status, and the exact content of the RBR table in CMR will not 
matter. It will be correctly re-written whenever the disk pack is brought into 
an active status in the future. 

With 0 in the A register, we call subroutine SKFNT to find an empty FNT slot. 

If it falls, SKFNT will exit from 5DA. If it succeeds, we return from SKFNT 
with the FNT address in the A register, and use this immediately to write the 
first word of the pack entry into the FNT. This first word is in D.BA through 
D.BA+4; the name itself was put in D.BA through D.BA+3 by lAJ before calling 
5DA, and D.BA+4 was left zero; 5DA has already set the leftmost bit of D.BA 
to 1, as appropriate for a pack pseudo-entry in the FNT, and has already called 
SKFNT once before to see if there was already such an entry with this name; 

SKFNT on that occasion added the file type number (local=3) and the control 
point number into D.BA+3 to simplify the search. 

On the present occasion, SKFNT has left D.Zl through D.Z5 all zero, and the 
address of the first word of the FNT slot in D.Z6. Now we modify D.Zl 
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through D.ZS into the second word of the FNT entry by 
putting the equipment type into the first bytei the EST 
ordinal -Cpreviously found by subroutine CKEST and stored 
at ESTO> in the fourth byteT and the file count into the 
fifth byte. Then ue write this into the second word 
position of the FNT sloti and write VFD hO/l into the 
third word position. Finally-i we release pseudo-channel 
CH.FNT-i which SKFNT had left reserved for us after 
finding an empty sloti and then exit from PA<FNT. 

Subroutines Called 

STORBR1 SKFNTi R.DCH 

Registers Destroyed 

None by PAKFNT directly. 

Entry Information 

The file count for the packi in the A register. 

Exit Information 


None. 


STORBR 


This is called to copy the RBR table for the disk packi 
which has been read into or constructed in LABEL+^D 
through LABEL+E31i into the proper position in the CUR 
as determined by RBRORD. First we copy the correct 
DST ordinal and unit number into the model RBRi they 
were read from the same RBR table in CUR into RBRHEAD by 
subroutine CKEST. Then we copy the EST ordinal into the 
model RBRi this was stored at ESTO by CKEST. Then call 
subroutine GRBRAD to put the address of the RBR table in 
CriR into the A registeri it uses RBRORDi which was set by 
CKEST. On return from GRBRADi write the RBR table into 
CHR and then exit from STORBR. Note that O.SVE is 
initially set by SDA to 38i the number of CM words in 
an RBR tablei and this value is never altered in SDA. 

Subroutines Called 

GRBRAD. 

Registers Destroyed 
None by STORBR directly. 
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Entry and Exit Information 
None. 


VFN 

This is called to check that the file or pack name in 
D.BA through O.BA + M has a plausible format. On entry-, 
the A register contains the address of the dayfile message 
to be issued if not-, and this is saved. Then we check 
that the first character is a letteri that the 6th through 
IQth characters are OOBi that the other characters are 
either DDB or letters or digits-, and that there is no DOB 
character to the left of the last non-zero character. 

If so-I we merely exit from VFN. If not-, we pick up the 
address of the error message and go to FIVEDX to return 
to lAJ with this address in the A register. 

Subroutines Called 


None. 

Registers Destroyed 
D.Zl-i D.ZB 

Entry and Exit Information 

Only the error message pointer in the A register-, in 
case of failure. 


PADVRN 


This is called to format the visual pack identification 
''number'^ {though it may consist of letters and/or digits 
indifferently>. On entryi the ident. is left justified 
with binary zero fill in D.FNT through D.FNT-t-E-. essentially 
as read from the control point area. Ue first scan this 
area from the righti find the number of non-zero characters-, 
and put it in D.Z5. If the number is even-, skip to VRNGi 
if odd-, shift the field one character rightward and insert 
a display code zero on the left-, to make up an even 
number. At VRNG-. we then insert six display code zeroes 
as possible fillers to the left of the field. D.Z2 
has been adjusted to contain half the number of characters-, 
after the number was adjusted up from odd to even if 
necessaryi i.e.-. the number of bytes of ident. from D.FNT 
to the right end. Adding D.TS to this number gives us 
the start of a three-byte field containing what we got 
from the control point area-, with enough display code 
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zeroes on the left to make up six characters. Ue move 
these three bytes to VRNO ff.-i where they are available 
for comparison purposesi and also form the last six 
characters before the right parenthesis in the dayfi le 
message beginning at VRnSG. Then we exit from PADVRN. 

Subroutines Called 

None * 

Registers Destroyed 
D.Zln D.Z2-. D.TS-. D.Tt-. B.T7 
Entry and Exit Information 
None. 


PAUSE 

This is called at only one pointi when we are waiting for 
ISX in another PP to get some new RBT space* It could 
have been called while we are waiting for the operator 
to type in a pack EST assignment and a visual identification 
number-i but instead we recall lAJ land hence 5DA> with 
a 5-second delay* PAUSE calls resident subroutine R.PAUSE-, 
and on exit updates D.FL and D.RA.^ Then it exits if the 
error flag from the control point is Dt or else goes to 
ABORT to abort the job* 

Subroutines Called 


R.PAUSE 

Registers Destroyed 

I>.TD through D*TMn by R.PAUSE. 

Entry and Exit Information 

None-, except that D.RA and D.FL are updated. 


NEST 

This is called with a number in the A register which-, 
added to MDOOB-, is to be the new EST status for the disk 
pack- lile set up the proper H.ESTZ monitor request and 
issue it through R.tITR-, and then compafre the new status-, 
in D.TB-, and with what was requested -CD.TB will actually 
contain the new status minus ^□□□B3•. Ue exit with the A 
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registsr containing the resulti which will be □ if and 
only if the requested status was granted. 

Subroutine Called 


R.HTR 

Registers Destroyed 
D.TQ through ]).T4 
Entry Information 

The desired EST statusi minus 4DD0 Bt in the A register. 
The EST ordinal of the pack in ESTO. 

Exit Information 


□ in the A register if and only if the desired status was 
obtained. 


GET 

This is called to bring the disk pack whose EST ordinal 
is in ESTO to our control pointi i.e-T to alter its EST 
status to 402pBi where p is the control point number. 
tiJe put 2pB in the A register and call subroutine HEST. 

If the return is with □ in the A register-i exit from GET 
without changing iti to indicate success* Otherwise! we 
have not obtained the disk packi and call subroutine 
ERHES to issue the dayfile message CANT GET PACK ASSIGNED 
TO C*P* Then we check D*TRi this will contain 3 if and 
only if SDA was called by lAJ for an RPACK or REQUEST 
control card. CREflUESTi however■» never causes a call of 
GET-« as the pack need not be referenced.} If so-i exit 
from GET with non-zero in the A-registeri to indicate 
failure. If noti SDA was called by an operator type-in 
of DEVADDt UNLOAD-) or SLANK-j and we merely abort the job. 

Subroutines Called 


HEST, ERflES 
Registers Destroyed 
None by GET directly. 
Entry Information 
None. 
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Exit Iirfarmation 


Q in the A register if successfuli non-zero if unsuccess¬ 
ful in case of RPACK. 


lilRITEP 


This is called to write a PRU on a disk packi taken from 
LABEL through LABEL+^77B. The stack request at ZERQ is 
usedn and it must already have been completed except for 
the order code in the fourth byte. In fact-> WRITER is 
called only to write PRU number zeroi record block zeroi 
for which the stack request at ZERfl is pre-assembledi so 
all that needs to be filled in before calling WRITER is 
the EST ordinal ■» at ESTOn and the DST ordinal t at OSTO 

Subroutine Called 

R.WRITER 

Registers Destroyed 

&.TD through D.T7-i by R.WRITER. 

Entry and Exit Information 
None - 


REABP 


This is called to read a 
through LABEL+M77B. The 
and it must have already 
order code in the fourth 
to read PRU number zeroi 
stack request at ZER(3 is 
to be filled 
at ESTOi and 


PRU from a disk pack i 
stack request at ZER(3 
been completed except 
byte. READP is mostly 
record block zeroi for 
pre-assembledi so all 
in before calling READP is the EST 
the DST ordinal 1 at DSTO. Subrout 


is the exception! whenever it calls READPi this 
read the next PRUn however! before READON is ca 
the first time! PRU □ has been read/ 


nto LABEL 
is used! 
for the 
called 
which the 
that needs 
ordinal i 
ine READON 
is to 
lied for 


Subroutine Called 


R.READP 

Registers Destroyed 

D.TD through D.T7! by R.READP 



SCOPE 


Entry and Exit Information 
None. 


CKLAB 


This Is called to get the label PRU of the disk pack 
whose EST ordinal is in ESTOi and check that it contains 
a recognizable label. If soi we exit from CKLAB with 0 
in the A register! and if nott with non-zero. 

First we call subroutine GET to bring the disk pack to 
our control points if it succeeds-! the exit is with zero 
in the A register and we continue with CKLABi if not-i GET 
will either abort or {depending what sort of control 
card is being processed> exit with non-zero in the A- 
registeri if the latter-i we exit from CKLAB with non¬ 
zero in the A register. 

If there is a good return from GETt we call subroutine 
READP to read the first PRU of the disk pack into LABEL 
through LABEL+MTTBi then subroutine CKSUHt which forms 
the checksum of every byte in this area except LABEL + 3'1-! 
and exits with the sum in the A register. Subtracting 
this sum from LABEL+BS-i the checksum byte-i checks the 
checksum. If good! we continue- If noti we go to CKLABYi 
where we find out from D.TR whether we are processing 
a BLANK type-in* If not call subroutine ERflES to issue 
the bad-label dayfile messagei then subroutine flKMD to 
release the pack from our control pointi and then exit 
from CKLAB with non-zero in the A register. But in 
case of a BLANK type-inn CKLAB can only have been called 
from CZLAB! and an unrecognizable label would be just as 
good as a blank label for a BLANK. So in this case 
we take the exit from CZLAB! with 0 in the A register! 
indicating that the label PRU is eligible to be over¬ 
written with a blank label. 

If the checksum is good! we skip over CKLABSi and see 
whether the label begins with ^DEVl’’. If noti go to 
CKLABY as for a bad checksum! and if so! continue. Next 
see that characters b-lO ofthe label are all decimal 
digits! giving a Julian date YYDDD in which YY is between 
bT and and D5D is between ODl and 3bb. If so! exit 
from CKLAB with 0 in the A register! indicating that the 
pack appears to have a recognizable labeli if noti go to 
CKLABY as for a bad checksum. 

Subroutines Called 


GET! READP! CKSUHt ERMES! nK4U 



SCOPE 


Registers Destroyed 

D.Zl through D.TQ by CKLAB itself. 

Entry Information 

None. 

Exit Information 


D in the A register indicating a recognizable label t or 
non-zero for unrecognizable. Uhen processing a BLANK 
type-in-i however-t an unrecognizable label will cause an 
exit from subroutine CZLABi which must have called 
CKLAB. 


CZLA8 


This is called to verify that the disk pack whose EST 
ordinal is in ESTO has a blank label Topt in the case of 
a BLANK type-inn no recognizable label>. We call sub¬ 
routine CKLAB to get the packn read its first PRUn and 
see if this shows a recognizable label. If so-> the return 
from CKLAB is with □ in the A registeri if notn with 
non-zero. Howevern if we are processing a BLANK type-in 
and there is no recognizable labeln we will have exited 
from CZLAB with 0 in the A registern without formally 
exiting from CKLAB. If the return from CKLAB is with 
non-zero in the A registern we exit from CZLAB with non¬ 
zero. If with zeroi we check the pack name field to see 
if it contains binary zeroi showing a blank label. If son 
exit from CZLAB with zero in the A registeri indicating 
success. If noti and we are processing a BLANK type-in-» 
exit from CZLAB with non-zero in the A register. This 
will make SDA exit back to IBT with the address of the 
label in the A register-i so that 18T can format a message 
asking the operator whether to blank label this privately- 
labeled disk pack or not. 

If CZLAB finds a non-zero pack name field and we are not 
processing a BLANK type-ini we go to CKLABZ with a pointer 
to the already-labeled message in the A register. At 
CKLABZi subroutine ERdES is called to issue the messagei 
then subroutine flKMQ to release the disk pack from our 
control point. Theni with non-zero in the A registen we 
exit from subroutine CKLAB; but as we did not enter it 
properly just nowi the exit is governed by the last 
proper entryi which was at the instruction next below 
location CZLAB. So this exit from CKLAB brings us to the 
NJN CZLABX just below CZLABi and having non-zero in the 
A register! we exit from CZLAB. This roundabout procedure 
mereley saves three instructions at the end of subroutine 
CZLAB. 
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Subroutine Called 
CKLA8 

Registers Destroyed 
None by CZLA8 itsel'P. 

Entry Information 

The EST and DST ordinals of the disk pack-i in ESTO and 
DSTO. 

Exit Information 

Zero in the A register if the pack has a blank label-, 
orT in the case of a BLANK type'in-, has an unrecognizable 
label. Otherwise non-zero* 

CKEST 


This is called-, with an EST ordinal in EST0-, to verify that 
the ordinal refers to a disk pack-, to find its RBR entryi 
read the first two Cfl words of the RBR entry into RBRHEAD 
ff.-i and to store its RBR ordinal and DST ordinal at 
RBRORD and DSTO. 

First we set a constant Si for use lower down in reading 
the first two words of the RBR from Cfl. Then get the EST 
pointers and see that the EST ordinal is not greater than 
the length of the EST. If it isi call subroutine ERflES 
to issue the range-error messagei and then exit from 
CKEST with non-zero in the A register. Next read the EST 
entryi and see that it refers to a disk pack {code AP>^ if 
noti call ERflES to issue the non-pack message and exit 
from CKEST with non-zero in the A register. 

Now we get yi the starting address of the request stack 
in Cfli from cell P.RflSi and save it in D.Zb and D.Z7i 
and xithe starting address of the first RBR tablei and 
store it in D.TQ and D.Tl. y is either the last+1 
address of the last RBR tablei or is up to 37 greater 
than that* In other wordsi each RBR table occupies 3fi 
wordsi if there are n RBR''si y=x+3fin+ki where k is between 
0 and 37. tile also set RBRORDi in effecti to S{-l>i as 
we shall add 1 to it before testing each RBRi and we 
want it ultimately to contain fl times the RBR ordinal- 

At see we read the first two words of what may be the next 
RBR table in Cfli and then add 3fl to the pointer. Also 
add lOB to RBRORDi to give & times the RBR ordinal of the 
table we are now to look ati if it is one- But if the 
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RBR table pointer Clast+l address of the RBR table we 
are about to look atT if it is onel is greater than the 
address of the start of the request stacki this is not 
an RBR table t and we have not found the match we were 
seeking. So we issue the no-RBR dayfile message and 
exit from CKEST with non-zero in the A register. Otherwisen 
we do have another RBR table to look atn and we compare 
the EST ordinal in its seventh byte with ESTO. If they 
do not matchn return to SCC and try for another RBR table. 

If they do matchi set DSTO to contain the DST ordinali 
from the second byte of the RBR table* RBRORD is already 
set. Then exit from CKEST with Q in the A register. 

Subroutine Called 

ERflES 

Registers Destroyed 

D.Zl through D-TSi D.FNT+S. 

Entry Information 

The disk pack EST ordinal in ESTO. 

Exit Information 

The DST ordinal in DSTOi the RBR ordinal times fl in 
RBRORDn the EST entry in D-EST through D.EST+^^ the 
■pT PSt two Cn words of the RBR table in RBRHEAD through 
RBRHEAD+1. 


CKsun 


This is called to find-i and leave in the A-registeri the 
lE-bit sum-i with end-around carry at each addition! of 
bytes LABEL through LABEL+477BT excluding LABEL+3'^. 

LABEL+BT is the checksum byte in the first SDQB-byte 
PRU of a disk packi so we have to sum all the other bytes 
either to find a new checksum or to check an old one. first 
we save the content of LABEL+B'i in D.ZBi then zero LABEL+BBi 
then accumulate the checksum of LABEL through LABEL+477B 
in D.ZBi then restore LABEL+3‘ii and finally exit with 
the content of D.ZB in the A register. 

Subroutines Called 

None. 

Registers Destroyed 
D.ZIt D.ZE-. D.ZB 
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Entry Information 
None. 

Exit Information 


The checksum in the A register. 


SRBRAl) 


This subroutine takes RBROR® to have been set by subroutine 
CKEST to lOB times the RBR ordinal of the disk pack. It 
calculates the address of the beginning of the corresponding 
RBR table in CPI-, and exits with this address in the A 
register. The starting address of RBR table number □ is 
taken from bits Bb—ST of CM word P-RBR. 

Subroutines Called 

None - 

Registers Destroyed 
D.Zl through D-ZS 
Entry Information 
RBRORD properly set. 

Exit Information 

The starting address of the RBR table in the A register. 


FINFNT 

This writes the second and third words of the FNT entry 
for a private pack or a file assigned to a private pack 
into the proper position in the FNT. D-FIRST+l contains 
the address of the first word of the FNT slot. D-Zl 
through D.ZS have already been set up as the proper second 
word of the first byte. The third word is set up merely 
as VFD bD/1. 

Subroutines Called 

None. 

Registers Destroyed 
D.Zl through D-ZS 
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Entry Information 

The FNT pointer in D-FIRST+It and the partly -constructed 
second word of the FNT entry in D-Zl through D-ZS- 

Exit Inforrmtion 

D.FIRST+1 has had E added to it. 


REASON 

This is called to fetch the next word pair -CIO PP wordsf 
from the label of the current disk pack. The pointer to 
the preceding word pair is in D.FIRST. li)e add 10 to it-» 
and if it now equals LABEL+SODBt we have exhausted this 
PRU and must begin the next. OtherwiseT we have the 
pointer to the new word pair in S*FIRSTS we go to REASONYt 
copy the first byte of the word pair into S*FIRST+3-» and 
exit from REASON with the first byte in the A register. 

As this is the only place in 5DA where we read or write 
any PRU other than the first one on the pack-, all we have 
to do to address the next PRU is to increase the PRU 
number in the stack request at ZERfi by 1 • If the PRU 
number thus becomes we reset it to zero and add 1 to 
the record block number in the stack request. Then call 
subroutine READP to issue the stack request. On return 
from READP-. we set the pointer in 0.FIRST + 1 to LABELn 
the beginning of the first word pair in the new PRUi 
copy the first byte of the word pair into I>.FIRST + 3 t and 
exit from READON with the first byte in the A register. 

Subroutine Called 


READP 

Registers Destroyed 

D.TQ through D.T7-I if READP is called. 

Entry Information 

The stack request at ZER(2 correctly set to read the PRU 
now in LABEL through LABEL+HTTB. The pointer to the last 
word pair used-, in D.FIRST+1. This pointer is actually 
sg-t to LA BE L+SQDB—1D before calling READON the first time-, 
to force it to begin with the first word pair in the second 
PRU . 

Exit Information 

The pointer in D.FIRST+1 is updated. The new PRU-. if 
necessary^ is in LABEL through LABEL + k77B-i and the stack 
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request is set for the PRU most recently read- The first 
byte of the new word pair is in D.FIRST+3 and in the A 
register. 


SKFNT 


This is called with a pointer in the A register! to scan 
the FNT either for a vacant slot-i if the pointer is Ot 
or for an entry at our control point with a name the 
same as the seven characters beginning in the cell to 
which the pointer points* On exit-i the A register con¬ 
tains □ if what was sought was not found-i or else a 
pointer to the matching entry or empty slot in the FNT* 

First we store the pointer in D.Zl. If it is zeroi call¬ 
ing for an empty slotn we branch to SKFNTA and read a 
zero Cn word into D.ZQ through D-ZM. This is what we 
will match successive FNT slots against* Then reserve 
pseudo-channel CH^FNTt as otherwise an empty slot we 
found might not stay empty. This brings us to SKFNTB. 

If the pointer is non-zeroi it points to a potential file 
name in PP memory. We alter the fourth and fifth bytes of 
the potential name area to coincide with the form of the 
first word of an FNT entry for a file of this name at 
our control point t type local. Then branch to SKFNTB. 

At SKFNTB-i we have D.Zl pointing tothe first of five PP 
cells that contain the model of the FNT entry or vacancy 
we are seeking. The only mis-match allowed will be in 
the type field of the wordi bits 15-17. Now we get the 
FNT pointers and scan the FNT. If we find a match! we 
exit from SKFNT with the pointer to the FNT entry or slot 
in B.Zb and in the A register. If no match-, and if D.Zl 
is not zeroi we exit from SKFNT with □ in the A register! 
having failed to find a matching FNT entry. But if no 
matchi and D.Zl contains 0-. ue have failed to find an 
empty sloti the FNT is fulli and SDA is not going to be 
able to complete its work. So we drop pseudo—channe1 
CH.FNT-. as we are not going to do anything to the FNTi 
call subroutine AVOID to save the disk pack label from 
destruction if necessary*! then branch to FIVEDX and back 
from SDA to lAJ with a pointer to the FNT-full message in 
the A register. 

Subroutines Called 

R.RCH-, R.DCH! AVOID 

Registers Destroyed 

D.ZO through D.TM 
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Entry InformatiDn 

In the A register! 0 if an empty FNT slot is to be souahti 
otherwise a pointer to the first of five bytes whose ,irst 
seven characters contain a name whose like is to be 
sought in an FNT entry at our control point. 


Exit Information 

If the entry was with □ in the A register^ then if we 
find a vacant FNT slot-i we exit with a pointer to it 
in the A register and in D.Zb? and with pseudo-channel 
CH.FNT reserved. If the FNT was fulli CH.FNT is not 
reserved! the disk pack has been dropped from our con¬ 
trol point if necessary-i and 5DA returns to lAJ with a 
pointer to the FNT-full message in the A register. 

If the entry was witn non-zero in the A register! the S 
bytes to whose first one it points have been adjusted to 
look like the first word of an FNT entry for a file of 
that name! type local! at our control point. If no match 
to it was found in the FNTi the A register contains □ 
on exit*! if a match! the FNT address is in D.Zb and in 
the A register. 


AVOID 

This is called to drop the disk pack from our control 
point! if necessary! when subroutine SKFNT finds the FNT 
is full! or when! in processing a control card of the 
form RPACK-Cpname!E> or RPACK-Cpname!E!vrno> we find 
one of the files on the pack has the same name as an exist¬ 
ing file at our control point. 

If AVOIDA+1 is Di we exit from AVOIDA without doing any¬ 
thing. If non-zero! it has been set so during the pro¬ 
cessing of an RPACKIpnamelEI or RPACKCpanmeiE!vrnol 
control card! just above loaction NXTFILEi to contain 
the address of the third word of the FNT entry for the 
private pack. Once the private pack entry has been set 
up in the FNTi if we simply abandon the process of insert¬ 
ing all the files on the pack into the FNTi we will have 
the pack label re-written at job termination with one or 
more of the pack‘'s files missing. As the pack should 
not suffer this loss! even if it cannot be used by the 
job at this time! AVOIDA+l has been set so that when 
AVOID is called! we write zero into the FNT slot for the 
pack FNT entry! and call subroutine hKMD to unload the 
pack from our control point. Then at job termination! 
the pack label will be left unchanged. 
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Subroutine Called 


^K^D 

Registers Destroyed 
D«Z1 through D-ZS 
Entry Information 

In AVOIDA+li either zero -Cfor do nothing} or the address 
of the third word of the FNT entry for the private pack. 

Exit Information 


None. 


L0D7DA 


5DA is rather cramped for spaceV the error messages are 
numerous and bulkyi but once an error message is neededn 
whatever may have been read from the disk pack into LABEL 
through LABEL + M77B is no longer needed. -CThe only 
exception is when IBT calls SDA to blank label a packi 
and SDA finds a private label on the pack already. In 
this case SDA keeps LABEL through LABEL+477B intact and 
passes address LABEL back to IBTn and IBT has the error 
message in its own field length.} So we have all the error 
messages for SDA gathered into PP overlay 7DAn which is 
assembled as a segment of 5DA so that its addresses are 
available to SDA through the assembly. 

L0D7DA is entered with the address of some message from 
7DA in the A register^ this is savedi then 7DA is loaded 
into the space beginning at 72QDB=LABELi and then we 
exit from L0D7DA with the address of the message again 
in the A register--only now the message is in PP memory 
at that addressT which it was not before 

L0D7DA is called by subroutine ERflES -Csee below} when SDA 
wants to issue an error message and then either continue 
its work or abort the control point immediately. Uhen 
SDA is to return control to lAJn with the message pointer 
in the A registern it branches to FIVEDX with the pointeri 
L0D7DA is called there so that the pointer will not be 
meaningless! and then we take the subroutine exit from 
SDA with the pointer again in the A register. 

Subroutine Called 


R.OVL 
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Registers Pestroyted 
D.Zl through B.T7 by R-OVL 
Entry and Exit Information 

The pointer to the messagen in the A register. Only on 
exit is the message actually in memory. 


ERHES 


This is called whenever SOA wants to issue an error 
message without returning control to IBT or lAJ. Ue 
enter with the address of the message in the A register^ 
call subroutine L0D7DA to load the messages! in overlay 
7I>An call R.OFil to issue the message to the dayfile-i 
and exit from ERflES. 

Subroutines Called 

LODTOAi R.Ofn 

Registers Destroyed 

B.21 through D.T7-, L0B7DA and R.DFM 
Entry Information 

The address of the message! in the A register. 

Exit Information 


None • 
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bPC—DROP PERMANENT HASS STORAGE FILES 


Preset 

D.PPMES 1 = PP message buffer first word address 
O.FA = FST word one address 

D.CPAD = CP No. N2D0B 

Temporary 

0.21 - D.T7 

Set 

D.RA and O.FL by Pause for Relocation 
Routing Area 

C.PPblilA - L.PPHDR 7777B 
Error flessages 

Headed by ''PFn SYS TEH ERROR''^ 

1. '"ORBTC NOT IN FNT''. 

for ORBTC not found as a file name in FNT 

2. ''BAD PFD POINTERS. 

for incorrect PFD pointer in APF entry 

Following messages will have Permanent File Namen followed by 

3. ''CYCLE NOT FOUND''. 

for the cycle specified in APF not found in PFD 

4. ''CYCLE DUnPED''. 

for the cycle specified in APF not available in PFD 

5. ''NAMES DISAGREE''. 

for names in PFD and in RBTC disagreeing 

b. ''CYCLES DISAGREE'’. 

for cycles in PFD and in RBTC disagreeing 

7. ''RBT - RBTC DISAGREE''. 

for file RBT chain disagreeing to RBTC up to the end 
of RBTC 

■CFor System Errorsi File RBT chain will be released without 
releasing RBR bits*! 
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MSG 


General 


MSG is a PP programi always loaded at IDODB. It is called by a 
CPU program in order to get a message added to the dayfile. A 
peculiarity of the way it is called is that if without recalli 
the call request points directly to the messagei while if with 
recallT the request points to a word whose left half points to 
the message itselfi while its right half is zeroi in order that 
the rightmost bit of the word the call points to shall be 
certainly and available for setting to 1 when the request 
has been fulfilled. The macro generator for the ^MESSAGE^ macro 
does not take account of thisi it generates an RJ CPC followed 
by a pointer to the message t and CPCn when enteredi provides the 
necessary intermediate word if the request is indirect. 

Entry Information 

The input register initially contains: 

VFD l.fl/3RMSG-,E/aiM/c-,lE/difct/e-iia/f 


where : 

a is 1 if recall or □ if no recallT 
c is the control point numberi 

d is □ if the message is to be copied to the control point B- 
display and written on the control point dayfile and possibly 
the system dayfilei or non-zero if the message is only to be 
copied to the B-display. 

e is E if the message is a '^hardware error file'' message. It will 
only be written on the h.e.f.^ not to the control point or sys¬ 
tem dayfile or the B-displayi and the value of d in the request 
will be disregarded. 

e is 1 or □ according as the message is not to be writteni or is 
to be written-i to the system dayfile. In either casei it will 
also be copied to the 8-display. Howeveri if d is non-zeroi 
the message will not be written to either dayfile. 

Strictly speaking-i the case for e=E applies for any value of e 

in which its bit 1 is i-e.-, for e=Bi3Tb-i7i.7b-,77i and the 

case for e=l applies for all other non-zero values of e- 

f is the addressT relative to RAn of the first word of the message 
"if a=0- If a=]n f is the address of a word having the form 3D/gi 
3 D/Dt g being the address relative to RA of the first word of the 
message. In the latter case-i bit 0 of the word at RA+f will be 
set to 1 when the message has been issued. 
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Entry Information -Ccontinued> 

A "^hardware error file^ message is always b Cd words long. The 
length of any other message is defined by its ending with the 
first zero byte that falls in bits 0-11 of a Cd word. Such a 
message must not be more than flD characters long. If it is more 
than characters longi the first ^0 characters will be written 
to the dayf11eCs> as appropriatei and the remainder will be written 
to it or them as a second message. The whole length t up to SO 
characters-i will be written to the B-display area of the control 
pointi if the message is SO or fewer characters longn this will 
create a new '^first message line''. If more than SO characters 
longn the first SO characters will become the ''first message line''i 
and the remainder will become the ''second message line''. 

Exit Information 


Nonei if the request was without recall. If with recall-* bit 0 
of the word to which the request pointed is set to 1. 

Other Programs Called 


donitor requests are made in the normal way-* but otherwise no 
other programs are called. 

Narrative 


li)e begin by setting ON -CD-PPONO to contain 1-* and reading the 
input register into IRB through IRB+4 CI>.PPIRB through D.PPIRB+4>. 
Then copy the address from the request into ARG and ARG+l-i and 
with this in the A register call R.TFL to add RA to it. If the 
return is with the A register negative-, the address is out of 
rangen and we go to dSGS to issue the dayfile message ''dSG - ARG 
ERROR'' and abort the control point. Otherwise-* read the word 
the request points to into TdP through TdP+M. Next extract the 
recall bit from the input register image and store it in RCL* 

If zero-* branch to dSGli ARG and ARG+1 point directly to the 
message! but we shall not make use of the fact that its first Cd 
word has already been read into TdP ff. If non-zeroT we extract 
the address of the message from bits 3D—Mb of the Cd word read 
into TdP ff --I and store it in ARG and ARG+1. 

At nSGli in either case-* we haye the address of the message in 
ARG and AR6+1. Now if bit n of the input register image is O-i 
we go to dSGP to process a normal message. If It we haye a 
hardware error file message! and set D.Tl to contain 5DB as an 
indication to monitor of this. For an H.E.F. message we do not 
call PP resident subroutine R.DFd! which would set D.Tl to zero 
before calling R.dTR with d.DFd in the A register! we will call 
R.dTR directly from dSGi so we set D.Tl to SOB as part of the 
latter call. Then set lilC to contain bi the known length of the 
message! and D.TE to contain the address of the sixth word of 
our PP-'s message bufferi this Is also part of the call we shall 
make to R-dTR. Then pick up the address of the message in the 
user''s field length! add b for the length of the message! and call 
R-TFL to add RA to it. If the return is with the A register 
negative! the message address was out of range and we go to dSGS 
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Narrative CcontinuedO 


to issue the dayfile message ''MSG - ARC ERRORS and abort the 
control point- Otherwise^ subtract b from the A register to 
get the initial address of the message t and read the message 
into BUF ff.n then write it into the first b words of our PP^'s 
message buffer i call R.riTR to issue the dayfile message^i and 
go to nSGlD to set the completion bit if the request was with 
recalln and drop the PP. 

!ile come to (1SGP if the message is not for the H-E-F.t and set 
UCn the word counteri to zero- In the loop from flSGL to just 
before flSGTi we pick, up the address in ARG and ARG+lt call R-TFL 
to add RA to iti and branch to HSGS if R.TFL answers that the 
address exceeds the field length; in that case we issue the day- 
file message '^riSG - ARG ERROR'' and abort the control point. If 
the address is goodi we read the word into the next available 
S bytes of the message buffer beginning at BUF; check each charac¬ 
ter for being less than bOB -Ccharacters above S7B could be printed 
in the dayfile-i but might cause false coordinates if they were 
displayed on the A or B display of the console!; and replace any 
of the first four bytes by a pair of blanks if the byte is zero. 

If a character is not less than bOBi we go immediately to liSG7 
to issue the dayfile message ''MESSAGE FORMAT ERROR'' and abort 
the control point. 

At the end of checking each CM word of the messagei we add 1 to 
ti)Ci and then return to MSGL for the next word unless blC contains 
the maximum length for a messagei or the last byte of the last 
word read contained zeroi the message terminator. In either of 
the latter casesi go to HSGE. 

li)e come to PISGE with the message in BUF ff.i and its length in 
Cn words in NC. Now we extract the control point number from 
the input buffer imagei and copy the whole message into the 
B-display area of the control point. Nexti if bits EM-BS of 
the input register contained zeron we go to MSGIB to send the 
message to the dayfilels!. If non-zeroi we pass directly to 
HSGlQi to set the completion bit if necessary and drop the PP. 

At riSGlHn we prepare for the possibility that the message is over 
MO characters long; i-e-n extends beyond BUF+1 'It by saving BUF+BO 
at IRB fwhich merely contained the leftmost two characters of 
the input register image-i ''US''}-! and zeroing BUF+BO to provide 
a terminator for the first part if the message-i if it is long. 
Between dSGL and f1SGt-» above-i we maintained BP as a pointer to 
the last fnot last+l! byte of the message assembled in BUF ff.; 
so now we use it to zero the byte after the last byte in the 
message. {This is in case the message ended without a zero byte; 
but it could only be so if the message were terminated because 
it extended through fl CPI words; hence we could just as usefully 
zero BUF+MOi as InBP.! 
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Narrative -CcontinuecO 

Now if bits lfl-E3 of the input register image are non-zeroi we 
assume we have the case e=li as explained above under ^Input 
Information®! the message is not to go to the system dayfilei 
so we set to 1 bit 14 of the address that will be in the A 
register when we call R*DFi1 at SCfll and SCHS» Otherwise! this 
bit remains 

At SCflli we call R-DPH with the address of the beginning of the 
message in bits 0-11 of the A register^ bit 1E=1 to prevent 
R.DFM from copying it to the B-displayi which P1SG has already 
done! and bit 14 =□ or 1 as explained in the preceding paragraph. 
Now if liJC contains less than St the message was not over 3^ 
characters! and we have sent it all and can go to nSG14. If S 
or more! the message was 40 or more characters. Byte BUF+SO! 
which must have contained characters 41 and 4S! has been saved 
at IRBi if this is zeron the message was exactly 40 characters 
followed by a zero byte! and as we have already sent the 40 charac¬ 
ters we can go to [1SG14! Ihowever! in the code between nSG4 and 
nSGS! we altered to blanks any zero byte that did not come at the 
end of a CN wordi so byte BUF+ED can hardly contain zero if the 
message was S or more CM words long.> Otherwise! we restore 
byte BUF+3D. A zero byte has already been stored after the 
last byte of the message {Just after MSGIB aboveli and we now call 
R.DFM with the address of the second part of the message in 
bits 0-11 of the A register! and bits IE and 14 set as explained 
above for the first part of the message. Then arrive at riSG14. 

At f1S614 is a piece of conditionally-assembled code- If IP.MSCT 
=0i it is skipped! and we go straight to MSGIO. Otherwise! we 
subtract 1 from the byte in the control point area that contains 
the message limit count. If it is not reduced to zero! go to 
MSGIQ. If it is reduced to zeroi issue the dayfile message 
^MESSAGE LIMIT EXCEEDED® and abort the job. 

At MSGIO! we check RCLt in which the recall bit of the input 
register image was initially stored. If this is zeroi go to 

MSGll to drop the PP. If noti set to 1 bit 0 of the word in 

the job''s field length to which bits O-lb of the input register 
image pointi then go to MSGll and drop the PP. This CM word was 
initially read into TMP through TMP+4! and is still there. R.TFL 
is used to add RA to its address! but we neglect the case of a 

return from R.TFL with the A register negative because it has 

already been called to add RA to this address! and aborted then 
if the address was beyond the field lengthi since then! the field 
length cannot have changed while MSG was active at the control 
point because it has never called R.PAUSE. 
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14.0 

14.L 


SYSTEM CENTRAL MEMORY ROUTINES 

BKSP 

Description 

1. The backspace count specified in RA.+3 is converted to octal* 

2. An open alter (OPE function code = 120B) is performed on the 
file. 

3. A SKIPS (CIO function code = 640B) is performed on the file. 

4. An END request terminates processing. 
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14.2 COMBINE 

This is a utility routine which operates In the CP. It is called with the 
following control card: 



In this operation, n (decimal) logical records are read from file and 
written as one logical record onto file £2. level zero. The operation 
proceeds as follows: 

I- A five word FET is generated with 

Program length + 2 —► FIRST == FET + 1 

Program length + 2 —► IN = FET + 2 

Program length + 2 —► OUT = FET -i- 3 

Fie Id length - 4 —► LIMIT = FET + 4 

2. The number n is converted from decimal to binary. 

3. An open request is made on the input file ^ to determine device type. 
The device type is indicative of the PRUSIZE. The device type field 
is in bits 48-59 of FET -r 1. The PRU size will be recorded at the CM 
location PRUSIZE. 

- If the device type 6 12B, the device = mass storage, and 64-*■ PRUSIZE. 

- If the device type = 40B, the device = 1/2” tape, and 128—► PRUSIZE. 
Otherwise, assume device type = card reader, and 16—►PRUSIZE. 

4. READ'S from ^ are Issued as CIO operations until the circular buffer 
can contain no more PRU's: 

(LIMIT) - (IN) < (PRUSIZE) 

5. When this occurs, a WRITE is issued to dump the circular buffer (always 
containing an integer number of PRUs) onto the file f2 . 

6. Each time the circular buffer is dumped onto the IN and OUT pointers 
are reset to (FIRST). 

7. Each time a full logical record is read, n is reduced by 1. 

8. COMBINE will continue to issue READ'S from ^ until n goes to zero. 
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9. When n goes to zero, the circular buffer will be dumped onto ^ for 
the last time with a WRITE. 

10. A write end-of-record onto ^ at level zero will be issued by COMBINE 
to terminate the output. 

11. An END RUN request is made by COMBINE. 

An ABORT will be made by COMBINE should an I/O error occur during this 
operation. 
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14,3 COMPARE 


General 


COMPARE Is a CP program, about 5600B words long. It is not a sub¬ 
routine, and is expected to be called only by a control card; it can 
terminate only with an ENDRUN or an ABORT* 


Function 


COMPARE will compare two files from their present positions until 
a given number of e»o.r.'s of a given level number have been read 
through. Comparison is abandoned if a level number difference in 
corresponding e.o*r.*s is found. The control card may specify that 
after a given number of conflicting records are found, comparison 
will be abandoned- 

A final dayfile message is given whether the total comparison was 
identical C'^GOOD COMPARE*0 or not (''BAD COMPARE”). 

A message is printed for every conflicting record pair and if the 
Length of the two records is different, the difference will be printed. 
The control card may specify that the first n conflicting pairs of 
words in each conflicting record pair will be printed in octal. 


Entry Information 

Only what has been taken from the COMPARE control card and stored in 
RA-H2 ff. Bits 0-17 of the word at HA+64B contain the number of para¬ 
meters that were taken from the control card; there must be at least 
two, but any beyond six are disregarded. 

KA+2 contains one file name, which we shall move to the FET at RED* 

RA+3 contains the other file name, which we shall move to the FET 
at BLUE. 

RA+4 may contain the niimber of e.o.r.^s of a given level through which 
comparison is to continue. If so, it is converted from decimal to binary 
and replaces the default value 1 in cell HOWMANY. 

RA-h5 may contain the level of the e.o.r.^s to be counted according 
to HOWMANY. If so, it is converted from decimal to binary and re¬ 
places the default value 0 in cell LEVEL. 

RA-f6 may contain the number of conflicting word pairs to be printed 
out for each conflicting pair of records. If so, it is converted 
from decimal to binary and replaces the default value 0 in cell ERRORS. 
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RA+7 may contain the number of conflicting record pairs after which 
comparison is to be abandoned. If so, it is converted from decimal to 
binary and replaces the default value 30000 in cell RECORDS. 


Exit Information 


None. 


Other Programs Called 
CPC, 10. 


Narrative 


We begin at COMPARE by fetching and using the control card parameters 
as described above under "Entry Information". Abort if there are 
fewer than 2 parameters, or if any of the parameters after the first 
two contains a non-digit. 

At VB begins the main cycle, for reading and comparing the next record 
pair on the two files. First set ERC and REDC = 0 and WDCNT — -1. 

ERC is the count of conflicting word pairs in the record, and WDCNT 
is always 1 less than the number of word pairs compared so far. REDC 
is used in deciding on parity as follows; we try to read the "RED" 
file in whatever parity its FET now indicates. If this does not pro¬ 
duce a parity check, go on to VBB; but if it does, and REDC — 0, set 
REDC = 1, Invert the parity (mode) bit in the FET, backspace, and 
try again. But if REDC already = 1, neither mode worked, and we go 
to VG to give an error message, skip to e.o.r. on both files, and 
go to AA to do the e.o.r. procedure. 

When we come to VBB, we have read the first file without a parity check, 
and the FET shows which mode. Now call subroutine READBLU to read 
the second file in the same mode. If no parity check, go on to VK. 

If parity check, go to VH to give an error message, skip to e.o.r, 
on both files, and go to AA to do the e.o.r- procedures. 

Note that if either file is on magnetic tape, the first file named 
on the control card should be on a tape file. Otherwise, a case like 
this might occur; COMPARE (DIS,TAPE), where TAPE is a BCD tape file, 
and DISK is an identical disk file. But GCMPASE will be able to read 
DISK initially in the binary mode without a parity check; and, having 
done so, will give an error message when it cannot read TAPE in the 
same mode. If the control card were 

C0MPARE{TAPE,DISK) 
all would he well- 
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At VK we have begun to read the corresponding records, and have found a mode 
that works on both of them. Now we compare them, word by word, refilling 
the buffers as necessary. 

If a word pair does not match, we go to VC. If ERG=0, this is the first 
discrepancy in the record pair, so we write out the message "CONFLICT IN 
RECORD n", and reduce the count in call RECORDS by 1. If it has become 
negative, write the message "CONFLICTING RECORD COUNT EXHAUSTED" and go 
to TERMIN. Otherwise, at VGA, we add 1 to ERG and set ANYERR nonzero, as 
a signal of bad overall comparison. Now if ERC is not above the parameter 
in cell ERRORS, we print out the conflicting word pair in octal. Then return 
Co VK to go on comparing. 

If reading either file to refill its buffer gives a parity check, we go to 
VG or VH as above. 

If the record on the second (BLUE) file is exhausted first, we go to VF, 
or in the opposite case, to VE. Either way, we set A1 to point to the FET 
for the shorter record, and A2 to that for the longer one; then go to VEF. 

At VEF, find the number of words remaining unmatched in the long buffer. 

Then read to the end of the long record, adding the lengths of successive 
buffersful to this count. Then print a message "RECORD n IN FILE x p WORDS 
LONGER THAN SAME RECORD IN FILE y" where p is the count we just accumulated, 
in octal, and n-1 is the number of record pairs in decimal, that preceded 
this one during the current COMPARE. Then branch to AA to do the e.o.r. 
procedure. 

We coma to AA when we have come to e.o.r. on both records of a pair. If 
we have written out any conflicting word pairs, they are grouped two pairs 
per print line, and we now call subroutine WTLIN to write out that print 
line if only one word pair has been placed in it. Then check the e.o.r. 
level numbers of the two files. If they are not the same, go to AAB, print 
the message "COMPARISON ABANDONED BECAUSE OF E-O-R LEVEL DIFFERENCE AFTER 
RECORD n. FILE x LEVEL p PILE y LEVEL q" where n is decimal and p and q are 
octal. Then set ANYERR non-zero, to record a bad overall comparison, and 
go to TEiiMIN. 

If the two e.o.r. levels are the same, and they are below the threshold 
parameter in cell LEVEL, go to AAD directly. If not, count down the para¬ 
meter in HOWMANY. If it is now 0, go to TERMIN. If not, go to AAD. At 
AAD, call subroutine UPRGNT to add 1 to the decimal record count we keep 
at RECGNT for use in messages. This count ignores level numbers. Then 
return to VB to start on the next record pair. 

We come to TERMIN when we have finished or abandoned comparison. First 
we call subroutine WTLIN to write out a word pair, if there is one in the 
buffer waiting for a second pair to fill the line. Then call CPC to write 
end of record on our OUTPUT file. Then call CPC to write a dayfile message 
"GOOD COMPARE" If ANYERR contains zero, "BAD COMPARE" otherwise. Finally, 
call GPC to request MONITOR to end the run. 
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Subroutines 


SUBR 

This is called at the beginning of subroutines REaD, WRITE, BAXP, and 
REDIMES to step their exit addresses by the number in the calling sequence 
to SUBR, and to get A1 to point to the first parameter in the calling 
sequence to READ, WRITE, BAXP, or REDUMES, thus putting the first para¬ 
meter in XI < 

Entry Information 


Only the calling sequence: 

+ RJ SUBR 

- EQ n 

where n is the number of parameters in the calling sequence for the subroutine 
that called SUBR, SUBR assumes that RJ SUBR is In the second word of the 
subroutine that calls it. 

Exit Infotniatlon 

The address of the first parameter in the call to the subroutine that called 
SUBR is in Al, and the parameter is in Xl, The return address in the outer 
subroutine has been increased by n from the call to SUBR. 

Subroutines Called 


None, 

Registers Destroyed 
A2, A6, X2, X6 

READ 


This is used for all reading of the files being compared. It deletes any 
e-o,r, status bit that may be in the FET, and sets the FET pointers to 
empty buffer. Then it calls CPC to read with recall. Then if the error 
bit for a too-long tape PRU, or the end of information bit is set, go to 
BIGREC or EOI, write an appropriate message, set ANYERR non-zero to indicate 
a bad overall comparison, and go to TERMIN, Otherwise, exit from READ with 
if the parity error bit was not set, or Xl=l if it was set. 

Entry Information 

The calling sequence 

RJ READ 
VFD 60/a 

where a is the address of the first word of the FET. Bit 1 of the first 
word of the FET determines the mode- 
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Exit Information 


X1=0 if the read took place without a hitch; Xl=l if the only hitch was 
a parity check. The FET will show status read completed, e.o.r. completed, 
or e.o.f. completed, with the level number if e^o-r. 

Subroutines Called 

SUER, CPC. 

Registers Destroyed 

Al, A2, A6, A7, XI, X2, X6, X7 

READBLU 

This is used for most reading of the second (BLUE) file. It merely sets 
the mode bit of the second file FET to the same as that in the first file 
FET, and then calls subroutine READ* 

Entry Information 

None* 

Exit Information 


As for subroutine READ * 
Subroutine Galled 


READ- 

Registers Destroyed 

Al, A2, A6, A7, XI, X2, X6, X7* 

WRITE 

This is called for all writing of messages on file OUTPUT* 
Entry Information 

The calling sequence 

RJ WRITE 
VFD 30/a*30/b 

where the message is in cells a through b-1* 

Exit Information 
None. 
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Subroutines Called 


SUBR, lOWRlTE 
Registers Destroyed 
Al, A2, A6, XI, X2, X6. 

BAXP 

This is called only once, to backspace the first file before trying to read 
the beginning of a record in a second mode. 

Entry Inforniatlon 

The calling sequence 

RJ BAXP 
VFD 60/a 

where a is the address of the first word of the FET. 

Exit Information 


None. 

Subroutines Called 


SUBR, CPC. 

Registers Destroyed 
Al, A2, A6, XI, X2, X6. 

FREEZE 

This is called at VKD and VC when comparison of words is interrupted by either 
buffer being exhausted, or by a discrepant word pair. It saves B2, the up¬ 
dated OUT pointer of the first file, in REIH-3; B4, the updated OUT pointer 
of the second file, in BLUE+3} and X7, one less than the number of word 
pairs compared so far in the current record pair, in WDGNT. 

Entry Information 

Things to store in B2, B4, X7. 

Exit Information 


None. 
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Subroutines Called 


None. 

Registers Destroyed 
A6, A7, X6. 

REDUMES 

This is called to print a message whenever a record on either file gives 
a parity check, except that the beginning of a record on the first file is 
read in both modes before an unavoidable parity check is accepted. 

Entry Information 

Only the calling sequence 

RJ REDUMES 
VFD 60/a 

where a is the address of the first word of the FET. 

Exit Information 
None. 

Subroutines Called 
SUBR, BLSTUF, WRITE 

Registers Destroyed 

Al, A2, A6, XI, X2, X3, X6. 

OCTAL 

This converts a word in X,regarded as 20 octal digits> to 20 BCD characters 
in X6 and X7. To get 20 display code characters, one must add a word of 
display code zeros to each of X6 and X7; this is not done by OCTAL< 

Entry Information 
A word In XI. 

Exit Information 

The same word converted to 20 BCD octal digits in X6 and X7. 

Subroutine Galled 
None. 

Registers Destroyed 
XO, XI, X2, B2. 
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WTLIN 

This writes out the line stored in LINBUF through LINEUF+9 for printing, 
unless it is already empty. Then it sets the pointer at LINPOS = LINBUF, 
indicating an empty buffer. This buffer is used to store discrepant word 

pairs from a record pair, two at a time. After one has been stored, the 

pointer in LINPOS = LlNBUF+5. After two pairs have been stored, the pointer 

= LINPOS+10; then WTLIN is called immediately. It is also called at the 
end of a record pair, to clear out a possible remaining half-line. 

Entry and Exit Information 
None. 

Subroutines Called 
lOWRlTE 

Registers Destroyed 
Al, A6, XI, X6. 

UPRCNT 

This is called only at AAB, when one record pair has been finished and the 
next is about to be begun, to increase by 1 the record count in RECCNT, for 
messages. This is a 9-digit decimal number, with leading zeros replaced 
by blanks, followed by a blank as tenth character. Its initial value is 1. 

Entry and Exit Information 
None. 

Subroutines Called 
None. 

Registers Destroyed 
Al, A7, all X-xeglsters. 


BLSTUF 

This is called, with the first word of an FET in XI, to extract the file 
name from the word,insert trailing blanks, and leave it formatted for a 

message in X6e 

Entry Information 

The FET first word in XI. 

Exit Information 

The file name, formatted for a message, in X6. 
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Subroutines Called 
None* 

Regtsters Destuoyed 
XI, X2, X3. 
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14,4 COPY 


This routine copies a file past two consecutive file marks. The copy 

will also terminate on end-of*information* Its one subroutine is used 

to call 10, The procedure is as follows; 

1* The input file is opened with an open alter request (OPE function 
code -120B). 

2* The output file is opened with an open write request (OPE function 
code 104B)* 

3* The input file is copied to the output file until the end file status 
(30B) has been returned by CIO two consecutive reads. Both EOF^s 
are copied to the output file. 

4. A SKIPS of one record (CIO function code -640B) is issued for each 
file, thus backspacing over the second EOF. 

5. An END request terminates processing. 
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14,5 COPYBCD 


General 

COPYBCD is a CP program, about 2200B words Long, It expects to be 
called only by a control cardj It is not organized as a subroutine, 
and ends only with an ENDRUN or ABORT, 


Function 


The control card may have from 0 to 3 parameters - none, or a number, 
or one or two names, or one or two names followed by a number- The 
first name is for the input file; the second is for the output file; 
the number is the number of files to be copied. The default names 
are INPUT and OUTPUT, and the default number is 1. 

The input file is assiimed to be binary, containing long records of 
lines ending with final zero bytes- Every word whose last byte is 
0 is considered to be the last word of a line. If the last word of 
a record does not so end, an end of line is assumed after it. 

The output file is written in BCD, presumably on tape for off-line 
listing. Every line is written as a physical record of 148 characters. 
Trailing zeros in the last word of a line are replaced by blanks; 
then blanks are added on the right up to a total of 147 characters- 
The 148th character is OOB, the e-o,r- level number. If a line is 
longer than 140 characters, it is taken as more than one line from 
left to right, 140 characters per line- 

Each end of file on the input is turned into two short records on 
the output - the first is one 1 character, for a page skip, followed 
by six blanks and final OOB. The second is seven blank characters 
followed by 17B. 


Entry Information 

The number of parameters is in bits 0 - 17 of RAH-64B. If there are 
no parameters on the control card, the default values are INPUT, 
OUTPUT, 1* If the first parameter is a number it is the number of 
files to copy. Further parameters are ignored. 

If the first parameter is a name, it is the name of the input file. 

If the second parameter is a number, it is the number of files to 
be copied* Further parameters are ignored. 

If the second parameter is a name, it is the name of the output file- 
A third parameter must be the number of files to copy. 
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Exit Information 


None, 


Other Programs Called 
CPC- 


Narrative 


Execution begins at COPYBCD, First the parameters are fetched as 
described above under ''Entry Information^^, and stored at INPUT, OUTPUT, 
and COUNT* If a parameter that ought to be the number of files contains 
a non-digit, we abort with a message- 

At CBBA we begin each file by setting B5 to BBUF, the start of the 
output buffer, and B6 to BBUF-tl4, the last+1 word we can fill* These 
values are kept throughout the processing of a file, and are only 
changed for writing the e*o*f* At CBB, we set 1N=0UT=FIRST in the 
input FET, and then call CPC to read the input file* If the read 
produces e.o.f* status, branch to EOF* Otherwise set B2 to the input 
OUT pointer, and B3 to the input IN pointer, and begin moving words 
from the input to the output buffer. We use B4 to point to the next 
empty word in the output buffer- 

When we have fetched from the input buffer a word that ends in a zero 
byte, we go to DC, replace trailing zeros by blanks, and store the 
word in the output buffer- Then go to DD to write the output record* 

When B4=B6, the output buffer is full, though we did not find a word 
ending in a zero byte, and we go to DD to write the output record* 

At DD, we call subroutine WRITE to write the output record. The 
output buffer, which is initially full of blanks, is refilled with 
blanks after writing. Then set B4“B5, i.e. to the start of the out¬ 
put buffer, and go to DE- Here we step the input OUT pointer in B2, 
which was not stepped after we fetched the last word of the preceding 
line* If now B2=B3, the input buffer is empty and we go to EOB- Other¬ 
wise back to DA to start filling the output buffer again. 

We may also come to EOB from DE in the middle of an output line. At 
EOB, we save B4, the output IN pointer, In its FET. Then see whether 
the input FET status is e.o.r. If not, go back to CBB to read more 
and continue. But if €*o-r*, zero the e.o.r- bit so that CPC will allow 
us to continue reading later, and see if B4=B5, i.e. if the output 
buffer is empty- If so, go back to CBB to continue. But if not, call 
subroutine WRITE to write out the output buffer, and then go back to 
CBB* 
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On reading e.o,f. on the input file, we go to EOF. Presumably the 
input and output buffers are empty, and we have completely copied 
out the preceding file- We store a page skip control character at 
B5, the start of the output buffer; then set B 6 , the output IN pointer, 
to B5-^l instead of its normal value of B5+14. Then call subroutine 
WRITE to write the page skip as a one-word record- Then set IN=OUT= 
FIRST In the output FET and call CPC to write end-of-file. This, if 
printed from the tape, will appear as one or two odd characters at 
the top of the first page of the next file. Then count down on the 
file count in COUNT- If it is now zero, do an ENDRUN. Otherwise, 
return to GBBA to process the next file- 


Subroutine 


WRITE 


This writes out the output buffer as a logical record. First the IN 
and OUT pointers in B 6 and B5 are put into the FET. Then CPC is called 
to write e.o.r. Then the IN pointer is reset to B 55 the start of the 
buffer, and the whole buffer is refilled with blanks^ After exiting 
from WRITE, B4 must be reset to the IN pointer (—B5, i.e. FIRST). 


Entry Information 

The output IN and OUT pointers in B 6 and B5. 


Exit Information 


None. 


Subroutines Called 


CPC 


Registers Destroyed 
Al, A 6 , XI, X 6 , B4. 
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14,6 COPYBF 


14.6.1 Purpose 

This routine has four entry points » COPYBF> COPYCF, COPYBRj and COPYCR, 
Thereforej it may be used in order to copy any number of records or files 
in either binary or coded mode* This routine can also be used to copy 
past two consecutive file marks. Both EOF^s are copied to the output file 
then a backspace over the second EOF is issued to the output file. 

14.6.2 Initial Entry 

A, Depending on the entry point entered, flags are set to the following: 


FRFLG 

= 

20B if this is a record copy 

30B if this Is a file copy 

FUNG 

= 

lOB if coded mode selected 

12B if binary mode selected 

FRSTRD 

_ 

1 if this is the first read 

0 after the first read is executed. 


B. The size of the buffers is dependent upon the field length declared 
on the job card. Buffer A starts at the last instruction of the copy 
routine and ends at field length minus last instruction of copy routine, 
all divided by two. Buffer B starts at the end of Buffer A plus one 
and ends at the specified field length. The size of the individual buffers 
is saved in cell MLRS in case the input or output file is L tape. 

14*6.3 COPYLAB 

A. Prior to opening the files, a check is made for the presence of the 
parameter on the copy control card. If the parameter Is absent, the 
copy proceeds to open the files. If the parameter is any other value 
except L, the copy is aborted and a diagnostic is entered in the dayfile- 
After it has been determined the L parameter is present and correct, 

the next record on the file name INPUT is read into buffer CARD. This 
record should contain the copy label card. 

B. A check is made for the correct parameter selections. If any of the 
parameters are incorrect, the copy is aborted and a diagnostic is entered 
in the dayfile. 

C. At this time the information on the label card is right or left justified, 
depending on the parameter, and stored to the corresponding area of 

the input FET. Control now goes to OFEIN. 
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14.6.4 


14.6. 


14.6. 


14-6- 


OPEIN - CHKOUT 


A, At this time the input file is opened using an open alter function 
code of 120B. The last four words of the input PET are moved to 
the last four words of the output PET and the output file is then 
opened using an open write function code of 104B. 

B. After the files are opened, a check of the device type and format 
declaration is performed to determine whether or not the input and^ 
output formats are compatible. If the file formats are not compatible, 
a flag is set that later produces a message notifying the user of 
this condition. (Refer to matrix in SCOPE Reference Manual, Section 
10.1.) If the input is a coded X tape and a record copy is selected, 
the size of the buffers is changed to a 14 word maximum. 


ENTWRT - CHK.5 

A. At ENTWRT the first parameter, which is the input file name, is 
merged with the proper CIO code for a read then stored into the 
first word of the input FET. A return jump to CALL is performed 
where the read without recall is issued. As soon as the read 
function is accepted by monitor, the output FET pointers are set 
to the previous input FET pointers. The write function is formed 
by adding 3 to the previous read last code and status, and a return 
jump to CALL is performed where the write with recall is issued. 

B. After each read and write is completed, a return jump to CHKCAP 

is performed. Bits 9 - 13 of the first word in the FET are checked 
for a device capacity exceeded status of lOB. If this status is 
present, a message is entered into the dayfile. 

C. Upon completion of the write, a check is made on ENDFLG being one. 
If so, control goes to ENDWR where various flags are checked for 
program termination procedures or program continuation. 


CHECK3 - E0I3 

A. In this section the last read status is saved in WTFUNC. The status 
is checked for end of information, end of record, and end of file. 
Control then goes to EOI or EOR or EOF, depending upon whichever 
was encountered. In these sections a check is made for the type 

of copy (file/record) selected and appropriate flags are set. De¬ 
crementing the file or record count is also performed, 

B. Prior to exiting each EOR or EOI or EOF section, a return jump to 
MOVRD is executed. 


7 MOVRD 


The MOVRD routine is entered via a return jump and is always exited 
through the entry. Its function is to move the values FIRST, IN, OUT, 
LIMIT and word 7, of the input FET to SAVED and W0RD7 respectively. 
These values will be used to set up the pointers for the output FET 
when the next write function is issued. 
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14.6.8 MOVHLD 

The MOVHLD routine is entered via a return jump and is always exited 
through the entry. Its function is to set the output FET pointers 
to the values of buffer B, which were calculated when the copy routine 
was first entered. The MOVHLD routine is executed only if the first 
read flag (FRSTBD) is set to one. 


14.6.9 ENDWR - END 


This section is entered when ENDFLG is set to one. Cells WARNFLG, 
BKSFLG, CLSFLG, OPEFLG, and EOIFLG are checked for a setting of one. 
The flags set to one mean as follows: 


WARNFLG 

HCSFLG 

CLSFLG 

OPEFLG 

EOIFLG 


that the input and output tape formats are incom¬ 
patible. 

that an EOF was encountered while executing a record 
copy, or a double EOF was encountered. 

that EOI status was returned to the input FET and 
the input and output files should be closed to process 
the trailer labels. 

that EOI status was returned to the input FET and 
the input file is a multi-file. Both files will 
be opened again if the file count is not zero. 

that an EOF was encountered while executing a record 
copy, or a double EOF was encountered. This flag 
is also set to one when EOI status is returned to 
the input FET and the input file is not a multi-file. 


14.fe.10 ERROR MESSAGES 

ERRl - N EQUAL INVALID CHAR 

The number of records/files to copy is a zero, alpha character, 
or a special character on the copy control card. (Abort) 

ERR2 - COPYLAB INCORRECT 

The copy label control card is misspelled or the next record 
in the job stream is not the copy label card. (Abort) 

ERR4 - ILLEGAL PAEAM OPTION 

An Illegal parameter was found on the copy label control card. 
(Abort) 

ERR5 - INVALID L CHAR 

The character on the copy control card, signifying a label card 
Is present, is not an "L”. (Abort) 

ERR6 - EOF/EOI ENCOUNTERED 

An end-of-file was encountered before the record count was ex¬ 
hausted, or an end-of-information was encountered before the 
file count was exhausted. (Terminate) 
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14.6.LI INFORMATIVE MESSAGES 

MSG7 - **i'''*DEVlGE GAPACITY EXCEEDED**** 

The tape physical record size is greater than the buffer on 
the read or write, or the physical record size is greater 
than what is declared as the data format on the job request 
control card. 

MSGS - FORMATS INCOMPATIBLE***COPY UNCERTAIN*** 

The tape formats selected on the input and output files can 
cause a possible loss of data significance. Therefore, the 
user is warned of this condition. 
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14.7 COPYL 


General 


COPYL is a utility program designed to update programs on a file with¬ 
out requiring a large number cf control cards. Its operation involves 
the use of two input files and one output file. The names of these 
files are passed to COPYL as parameters in RA+2, 3, and 4. The preset 
values are OLDLIB, BINARY, and NEWLIB, respectively- 

One file is copied from OLDLIB to NEWLIB, starting at the current 
position of each of the files. Each program on the file BINARY will 
replace the program of the same name on OLDLIB, that Is, if such a 
program exists on OLDLIB. With this method, no extra control cards 
are necessary. 


Method 


A. The parameters are picked up and are checked for legality. If 

a parameter is found that is longer than seven characters or contains 
any special characters, the message “ILLEGAL COPYL PARAMETER” is 
issue, and the job is aborted. 

B. An Open Alter is performed on each of the input files, and an Open 
Write is performed on the output file. 

C. The file BINARY is rewound. Each record (program) is then read, 
and the name of each record is placed in a table. When EOF is 
reached, the file is rewound again- A zero word marks the end 
of the table. 

D. The copying process is done as follows: 

1- A record (program) is read from OLDLIB- 

2, If the name of this program is of unrecignizable format or 
cannot be found in the table, the program is copied to NEWLIB. 

3. If the name is found in the table, the following takes place: 

a. The table entry is set equal to one (— 1) in order to flag 
the entry as processed. 

b. The remainder of this record on OLDLIB is skipped, if 
necessary. 

c. The file BINARY is searched for the corresponding program, 
and when found, this program is copied to NEWLIB. 

d. A dayfile message is issued of the following format, where 
AAAAAAA is the program name: 
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AAAAAAA UPDATED 
or 

AAAAAAA UPDATED (CHIP) 

A, When EOF is reached on OLDLIB, an EOF is written on NEWLIB, 

E* The table is searched for any remaining names- If any are found, 
it means that these programs were present on file BINARY, but 
not on file OLDLIB- For each such name found, a warning message 
of the following format is issued: 

COPYL DID NOT FIND-BBBBBBB 

or 

COPYL DID NOT FIND-BBBBBBB(CHIP) 

BBBBBBB is the program name- Thus, the names of all programs 
on file BINARY will appear in either one of the two above messages, 
(CHIP), if appended to a message, indicates that the program was 
in CHIPPEWA format rather than SCOPE. 

F- A final message COPYL DONE" is issued, and the central processor 
is dropped. 


Subroutines 


A. GETNAHE 

All name checking in COPYL is done by this routine. It examines 
the beginning of a logical record and identifies it as one of the 
following: 

1. Beginning of deck in SCOPE format - Word one, bits 54-59, 

Is equal to 77B, Word two contains a name of 1-7 characters, 
left justified. The name Is returned in X7, left justified, 
in bits 18-59 with trailing blanks removed. Bits 0-17 of 
X7 - 1. 

2. Beginning of deck in CHIPPEWA format. This is identified 
by the absence of 77B in bits 54-59 of word 1. The name is 
found in word 1. X7 is returned with the name in bits 18-59, 
left justified with zero fill, and bits 0-17 = 0- 

3. Beginning of a loader directive - If the input file (OLDLIB) 
contains loader directives, they must not be confused with 
program names. They are recognized as follows: 

a. The first word of the record does not contain 77B in bits 
54-59. A loader directive would never be of this format. 

b. The name is one of the four loader directive names: 
OVERLAY, SEGMENT, SEGZERO or SECTION. 
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c. Bit 17 of the first word is set. This will be the case 
only if the word is part of a loader directive and not 
if it is the start of a program of CHIPPEWA format (which 
is the only other possibility at this point). This check 
allows GOPYL to be able to replace a program of the same 
name as one of the loader directives. 

If a loader directive is detected, X7 is returned =0 so no 
entry will be made In the name table, and the loader directive 
record will simply be copied to the output file. The flag 
in bits 0-17 will be entered into the name table to make it 
possible for all programs on a file to appear unique, even 
if there are programs of the same name but opposite type. 


B. CHAR 

Since COMPASS allows program names to contain characters of display 
code 60-77, GOPYL is intended to handle such names also. How¬ 
ever, these characters may not be used in dayfile messages. This 
routine converts all such characters to blanks in the name in X7. 

C. 10 

This routine is used to make calls to CIO for reads and writes- 
On entry, B7 contains the address of the file name, and X5 contains 
the CIO op-code. 

The file name and op-code are placed in the first word of the FET. 
The same FET is used for both input and output* The buffer pointers 
are properly set prior to entering this routine. 

CIO is called to perform the request. Recall is then entered 
until the request is completed. 

On exit, B5 will be negative for EOF status and zero for EOR 
status. X5 will contain bits 1-5 of the status returned by CIO. 

D. REWIND 

This routine issues a CIO call to rewind a file. On entry, the 
address of the file name is in B6- 

At present, only the file BINARY is rewound by COPYL. 

E. RESET 


This routine initializes the buffer parameters. FIRST, IN and 
OUT are set equal to the beginning of the buffer. LIMIT is set 
equal to the field length, which is In AO. As a result, all of 
the field length above the COPYL program is used for the buffer. 
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F. CALL 

This routine 
clears RA^"!- 
word. 

Flags, Constants 
OPECALL 

ERMES 

MESERR 

NAMEMES 

MESNAME 

DONEMES 

MESDONE 

NFMES 

MESNF 

CHIP 

LDS 

ENDEDS 
ABT 
DONE 
CIO 

PCIO 

NAME 

TABLE 

BUFFER 

FETl 


places a PP call word in RA+1 and waits until MTR 
On entry, B7 contains the address of the PP call 


Storage 

First of three PP call words used for opening 
the three files, 

PP call word used for issuing the message at MESERR* 

ILLEGAL COPYL PARAMETER in display code. 

PP call word used for issuing the message at MESNAME, 

^bbbbbbbbbb UPDATED^* in display code. The program 
name is placed in the first word of this message* 

PP call word used for issuing the message at MESDONE. 
COPYL DONE in display code. 

PP call word used for issuing the message at MESNF. 

COPYL DID NOT FIND.in display code. The program 

name is placed in the third word of this message, 

(CHIP) in display code* This is appended to the 
message at MESNAME or MESNF if the appropriate 
program is in CHIPPEWA format. 

FWA of the start of a table containing all loader 
directives. They are stored one per word, left 
justified with sero fill. 

LWA+l of the loader directive table. 

ABT in display code for PP call. 

END in display code for PP call- 

PP call word for calling CIO. Bits O-^l? contain 
the address of the FET (PCIO). 

Start of five-word FET used for both input and 
output files* 

Name of program currently being replaced. 

Start of 500 (decimal) word long table used for 
storing the names of all programs on thefile BINARY. 

A zero word follows the last entry- After being 
processed, each entry is set = 1. 

Start of I/O buffer- 

start of 13-word FET used for opening file OLDLIB, 

This area (also FET2 and FET3) is situated above 
the I/O buffer and is used only for the open request. 
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FET2 

FET3 


otart of 13-word FET used for opening 
Start of 13-word FET used for opening 


file BINARY, 
file NEWLIB. 
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14 . a COPYN 


1. MACROS 


There are two Macros defined in the COPYN routine, CIO and JUST- 
The CIO macro is used to call the circular input/output buffer 
for most 1/0 calls. The first parameter is a local parameter 
(dummy variable) to prevent doubly defined variables, the second 
parameter is the address of the five word buffer area necessary 
for the CIO call- The JUST macro is used to left justify its 
one parameter. 

CIO 

A. Sets up (CIO . Buffer address) 

B- Delays until address 1 equals zero 

C. Writes the CIO call to cell 1 

D. Delays until the I/O is finished (buffer address bit 0 equals 1), 
and exits. 


JUST 

A. B5 equals n. (the number of 

B. Sets B5 equal to 6n. 

C. Sets B5 equal to 60*6n, the 
X register value. 

D. Left shifts the XA register 


characters in the parameter). 

number of positions to move the 
B5 places, and exits* 


2. COPYN (Initial Entry) 

COPYN first performs an open write on the OUTPUT file* Then the 

parameters on the control card are processed. 

A- The strip flag - This parameter if non-zero sets B1 to 1 and 
thereby requests that all ID prefixes he eliminated from the 
logical records prior to writing them to the binary output file. 

B. The second parameter if non-zero specifies the OUTPUT file 
name. If zero the error message GF7 (see last section) is 
sent to both the dayfile and OUTPUT and a disk file TEMP is 
used for the output file. If non-zero, this file is opened 
with an open write. 

C- The third through k parameters are the Input files. Input 
files not declared in this list will not be searched when 
P3 is zero or blank (see section TESTP3). Here, there are 
two limitations: 
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1- No input files - This sends the message, GF9, to both the 

dayfile and OUTPUT and uses TEMP as the first input file name* 

2* Too many input files » Sends the error message, GF6, to both 
the dayfile and OUTPUT and uses only the first 10 input files 
declared. 

At this time, each input file is opened with an open alter* When 
any error message is printed an ERROR flag is set and the job is 
eventually terminated by an ABT request. However* prior to terminating, 
COPYN attempts to process all its text cards. 

Should the parameters on the COPYN control card be correct, the COPYN 
parameterprocessing Loop merely sets the output file name in the five 
word buffer area OUTPUT* 

3* READ 1-READ 

The READ section sets the first input file name in FILEINI and 
the READ macro call reads 2000 q words from the next record of 
INPUT to the BUFFERA area and Begins translating these as text 
cards* The buffer size is determined by an EQU 1024 of BUFF. 
Changing this value will vary the niimber of text cards as well 
as the binary record buffer* 

4* PROCl - PR0C2 

The processing of the text card buffer begins at PROCl and each 
request for a new card returns to PROCl- This is the only area 
where IN and OUT, the BUFFERA pointers, are changed. When all 
cards have been processed, a jump to ENDBUF is taken. For each 
card image a return jump to BRKDWN is executed with A5 (address 
of the last word of the card image), PI (the first parameter of 
this card), P2 (the second parameter on this card), P3 (the third 
parameter), and XO (non-zero when an error was encountered) as 
output. 

Upon return from BRKDWN, START and END are set as the first and 
last words of this card image* These words are moved to BUFFERC+1 
allowing BUFFERG to be a word of blanks for the carriage control* 

If the card image is contained in only one word the PR0C3 loop 
is bypassed and two words are printed. If there is more than one 
word, the PROC3 loop transfers these words to the buffer and PR0C5 
Increments the number of words by two (counting the word of blanks 
and the first word stored)* 

Next, the five word buffer area, CARDS is set up to reflect the 
BUFFERC contents and a call to CIO sends this information to 
OUTPUT using PROC4 as the dummy variable for the CIO macro call* 
PR0C2 updates the OUT pointer to reflect the first word address 
of the next card image. Before processing this card a check is 
made on XO (returned from BRKDWN). If this register is non-zero, 
an error message is printed (see BRKDWN) and the next card is re¬ 
quested; these two tasks are handled via a jump to PROCESl. 
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5, PROCESS-PROCESl 

In this section the first parameter is checked for SKIPR, SKlPFj 
REWIND, and WEOF; finding none of these, a standard text card is 
assumed and a jump to TEXT is taken. In the case of a REWIND card 
a further check is made for INPUT as the file name. And in this 
case an error message (GF5) is sent to the dayfile and OUTPUT at 
PROCESl. If any of the above four control cards are found, a transfer 
to CONTROL is taken. 

6* CONTROL - GONR 

At CONTROL the second parameter which is the file name, is merged 
with the proper CIO code (CODEH-B5) into the first word of the 
five word REQUEST buffer. If the request is either a REWIND or 
an WEOF, a jump to CONVl bypasses the third parameter check. If 
the third parameter is negative, either a backspace file or a back - 
space record is requested. 

The code is set to 640B for SKIPB. If a backspace file is requested, 
a level number of 17B is set. Once the code is corrected the minus 
sign is shifted and a call to CONVERT at C0NV2 is made to convert 
the display code decimal number to binary. (See CONVERT). If 
the third parameter is positive, a check for a plus sign, which 
will be shifted at CONV, is made before jumping to C0NV2. Once 
the number is converted, a return jump to CONI executes the request 
and then the next card is requested from PROCl. 

7. TEXT - PIFOUND 

In this section the first parameter, PI, and second parameter, P2, 
are assumed to be record identifications or decimal numbers. 

Should the first parameter, PI, be a zero, an error condition 
is noted at TEXT2. If PI is alphabetic, control goes to TESTPS. 

If FI begins numeric a return jutDp to CONVERT gives either a binary 
number or a jump to TESTP3 for an alpha-numeric PI# If FI is 
numeric, the third parameter is read and examined; a zero here 
sends control to TEXTl while a non-zero stores P3 as the input 
file name for searching# Next, PI is set negative indicating 
to REC that this record is to be skipped on file P3 or on the 
current file. At TEXTl the looping to PINUM until Pl-1 records 
are skipped begins and when the correct number of records have been 
skipped PI is set to zero indicating to REC that this record is 
to be written on the output file. PINUM jtimps to REC to read a 
record, then to EOF for an end of file check. If an end of file 
is encountered and the file name is not INPUT, the next record 
is checked for a double end-of-file# In this case the message 
GF15 is issued; in the case of INPUT, the error message GFIO is 
issued. A non end-o£-file or double end-of-file goes to PlNUMl 
which loops to TEXTl if more records are to be skipped or to 
PIFOUND if BUFFERB is to be written on the output file. PIFOUND 
calls WRITE to actually transmit the record. 
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8. PIFOUND - ALPHA2 

Upon return from WRITE^ a check is made on P2 being zero- If so, 
control goes to PROCl for the next card- If not, if P2 is a letter, 
control goes to P2AL.PHA; while a special character or /) 

sends control to SPECIAL, If P2 begins numeric, CONVERT is called 
to convert the number to binary, and SPEC is cleared- At P1NIM2, 

REG is called to read the next record. Then EOF checks for an end- 
of-file before WRITE writes the record. If an EOF does not occur, 
control goes to PINUM3 which decrements P2 and either loops to 
PINUM2 or PROCl (when P2 equals zero)- If an EOF occurred, SPEC 
is read. A zero here sends control to PINIIM4. PINIIM4 decrements 
P2; then PINIM5 reads the next record, checks for an EOF; and if 
not, writes the record before going to PINUM3. If SPEC is not 
zero, a one sends control to PR0C2, a two sends control to PINUM5- 
If the EOF check at P1NUM5 indicates an EOF, control goes to 
PINUM6- Here a non-write to double end-o£-file gives a jump 
to PINUM7 for an error message* The write to double end-of-file 
rewinds the file with a jump to CONTROL. At P2ALPHA, REG is 
called to read the next record, then EOF checks for an end-of- 
file and WRI12 writes the record. If an EOF did not occur, control 
goes to ALPHA2- If an EOF occurred, EEC and EOF determine if a 
double EOF was encountered. If so, control goes to PINUM7 for 
an error message. If not, ALPHA2 calls COMPARE to check the ID 
and a non find goes to P2ALPHA to repeat the loop. When the record 
is found, WRITE is called to write the record and control goes to 
PROCl. 

9- TESTP3 - TEXT2 

At TESTP3, If P3 is not zero, control goes to P30K. If P3 is 
zero control goes to FR2 which calls REC to read the next record. 

If an EOF was read, REC is called again to read the next record 
to check for a second EOF. If two EOF^s were read, control goes 
to FR7- If not, control always goes to FR6. 

At FR6, if the record read is PI, control goes to PIFOUND; if not, 
the record identification is saved in flag before going to FR2, 

At FR7, a rewind request is issued and if a non-EOF record has 
already been read, control is sent to FR3- If not, a check for 
a null file (2 EOF^s only) is made. If this is the case, the pro¬ 
cessing of this file is terminated by a jump to P3LIM1T* Other¬ 
wise, control returns to FR6. 

At FR3, REC is called to read a record. If an EOF did occur, the 
next record is read and if it is a second EOF, a jump to P2L1MIT 
terminates the search on the current file. If no EOF did occur, 
the record identification is compared with PI and with FLAG, If 
it matches, control goes respectively to PIFOUND or HiSPACE. If 
not, the search is pursued at FR3. 
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At BKSPACE, a request for a backspace of a logical record is 
issued via CONl and control goes to P3LIMIT to search the next 
file# 

If all the files have not been searched, the next file in the 
list is read# If this file is INPUT on the current file, con¬ 
trol goes to P3INC which increments the file searched register 
then goes to P3LIMIT. If neither of these files are found, 

P3SET sets the next file search and control goes to FR2# At 
TEXT2 an error message is set and control goes to PROCESS# At 
P30K, P3 is set to the file name and the all files searched flag 
is set before going to FR2. 

SPECIAL 

This area is entered when P2 is a special character or /- SPECIAL 

reads the first ENDS entry and checks for a finding one sets SPEC to 
one at SPECl. If a single was not found a ^ is checked and finding 
one sets SPEC to a two# SPEC16 returns control to P1NIIK2# If neither 
of these are found, SPEC2 checks for a /• If a / is found control 
goes to SPEC4, If not, an error flag is indicated and control goes 
to PROCESl. At SPEC4, REC is called to read a record* A zero length 
record sends control to SPECS to write the record before returning 
to PROCl. A non zero length record is written at SPECS and control 
loops to SPEC4* Finding an EOF issues a WEOF to CONI then reads the 
next record- If a double end-of-file is found, the error message 
is set up and control goes to PROCESS 1# 


CONI 


The function of this routine is to process the REWIND, WEOF, SKIFF, 
and SKIPR requests- The actual request is already in the REQUEST 
buffer area# CONl saves the REQUEST in the STORE cell in case the 
request has to be restored as in the case of multi record or file 
skipping. CON2 decrements the number of requests then sets up the 
CIO call* C0N3 delays until cell one is free, and C0N4 delays until 
the request is complete. If the number of requests have been de¬ 
cremented to zero, a return is made* If not, REQUEST is restored 
and control goes to C0N2, For each CIO call, the CIO call word is 
picked up from C0N5* If this was a SKIPF or SKIPB call, bit 18 will 
be set to 1 to indicate the skip count* When the required number of 
requests are completed, exit is made to CONO to clear bit IS, Exit 
is then made through CONl* 


BEKDWN 

This routine is entered via a return jump and is always exited via 
the entry. If an error occurs in this routine, the XO register is 
set to the error value. The Inputs are pointers to the current card 
image and the output is PI, P2, and F3. 
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At BSKDWNj the storage areas are initialized to zero and the A6 re¬ 
gister is set to store the first parametexp B6 is set to the number 
of characters in the text card image- BREAKI isolates the next byte 
and a zero terminates the card image- If this character is a separator 
control goes to BREAK4. If the character is not greater than 5IB, 
it Is stored at BREAK2, and the count is decremented by one- If this 
is the last character of this word, the next word is read before 
going back to BREAKl- If a zero byte was found, control was transferred 
to BREAK3 and a ^^Two Prameters Stored^' flag is set- At BREAK4 a check 
for a blank results In a transfer to BREAK2, while a dollar sign, con¬ 
sidered as a valid character, sends control to TAC- A valid separator 
such as comma, left or right parenthesis sends control to BREAK7, If 
none of these, control goes to BREAK9 for an error indication- At 
BREAK?, a count of the number of characters in the word is made- If 
this exceeds seven, control goes to BREAK6 for an error indication. 

If not, the parameter is left justified and stored. BREAK checks 
to see if three parameters have been stored and either goes to BRK8 
or BREAK2* At BKCS the error flag is cleared. Then control goes to 
BREAKS. Here the remainder is skipped as comment- When a zero byte 
is found, control goes to BEKDl to exit to BRKDWN. 


CONVERT 

The function of this routine is to convert the display code decimal 
numbers to binary. It is entered via a return jump and is returned 
either through the entry or to TESTP3, P2ALPHA or PROCESl. The converted 
number is In the XO register. 

CONVERT initializes the registers; then CNVERTl isolates the character. 
Finding a zero sends control out the entry- Finding a separator sends 
control to CNVRT2 which error exits to PROCESl. Finding an alphabetic 
character sends control to CNVERT3 which left justifies the alpha¬ 
numeric field then checks to see if the entry was made checking FI or 
P2. PI sends control to TESTP3 while P2 sends control to P2ALPHA. 

If neither PI or P2 is found, the error message is generated at GNVERT2- 
All numbers are converted and added to the XO register, and the first 
zero terminates the number- 


ERR 

Entry to this routine is made via a return jump, and the exit is always 
through the entry. The error flag is set to non zero so that an ABT 
request will end the program. The message is sent to both the DAYFILE 
and OUTPUT. ERR sets up the error message address obtained by MSG+(B5). 
This message is sent to the DAYFILE before going to OUTPUT. The CARDS 
buffer area is initialized and the message is transferred to BUFFERC 
at ERRl. The CIO macro is called to transfer this message to OUTPUT 
using DUM7 as the dummy variable. Then, the error flag is set and the 
routine Is exited through ERR. 
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EOF 


The EOF routine is entered via a return jump, and is always exited 
through the entry. Its function is to check the status of the input 
file. If an end-of-file was read B3 is set to one; if not, B3 is 
left unchanged. Entry at P3E0F reads the FILEIN buffer area status 
response. If bits 3-5 equal 3, and end-of-file was read and B3 is set 
before the return through EOF. 


COMPARE 


The COMPARE routine is entered via a return jump and is always exited 
through the entry. Its function is to compare either PI or P2 to the 
current record ID. The B4 register is set to indicate the results of 
the compare. B4 is one if a 2.0 or later record was found. B4 is 
a minus one if a 1.1 record was found and B4 is zero on no match. 
Entry at COMPARE masks off the first character of the buffer. If 
this character is not a 77, the SCOPE 1.1 format is assumed and con¬ 
trol goes to RGCOMP. Otherwise, the SCOPE 2,0 format is assumed and 
the second word of the buffer is read. Then, at RCCOMP, the record 
identification is saved in RCN^E and compared with PI or P2. If no 
match is found, return is made via COMPARE. If a match is found, B4 
is set to -1 or +1 before return. 


REC 


The function of this routine is to read one record. If this record 
is being skipped, the entire record is read. If this record is to be 
written, the routine is exited with the first read results in the 
BUFFERS ubffer. In any case, a call to COMPARE is made after the 
first read in order to save in RCNAME the identification of the record 
and compare it with PI or P2. 

Entry at REC merely sets the entry register. At RECl, the file name 
is inserted in FILEIN and the remaining words of this buffer are ini¬ 
tialized. Then a call is made to the CIO macro using DUM3 as the duirany 
variable. The status of the request is checked, and if an EOF or 
end of record is found the routine is exited. If not, a check is made 
on the skip record register. A zero here sends control back to RECl. 

If PI is negative, indicating that this record is to be written, the 
return Is taken. If not, a check is made on register B4, which has 
been set by the COMPARE routine. The result of this jump goes either 
to RECl (not the record) or REC. 


WRITE 


The WRITE routine is entered via a ‘return jump and is always exited 
through the entry. The function of this routine is to write the in¬ 
formation in BUFFERS on the binary output file. WRITE will transfer 
one record and will change the information only if the strip record 
flag is set. At WRITE, the X7 register is set to the strip flag (Bl), 
and an entry register flag is cleared. 
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WR1TE3 begins the end-of-record check- Finding an end-of-record, 
it sends control to WRITEl- If no end of record is found, the entry 
register flag is set- At WRITEl, the end-of-record flag is set- 
If the strip flag is not set, control goes to WRITE2- If it is set, 
a check for the 2-0 format is made- If the format of this record is 
2.0, the out pointer is incremented by the number of words in the ID 
table- If not, control goes to WRITER- WRITE4 clears the X7 register 
so that all other information in this record is copied unchanged- 
iNuxt, WRITE2 calls CIO to output BUFFERB, A check is made to see if 
the entire record has been written- If so, the return through WRITE 
is taken- If not, a jump to WRITE3 continues the looping until one 
record is written. 


ENDBUF - ENDBUF8 


This section checks the status of the text card buffer- If there 
was an end-of-record response, control goes to ENDBUF9- If there 
is no end-of-record response, an error message GF12, is sent to both 
the dayfile and OUTPUT before going to ENDBUF9- At ENDBUF9 a check 
is made on the ERROR flag (see ERR) which causes a call to either 
END or ABT, At ENDBUF8 the call is st;nt to the monitor to end the 
COPYN run. 


ERROR MESSAGES 

GFl A parameter IS GREAl k THAN 7 CHARACTERS 

The first separator ur parameter tt^rminator appears beyond 
eight alphanumeric characters. This message appears for any 
of the three parameters- 

GF2 A NUMERIC EXTENDS BEYOND AN END OF FILE 

The P2 parameter causes a jump beyond a double end-of-file. 

That is, P2 copies more records than exist; here COPYN writes 
all the records, one end-of-file and then rewinds the file- 

GF3 AN ID(PI) IS REQUIRED ON ALL TEXT CARDS 

This message occurs when a comma or separator appears as the 
first character causing the first parameter to be a zero, 

GF4 TEXT CARD CONTAINS AN ILLEGAL SEPARATOR 

Only, blank 4 - / * are acceptable in addition to the alpha¬ 
numeric characters. 

GF5 CONTROL CARD REWIND (INPUT) IS ILLEGAL 

In this case COPYN could not reposition the input file correctly; 
therefore, the card is rejected, the message printed, and the 
INPUT file is left unchanged. 
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GF6 TOO MANY INPUT FILE NAMES ON COPYN 

The limit is ten files. COPYN will give an error message 
and attempt to use the first 10. 

GF7 NO OUTPUT FILE ON THE COPYN CONTROL CARD 

The second parameter on the COPYN control card was zero, 

COPYN will set a disk file, TEMP, as the output file and 
continue to process the control card. 

GF8 FIELD IS NON NUMERIC ILLEGAL TEXT CARD 

The SKIPR and SKIPF requests use CONVERT to interpret their 
i field; this error message is given when i is not entirely 
numeric. 

GF9 NO INPUT FILE ON THE COPYN CONTROL CARD 

Parameters three through ten on the COPYN card are zero. A 
disk file TEMP, is set as the only file searched when P3 is 
zero (exception; an existing P3 will be searched first). 

GFIO BINARY RECORD MISSING FROM INPUT 

P3 is the INPUT file yet the next record on INPUT is not the 
expected binary record. 

GFll ID NAME NOT IN INPUT FILES SEARCHED 

The PI parameter was not found in either P3 or any of the 
input files listed on the COPYN control card. 

GFI2 TOO many TEXT CARDS IN THE INPUT RECORD 

BUFF is the size of the input buffer. If there are more TEXT 
cards than area allocated by BUFF, and all the cards in the 
buffer are processed then the error message is printed. 

GF13 P2 IS NOT IN THE FILE OR IS UNDEFINED 

P2 was not found in the file or began * or / (like a special 
character) however was not *, ** or /. 

GF14 A DOUBLE EOF WAS FOUND BEFORE A / 

WHEN P2 is a /, if the end-of-file is encountered before a 
zero length record, this message is printed and all records 
to the EOF were written on the output file. 

GF15 A PARAMETER BEGINS BEYOND AN EOF-EOF 

PI is numeric and causes a skipping to the double end-of-file 
before PI is zero. The tape is positioned at the double end- 
of- file. 
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TABLES - BUFFER AKEAS 


NAME 

LENGTH 

USE 


OUTPUT 

5 words 

Binary output file buffer area 

ENDS 

3 words 

P2 special characters * 

** / 

REQUEST 

13 words 

Buffer area for REWIND, 
and WEOF 

SKIPR, SKIFF 

CODE 

5 words 

CIO codes for BACKSPACE 



Backspace file 
Skip record forward 
Skip file forward 
WEOF 
REWIND 


BUFFERB 

BUFF 

Binary records 


BUFFERA 

BUFF 

Text cards 


FILEIN 

5 words 

Binary input file 


INPUT 

5 words 

TEXT CARD FILE 


BUFFERC 

64 words 

Text card buffer to 

OUTPUT 

CARDS 

5 words 

CIO buffer for text 

cards to OUTPUT 
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14.9 COPYSBF 


This routine copies one file in binary mode. As the beginning of each 

coded record is encountered, a printer control character is inserted. 

(Its one subroutine is used to call CIO.) The procedure is as followsi 

1. The input file is opened with an open alter request (OPE function code 

-- 120B) 

2* The output file is opened with an open write request (OPE function 
code " 104B) 

3. The input file is read. 

4. The data in the input buffer is moved to the output buffer as each 
word is shifted right one character and the leading character inserted. 
The leading character for the first coded record is a one (page eject), 
and the leading character for the remaining coded records is a blank. 

5. The output file is written. Steps 3-5 are repeated until end-file 
status occurs. Due to the insertion of leading characters and of 
full zero words when necessary, the output file will be larger than 
the input file. As a result of this, the output buffer will be com¬ 
pletely drained only during end-record writes. 

6. The central processor is dropped by an END request. 
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14*10 CPC 


General 

CPC is a CP program, about 240B words long* It is loaded only when another 
program uses, as an external, one of its entry points - usually the one 
called CPC* 


Function 


CPC transmits requests for PP action from CP programs to monitor, and 
in some cases returns information in XI, after completion by the PP 
program. 


Entry Information 

The word after the PJ CPC contains the request, and CPC will return control 
to the word immediately after the request word. 

If bit 41 of the request word is 0, the call is for some kind of file 
action. Then Al, on entry to CPC, must contain the address of the first 
word of the FET* Bits 42-59 of the request word must contain either the 
name of the wanted PP program, or one of the following: 

00000IB if only a recall on the file is wanted 
000007B for close or evict 

000004B for open 

000002b for read or write (without e-o.r.) 

000003B for other functions 


Bit 40 of the request word is 1 if the CP is to go into recall until bit 
0 of the first word of the FET is changed to 1, and 0 otherwise- 

Bits 0-17 of the request word contain the function code for the file 
action, or 777777B for a file recall (i.e. the CP is to go into recall 
until the addressed FET shows the file is not busy). The remainder of 
the request word is normally zero, except that it may contain a record 
count in bits 18-35 for certain skip functions- 

If bit 41 of the request word is 1, the requested action does not concern 
the file. 

The contents of Al are ignored* 

Bits 42-59 of the request word must contain the name of the wanted PP 
program* 
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Bits 0^17 contain the address in CM at which the PP program is to start 
finding information and/or placing its response- 

In every PP program callable by CPC> except MSG^ things are arranged so 
that bit 0 of the word this address points to is initially 0, and becomes 
1 on completion- See the CPC assembly listing, beginning at “'MSG", for 
how MSG is taken care of- Bit 40 is 1 if the CP is to go into recall 
until bit 0 of the word bits 0*17 point to becomes 1; otherwise bit 40 
is 0. 


Exit Information 


CPC furnishes exit information only after a request for file action- 
Then, on the return from CPC, XI contains 0 unless the first word of the 
FET was left by a PP program with non-zero in bits 9*13- In that case, 
XI will contain that word as the PP program left it* The first word 
of the FET is left unchanged by CPC except in the case of a branch to 
>^OWNCODE'^ 


Other Programs Called 

Apart from calling PP programs, which is the whole purpose of CPC, the 
only programs outside itself that it may call are those provided by the 
program that calls CPC, as "OWNCODE^' subroutines. 

Bits 9-13 of the first word of an FET are a 5-bit number that could range 
from 0-37B* The nonnal value is 0- When CPC finds that the value is not 
zero, it may branch to an ’’OWCODE^^ subroutine as follows J 

a. if the value is 20B or more, indicating a system difficulty (such 

as no room for a new FNT entry), and there is an OWNCODE for ^^error^’ 
address in the FET, then CPC puts the first word of the FET in XI, 
zeros bits 9-13 of the first word of the FET, and branches to the 
OWNCODE, 

b. if the value is lOB or 04B, indicating a hardware difficulty, CPC 
proceeds as for a- 

c. if the value Is OIB or 02B, indicating end of information or end of 
reel, and there is an OWNCODE for ^^eoi^^ address in the FET, then CPC 
puts the first word of the FET in XI, zeros bits 9-13 of the first 
word of the FET, and branches to the OWNCODE, 

d. if the value is 05B, 06B, IIB, 12B, 15B, or 16B, indicating a com¬ 
bination of b, and c. then; 

1, If there is an OWNCODE for ”error" address in the FET, CPC puts 
the first word of the FET in XI, zeros bits 11-13 of the first 
word of the FET, and branches to that OWNCODE. 

2. If there is no OWNCODE for error" address in the FET, but there 

is an OWNCODE for address in the FET, CPC puts the first 

word of the FET in XI, zeros bits 9-10 of the first word of the 
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FET, and branches to that OWNCODE- In branching to an OWNCODE, 
CPC assomes that the address given in the FET is the first word 
of the routine, and branches to the second word of the routine. 
Before doing so, it stores the exit word from CPC itself in the 
first word of the owncode routine. Thus if the OWNCODE is ter¬ 
minated by a branch to its own first word, it will be as if the 
OWNCODE were called by CPC as a subroutine immediately after 
the condition was seen, and the exit back to CPC were followed 
by the exit from CPC. However, all the registers except Al, XI, 
A6, X6 are restored, and the first word of the FET as it was 
before clearing any flags is loaded into XI, before going to 
the OWNCODE instead of just before the final exit from CPC. 


Registers Destroyed 

Al, XI, A6, X6. A7 and X7 are never referenced. All others are saved 
and restored. 


Narrative 

CPC is entered as a subroutine at CPC. CPCA9, the response word, is 
zeroed. Then subroutine CPC03 is called to save all registers except 
Al, XI, A6, and X6 in cells CPC091 through CPC091+8. Then the exit address 
at CPC is increased by 1, and the address of the request word is put 
A2. If bit 41 of the request word is 0, we go to CPC3 for some sort Oi. 
file action. Otherwise, if bit 40 is 0, for no recall, go straight to 
CPC05, where we put the request word in X2, zero bit 41 and call subroutine 
CPCOl to pass it to monitor. Then we arrive at CPCO, where we call su 
routine CPC04 to restore the registers that were saved on entry to CPC. 

Then pick up the response word in Xl (it must still be zero) and exit 

from CPC. 

If bit 41 is 1 and bit 40 Is 1, we have a non-file action with recall. 

We check the PP program name in the request word; if it is not 'MSG , 

go ahead at CPC05 to set B2 to the address in the request word; it will 
be needed by subroutine CPC02 in handling the recall. Then put the request 
word, with bit 41 zeroed in X2, and call subroutine CPCOl to pass it to 
monitor. Then, having seen that the request is with recall, call sub¬ 
routine CPC02 to wait until completion. Then exit from CPC via CPCO. 

If we have a non-file action with recall, and the PP program name is 
"MSG", we branch to MSG before getting to CPC05. As the address m t e 
request word points to the beginning of the message, it cannot be used 

to determine completion. So we put the address of the message in^ its 

30-47 of cell MSGRESP, and alter the request we shall pass to monitor so 
that it points to cell MSGRESP. PP program MSG knows that if bit 40 
in the request word is 0 (no recall), the request word points to the message 
But if that bit is 1 (recall) the request word points to a word in C.M. 
(MSGRESP in fact) in which bits 30-47 point to the message, and bit 0 
must be set to 1 when the message has been picked up. 
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We come to CPC3 for a file action request- B2 contains the address that 
was in A1 on entry to CPC; this must be the address of the first word of 
the FET for the file- A2 contains the address of the request word. If 
bits 54-59 of the request word are non-zero, we go to CPCBIZ, assume that 
bits 42-59 are the PP program name. Then call subroutine CPC4 to wait 
until the FET status is not busy, and process any previous response- 
Then go to CPC3107 to issue the request. 

If bits 54-59 of the request word are zero, we regard bits 42-59 as 
2X+Y, where Y is a bit which, if 1, calls for waiting for a non-busy 
FET before proceeding further. In that case, we call subroutine CPC4 
to wait, and to handle any previous error or e-o.i- response- X must 
be a number between 0 and 3- If 0, this request was merely for a recall 
on the file, and we now exit from CPC via CPCO- Otherwise, X selects 
one of the PP program names (CIO, OPE, and CLO) in table CPC319- 

Now we check the function code in the request word. If it is a simple 
read or write, and the FET shows that the file is already busy with the 
same action, there is no need to Issue a new request merely to continue 
it, so we go straight to CPC3102. Otherwise, we construct in X2 a request 
to be passed to the monitor, and, at CPC3107, call subroutine CPC5 to 
issue it. Then arrive at CPC3102- Here, if bit 40 of the request word 
is 1, we call subroutine copy to wait until the FET shows completion of 
the new request, and to process any response from it. Then exit from 
CPC via CPCO. 

If the request is for a simple read or write, and the file is not now 
busy with the same action, we go to CPC325. There we check against two 
possibilities. 

a. that there is not enough space/information in the buffer to allow 

one PRU to be read/written* (If the FET contains minimal information, 
it appears to give a PRU length of 0. Then this test never prevents 
a call on CIO. Time may be wasted, but CIO will get the same test 
made more thoroughly.) 

b. that the request is for reading and the FET status is e.o.r. or 
e-o-f. CPC will ignore a read request if the file status is e.o.r. 
or e.o.f. This is because if a user program is reading without re¬ 
call, it surely wants reading to stop on an end of record. But unless 
the user is forced to clear the e.o.r. bit before continuing, CPC 
cannot be sure the user has noticed the end of record. 

If either of these conditions holds, we exit from CPC via CPCO. Otherwise, 
go to CPC3107 to issue the new request. 


Subroutines 

CPC03 

This is called on entry to CFG to save all registers except Al, X4, A6, 
X6, A7, X7, and to set Bi=l. It can also be called for the same propose 
by any CP program, and 10 and lORANDM do so. 
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Entry Information 

The calling sequence is: 

RJ GPC03 
VFD 60/a 

The registers will be saved in cells a through a+8* 


Exit Information 

B1 = 1. 


Subroutines Called 
CPC002. 


Registers Destroyed 
Al, XI, A6, X6. 

CPC04 

This is called just before exiting from CPC to reload all registers except 
Al, A6, A7, XI, X6, X7, It can also be called for the same purpose by 
any CP program, and 10 and lORANDM do so. 

Entry Information 

B1 must contain 1, The calling sequence is: 

RJ CPC04 
VFD 60/a 

Exit Information 

All registers except Al, A6, A7, XI, X6, X7 have been loaded from cells 
a through a+8, on the assumption that they have previously been saved 
there by subroutine CPC03, 

Subroutines Called 
None* 

Registers Destroyed 
Al, XI, A6, X6. 

CPC002 


This subroutine is called only by subroutine CPC03, to format three short- 
register contents into one word and store it at the next available position 
in the storage space. 
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CPCOl 


This subroutine is entered with a CP request for monitor in X2t It waits 
until RA'+’l contains zero then puts the request there> and then waits until 
RA+1 contains zero again. 

Entry Information 

The request in X2, 1 in Bl. 

Exit Information 
None- 

Subroutines Called 
None« 

Registers Destroyed 
Al, XI, A6, X6. 

CPC02 


This waits until an FET shows non-busy status, or until a FP program has 
signalled completion. The signal is that bit 0 of the first word of the 
FET 5 or of the word to which the non-fxle-action request pointed, becomes L. 

Entry Information 

B2 contains the address from bits 0-17 if a non-file-action request, or 
the address that was in A1 on entry to CPC, if a file-action request. 

Exit Information 
None. 

Subroutines Called 

CPCOl, to send”RCL" requests to monitor- 

Registers Destroyed 
Al, XI, X2- 

CPC5 


This formats and issues (through subroutine CPCOl) a request for file 
action. 

Entry Information 

B7 points to a word in which bits 42-59 are the name of the wanted PP 
program - either the request word in the calling program, or a word in 
table CPC3I9. 
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A2 points to the request word^ and B2 to the first word of the FET. 

Bits 0-17 of the request word contain the code for the wanted function, 
with perhaps a level number* These are moved to the first word of the 
FET, but leaving its mode bit (bit 1) unchanged- Bits 18-35 of the re¬ 
quest word contain zero or a record count; these become bits 18-35 of 
the word that subroutine CPCOl will put into RA+1. Bit 40 of the request 
word, the recall bit, is moved into the same position of the word for 
RA+1. B1 - 1. 

Exit Information 
Mone. 

Subroutine Called 
CPCOl- 

Registers Destroyed 

Al, A4, A6, XO, X2, X3, X4, X6. 

CPG4 

This waits until bit 0 of the word B2 points to (the first word of an 
FET) is 1. Then it examines bits 9-13 of that word (error and e.o.i. 
flags)- If all are zero, CPC4 exits* Otherwise, it copies the word into 
CPC49, the word, that was zeroed when CPC was entered, and whose contents 
will be in XI when CPC is exited. Then CPC4 exits unless one of two con¬ 
ditions is true: 

1* Bits 9-13 contain an error flag, and the FET shows an OWNCODE error 
routine is provided- 

2- Condition 1 is not satisfied, but bits 9-13 contain an e.o.i flag, 
and the FET shows an OWNCODE eoi routine is provided* 

In either case, the relevant flag bits are cleared in the FET word, 
though they remain in CPC49, for the calling program to find them in XI 
later, and the OWNGODE routine is entered. Note that both error and 
eoi flag bits might be present, but the above two rules, taken in order, 
describe what Is done* 

To enter an OWNCODE routine, we put the exit address in CPC in the first 
word of the OWNCODE. Then we put a branch to the second word of the 
OWNCODE In cell CPC- Then branch to CPCO. This means that If the OWNCODE 
is coded like a subroutine, and terminates by a jump to its own first word, 
we now restore all registers except Al, XI, A6, X6, put CPC49 (the first 
word of the FET as it was before we zeroed the relevant flag bits) in 
XI, and jump to the OWNCODE second word- When the OWNCODE terminates 
by jumping to its first word, we immediately, without any further re¬ 
storing of registers, exit from CPC; i-e* jump to the second word after 
the RJ CPC that sent us Into CPC on this occasion- 
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Entry Information 

Bl = 1| B2 points to the first word of the FET* 

Exit Information 

1- If we do jump to an OWNCODE, but bit 9-13 of the first word of the 
FET were not found zero, that word has been saved in CPG49. 

2* If we do jump to an OWNGODE, the first word of the FET has been moved 
to CPC49 and is in XI; all registers except Al, Xl, A6, X6 have been 
restored, so that they contained when CFG was entered, and the exit 
word at CPC has been copied to the first word of the OWNGODE, 

Subroutine Called 

CPC02* 

Registers Destroyed 

Al, A6, XIj X2, X6, if no branch to OWNGODE, If there is a branch to 

OWNGODE, see above under ”Exit Information^^, 

CPC999 


This sends a message to the dayfile and aborts the job. It can be called 
by any GP program that names CPC999 as an external, and 10, lORANDM, 
COMPARE, COPYBCD, and EDITLIB do so. 

The calling sequence is: 

+ RJ GPC999 
JP a 

with the message beginning in the next word and ending with the word at 
a-1. The word at a will be zeroed to provide a terminator. 
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14-11 DMPECS 


DMPECS will read ECS and format it into one of several formats for printing. 
Identical values on an entire line are suppressed. In the event of a 
calling sequence error, a message is printed and the program stops. 

Calling sequence: Control card containing DMPECSCX,Y,F>LFN) 

Program will dump ECS from location to where is the closest 
multiple of lOB smaller than X and is the (closest multiple of lOB 
greater than Y)-l. F selects which print format will be used. 


F ^ 2 
F = 3 
F = 4 


4 words in octal and in display code per line. 

2 words in octal parcels and in display code per line. 
2 words in octal bytes and in display code per line. 

2 words in octal and in display code per line. 


LFH specifies the dump file; if absent or zero, file OUTPUT is assumed. 


The main program is written in CQMPASSS with subroutines in COMPASS and 
FORTRAN. 


Narrative 


The contents of locations 2, 3, and 4 are converted from display code 
to octal and stored in the blank common array in locations FWA, LWA, 
and TYPE respectively. CM and ECS field lengths are also preserved in 
locations CMFL and ECFL, Location 5 is checked and if zero, file OUTPUT 
is used for the dtimp file- If non-zero, the contents of this word are 
used for the dump file name- Location 2 is then set to the dump file 
name which is later used by other subroutines- Location 64B is set to 
I which indicates to Q8NTRY the number of arguments passed on the program 
call card. Since this is du m mied in, it is obviously a subterfuge to 
cut Q8NTRY out of the processing of the original arguments and ask it 
to do the substituted one. A RJ to Q8NTRY is made with B1 set to the 
FWA of the program and B2 set to the address of a list. Q8NTRY will set 
up an FET and initialize it properly and also take into consideration 
the ASA switch and line count which have been preset in the list specified 
in B2. A RJ to DMPE is then executed and control does not return to this 
code again. 


Entry Information 

Arguments on the program call card are stored in consecutive locations 
starting at 2. CM field length is in AO and ECS field length is in XO. 


March 1969 


14-43 



SCOPE 


Exit Information 


As in the discussion above- 


Subroutines Galled 
Q8NTRY and DMPE 


Subroutines 


DMPE 

DMPE first checks the CM field length and if less than lOOOB, prints a 
diagnostic and stops at STOP75, Otherwise it sets LI and L2 to values 
which are greater than 30 bits in length, LINES is set to 100 and PAGE 
is set to O.FWA and LWA are saved in locations FWAS and LWAS- Next, 

FWA is rounded down to the nearest multiple of lOB and LWA is rounded 
down to the nearest multiple of lOB and 7 is added to It- The adjusted 
LWA is truncated to ECFL-1 in the event that it is larger than the ECS 
field length- If FWA is greater than LWA, a diagnostic Is printed and 
the program terminates at STOP76* If not, TYPE is checked to see if 
it has a value of 0,1,2,3, or 4. If not, a diagnostic is printed and 
the program terminates at ST0P76. If TYPE is ok, then NDX is set to in^ 
dicate the number of words on a line and IFRM is set equal to TYPE, or 
in the case where TYPE is 0, IFRM is set to 1- DMPE then commences calling 
READECS to read ECS and calling PRNTl to print what has been read. This 
is done for each 512 words of ECS which is to be printed until all the 
ECS has been read and printed- The program then terminates at STOPOl- 


Entry Information 

Blank common variables FWA, LWA, TYPE, ECFL, and CMFL are set to their 
appropriate values as determined by DMPECS- 

Exit Information 
None. 


Subroutines Called 


READECS and PRNTl 

PRNTl 


PRNTl sets up a DO loop to print N words in the array IBUF where N has been 
set by the calling routine DMPE* First, the variables on a print line 
are checked to see if they are equal to the last word on the previous 
line. If so, an informative line is printed and phese values are then skipped. 
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If not, one of the print formats is selected and the printing is done. 
Additional identical lines do not cause re*printing of the informative 
line. This continues until all N words in the array IBUF are either 
skipped or printed. 

The technique for skipping print lines is to check all values on the 
current line against the last word on the previous line, one-haIf word 
at a time. Only one-half is checked at a time to correctly handle minus 
zero and other oddballs. LI and L2, which contain the left and right 
halves respectively, are initially set to values which are greater than 
30 bits in length so that the first comparison will always be unequal, 
thus always printing the first line. Page overflow and header information 
printing is taken care of by counting the number of lines and when 55 
lines have been printed, overflow is Initiated- This is done in 2 places, 
in suppression and normal printing. The initial value of LINES is 100 
which causes the first print line to initiate overflow. Page numbering 
Is also taken care of automatically. 

Entry Information 

The address of the first location to be printed and the number of words 
in the array IBUF are passed as arguments to this subroutine by DMPE. 

Exit Information 


None. 

Siibroutines Called 


SHIFT, 

SHIFT 


Utility subroutine used to shift a word and called by PKNTl. 
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14,12 EDITLIB 


General 

EDITLIB Is a CP program, requiring a field length of 50000B words# This 
provides enough space for a directory model, including bodies of CM- 
resident programs, 30000B words long. Its field length can be altered 
upwards, but not downwards, automatically by letting the first function 
card read by EDITLIB be 

LENGTH(n) 

where n is a digit between 4 and 9, requesting enough field length to 
accomodate a directory model of n times lOOOOE words. 

EDITLIB Is not a subroutine, and is only to be called by control card, 
which must be 

EDITLIB# 

or 

EDITLIB(RESTORE) 

The first form causes, before anything else is done, the current CMR 
directory to be written out at the beginning of a common file called 
SSSSSST# The second form causes, before anything else is done, the current 
CMR directory to be replaced by what is at the beginning of common file 
SSSSSST. Thus EDITLIB(RESTORE) restores the running system to what it 
was before the last preceding '‘EDITLIB” control card was obeyed* But 
if no “EDITLIB” has been done since dead start, it will abort the job. 

Of course the restore cannot take place if an EDITLIB has spoiled an 
essential program in the system# And a restore cannot back up more than 
one stage; so in general it does not restore the system as it was after 
dead start. Note also that two EDITLIB^s can go on together, if they 
concern only separate groups of programs (one could patch in some new 
tape-labelling routines while the other patches in a new FORTRAN), But 
aftejTwards, no restore can get back to the situation as it was before 
the two EDITLIBstarted work# 

EDITLIB ends with an ENDRUK if it ran without error, or with only minor 
errors; otherwise with an ABORT- 

For a complete description of the structure of a directory, see the long 
couffnent in the EDITLIB assembly listing that precedes subroutine GETD. 

Modifications 

EDITLIB has been modified to generate an external reference table (ERT) 
to be used by the CP loader- The ERT is a library record with D.* as 
its name; it is mass storage resident. It is generated automatically 
by EDITLIB and cannot be referenced through control cards. The CP 
loader uses the ERT to locate entry points for unsatisfied externals 
without actually loading programs from the library# The CP loader 
can operate whether or not the ERT is present. More efficient operation 
results when the ERT is present. 
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CAUTION: Once the ERT has been established, it must be perpetuated by 

use of a 3.1.5 Cor later) version of EDITLIB. Any attempt 
to use an earlier version will break the relationship between 
the program name table and the external reference table. Re¬ 
sults of this action are indeterminate in nature but may mani¬ 
fest themselves as unsatisfied externals at load time or im¬ 
proper loading. Therefore* care must be exercised to pre¬ 
serve the continuity of the ERT. 

Function 

EDITLIB begins by writing the present QIR directory at the beginning 
of common file SSSSSST, if the control card is "EDITLIB.", or by re¬ 
placing it with what is already on common file SSSSSST if the control 
card is "EDITLIB(RESTORE)". Then it reads the next record on file INPUT, 
and copies it to a local file called SSSSSSV. This record must contain 
all and only the function cards to control the EDITLIB run. 

Beginning at location START, the main cycle of EDITLIB reads a function 
card from file SSSSSSV, obeys it, and returns to START. When the end- 
of-record is read on SSSSSSV, EDITLIB terminates with an ENDRUN. Any 
earlier termination because of error will be with an ABORT. 

Basically, EDITLIB has two alternative jobs: to construct and write out 
a new system file on disk or tape, without altering the running system, 
and to modify the running system Itself. In the latter case, the common 
file SYSTEM, which is a copy of the system file on tape that was last 
dead-started, is not altered. The CMR directory is altered, and any 
new programs, or new versions of existing programs, are written on a 
common file called SSSSSSU, to which as well as to SYSTEM, directory 
entries can point. (There are also local files created by EDITLIB 
called SSSSSSS, SSSSSSV, SSSSSSW, and SSSSSSX, so these names should 
also be avoided by a job that includes EDITLIB. 

To begin making a new system file, one gives the function card 
READY(f) 

where f is the name of the file, and is not SYSTEM. To begin modifying 
the running system, one gives the function card 

READY(SYSTEM). 

To con^)lete either process, one gives the function card 
COMPLETE. 

If the running system is being modified, it is not affected until the 
"COMPLETE" card has been obeyed, 

Library revision functions are as follows: 

TRANSFER, a function that can be issued to move one or more of 
the first fifteen records (those through DSD, which are not really 
part of the library) onto a new system file. 
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ADD, which adds a PP program, CP program, or already-formatted 
overlay- 

ADDCOS, which adds a "STITCH” program (a 1.1 CP program In 
assembly binary form). 

ADDBCD, which adds a record of BCD cards and turns them into 
an overlay. 

ADDTEXT, which is like ADDBCD except that the input, probably 
an output from program EDITSYM, is a binary record in form* 

There are two function codes that cannot-be given between READY and 
COMPLETE; MOVE, which alters the residence of a program in the running 
system library; LIST, whioh lists the program in the running system library 
or in another system file. 

There are four functions that can be used indifferently: 

REWIND, which rewinds a file* 

SKIFF, which skips forward on a file- 
SKIPB, which skips backwards on a file* 

LENGTH, which asks for a greater field length. 

The function DELETE has two slightly different meanings, depending on 
how it is used* If between READY and COMPLETE, it deletes a program 
from the system file other than the running system directory that will 
become the running CMR directory when the next COMPLETE is done. Other¬ 
wise, it deletes a program immediately from the running system directory 
in CMR. 

Entry Information 

Only the control card "EDITLIB*” or ”EDITLIB(REST0RE)”- If the latter, 
there must be a common file SSSSSST containing a copy of the CMR direc¬ 
tory as it stood at some time. 

Exit Information 

A common file SSSSSST, containing a copy of the CMR directory as it 
stood when the last "EDITLIB*” control card began to be executed. 

Other Programs Called 

CPC, 10, MDI, GTS, SRB, MSG, MEM, CIO. Note that MDI is a PP program 
used only by EDITLIB* If one deletes it from the system (by an EDITLIB 
run) after dead start, the system is protected from future EDITLIB 
efforts- It is still possible to make up new system files, though not 
to use the running system as a source of programs except by using the 
system tape that was dead-started as an equivalent source; but it is 
no longer possible to alter the running system* 

Messages 

Each function card, after being read from file SSSSSSV and just before 
being obeyed, is copied to the console display, system dayfile, and 
job dayfile. It is prefixed with 10 blanks to indent it and distinguish 
it from a system control card- 
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Error messages go not to the dayfile but merely to the OUTPUT file- 
One error message that does not cause an ABORT, but merely skips the 
faulty function card that caused it: 

ABOVE IS ILL-FORMED AND IGNORED. 

This is preceded by a reproduction of the offending card* The possible 
faults are: 

A. It contains more than 30 elements (words and/or numbers). 

B. The first element is not one of the EDITLIB functions. 

C- Any other element is longer than 7 characters* 

D. An element begins with two or more digits, and contains a letter, 
(An element is allowed to begin with one digit and contain 
letters, because of program names like ^^2TS^*.) 

E- An element ought, for the sake of the function code, to be a 
name, but is in fact a niimber* 

F. An element that ought to be a residence code is not one of the 
allowable ones: currently ”GM” and ”DS”* 

G. On a SKIPB card, the file name is followed by something other 
than a number, or is not followed by anything. 

H* On a SKIFF card, the file name is followed by something other 
than a name or niimber, i*e. by an asterisk or dash. 

Other error messages cause an abort, unless marked with an asterisk below* 
They are: 

BINARY CARD READ AS FUNCTION CARD. 

The first record EDITLIB reads from the INPUT file must contain all 
and only the function cards- If a character that is not a letter, 
digit, blank, or +-*/()$ comma or period is read in this record, 
it Is assumed that a binary card has found its way into the deck 
at that point. 

CANT MOVE WHILE READY PENDING. 

* CANT LIST BETWEEN READY AND GOIPLETE. 

Functions MOVE and LIST are not allowed between READY and COMPLETE* 

CANT TRANSFER WITHOUT HEADING, 

CANT ADD WITHOUT READYING. 

Functions TRANSFER, ADD, ADDBCD, ADDCOS, and ADDTEXT are allowed 
only between READY and COMPLETE. 

READY TWICE WITHOUT COMPLETE. 

A ready has occurred, without a following COMPLETE, and now another 
READY has been read. 

NO READY. 

A complete function card has been read, but there has been no pre¬ 
ceding READY, or no READY since the last COMPLETE. 
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INPUT FILE ENDED BEFORE C(ADD)) CARD SATISFIED* 

EDITLIB is trying to ADD, ADDBCD, ADDCOS, or ADDTEXT one or more 
programs to a system file; the input file (not necessarily file 
INPUT itself) has ended before the program named in the function 
card as the last or only program to be added has been found. 

END OF FILE IMPROPERLY READ ON INPUT FILE 

A transfer function card calls for copying one or more records from 
an input file to a system file under construction. An end-of-file 
has been read on the input file before all these records have been 
found. 

SKIFF FUNCTION MET END OF FILE 

A SKIFF card has called for skipping forward one or more records on 
a certain file- Before this request could be satisfied, an end- 
of-file has been encountered. 

INPUT EEC- MISPREFIXED FOR ((TRANSFER)) 

A transfer function card calls for copying one or more records from 
an input file to a new system file. Either the function card specified 
a program name, and the input record had no prefix, or has a prefix 
containing a different name, or the control card did not specify 
a program name, and the input record did have a prefix. 

INPUT REG FOR ((ADDBCD)) HAS IMPROPER NAME CARD 

ADDBCD required that the input record begin with a Hollerith card 
containing the name of the record in cols. I f£. If the record does 
not begin with such a card, or if the name is unacceptable (it must 
be fewer than 8 characters, and contain a letter as its first charac¬ 
ter and letters or digits as the other characters) the above message 
is given- 

TRIED TO ADD PROGR. WITH ENTRY FT. WITH DUPL. NAME 

The program now being added to a system file contains an entry point 
with the same name as an entry point of some program already in the 
file. 

THIS REC. NAME ALREADY IN OUTPUT FILE * XXX 

XXX represents the name of a program we are now adding to the system 
file being constructed; a program with the same name is already in 
the file. Note that ADDCOS will never produce this message, as "STITCH^^ 
programs are not checked for duplication; nor will the existence of 
a STITCH” program already in the file cause the message- 

CANT FIND DIRECTORY RECORDS ON INPUT FILE 

A list function card has called for listing the programs in some 
system file C”LIST(SYSTEM)” cannot give this message.) EDITLIB reads 
the 2 records following DSD on the file, which should constitute 
its directory, but cannot find them. Presumably the file is not 
in fact a system file- 
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CANT C(ADDTEXT)) FROM SYSTEM 

ADDTEXT is rather a special function, which reads a record of things 
like macro definitions from a file which is pi-obably an EDITSYM 
output, and formats them into an overlay record for a system file. 
But If the input file specified on the ADDTEXT card is SYSTEM, 
this is impossible. Any such record can only appear there already 
formatted as an overlay, and is quite unsuitable as the source for 
ADDTEXT. A simple ADD could probably get the relevant record from 
the running system. 

* PROGRAM NOT IN SYSTEM 

A move or DELETE function card has named a program that is not in 
the system file EDITLIB is trying to modify. 

SOURCE AND DESTINATION BOTH SYSTEM 

The most recent READY function card was READY(SYSTEM). Now an ADD 
card is naming SYSTEM as the source of a program to be added to the 
current system, which is an absurdity. 

BAD NAME CHECK XXX 

XXX represents the name of a program just read from an input file; 
this is not the same as the first program name given on the ADD, 
ADDBCD, ADDCOS or ADDTEXT function card now being obeyed. If the 
source is the running system library, however, XXX will be the 
name of the program requested on the control card, which could not 
be found in the directory. 

DIRECTORY UNDER CONSTRUCTION GETS TOO BIG - TOO MUCH CM RESIDENCE 
EDITLIB is constructing a directory that will replace the SCOPE 
system directory in central memory. This has become too large for 
the control point field length. As this field length allows a 
directory at least 30000B words long, it must be because too many 
programs are being assigned to CM residence. In order to allow 
a larger directory, try EDITLIB again with " LENGTH(n) ” as its 
first function card, where n is a digit between 4 and 9, calling 
for a directory model space of n times lOOOOB words. 

EDITLIB PROGRAM FAULT IN SUBRT. SQB 

This means a branch to ERRA has taken place in subroutine SQB. 

See the assembly of that subroutine for the ways it could happen; 
but it should be impossible. 

MOVE ROUTINE FINDS CANT READ PROG IN SYSTEM FILE 

This is a branch to ERRB, which occurs at only one point. The least 
unlikely way for this to happen (it never has) would be for the 
directory to show too long a length for a program in file SYSTEM 
or SSSSSSU, which we are trying to read from disk into the directory 
in order to make it CM resident. 

EDITLIB PROGR. FAULT IN SUBRT. MAKE 

This indicates a branch to ERRF. An input record started off with 
the proper name, but was somehow badly misformed thereafter. The 
only way this has happened in practive is with exchanged or missing 
cards, after the first one, in a GP program binary deck. EDITLIB 
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has to follow the division of such a CP program record into ^'tables 
so as to extract entry point names from entry point tables; any 
distortion of the deck will probably cause it to end in the middle 
of a table, and will cause this message. 

((COMPLETE)) FINDS REG. MSG. IN FILE SSSSSSS 

While constructing a new system file, EDITLIB has obeyed an ADD 
card by writing a program record on local file SSSSSSS, and saving 
its disk address. Now it is trying to read it back, to copy it onto 
the system file itself, and the read was unsuccessful. This is a 
branch to ERIUj, which has never happened in prat ice. 

EDITLIB-GTS FAULT IN INITIALIZING COMMON FILES 
This is a branch to ERRP- 

a. the control card was EDITLIB(RESTORE), but there is no common 
file SSSSSST to get the old directory from, or the file begins 
with something that does not look right. 

b. a common file called SSSSSST was already at the control point 
when EDITLIB began. Note that a preceding EDITLIB run in the 
same job would have dropped SSSSSST from the control point before 
terminating, so some other program must have created it, and there 
is a conflict. 

c. before it obeys any function cards, EDITLIB brings to the control 
point, or creates if necessary, a common file called SSSSSSU 

to contain any programs that have to be written as addenda or 
corrigenda to file SYSTEM. But if EDITLIB finds that some other 
control point has a common file called SSSSSSU, there is a conflict 
and it aborts. If the other control point were doing EDITLIB, 
it would be all right for our EDITLIB to keep trying until that 
EDITLIB run was finished and released the SSSSSSU file. But this 
cannot be the case, because one EDITLIB job does not work as 
long as there is an EDITLIB running at another control point. 

File SSSSSST provides this interlock. The last thing EDITLIB 
does is release common file SSSSSST from its control point. 
Practically the first thing it does is inquire about SSSSSST, 
and if there is a common file SSSSSST at another control point, 
it simply waits until that control point has released it. 

Narrative 

EDITLIB begins by storing a cautious field length in cell BENDLIM, and 
setting a pointer to the beginning of the directory model area in DIRPTR. 
Then it calls subroutine MEM to make sure there is at least room for 
a directory model of 30000B words. (This is the standard value; it can 
be altered upwards by a LENGTH function card.) Then, if the first para¬ 
meter on the EDITLIB card was RESTORE, go to EDITE; otherwise to EDITA; 
the program from both these points will reunite at EDITM. 

At EDITE we ask for common file SSSSSST, then from it read an earlier 
directory into our directory model space, then call subroutine RTRN to 
replace the current system directory with what is in our directory model 


March 1969 


14-52 



SCOPE 


space* Then go to E49T4. If there is a common file SSSSSST at another 
control point, we keep asking for it until we get it* But if there is 
already a common or local file SSSSSST at our control point, or if there 
is no common file SSSSSST anywhere, we abort through ERkP* 

At EDITA we ask for common file SSSSSSX/and if it is at another control 
point, keep asking til we get it* If it is not at another control point, 
whether we got it or not, do not wait, but rewind it* Then we know we 
have just rewound an SSSSSST which was one of the followingi 

a- common; the proper EDITLIB SSSSSST, left over from a previous EDITLIB 
run. 

b. local, newly created for the rewind. This is good. 

c* local, left over from a previous non-EDITLIB run in the same job. 

This is all right unless the user thinks a run after EDITLIB is 
going to find that local file - EDITLIB is going to make it common 
and release it from the control point. 

d- common and already at this control point before EDITLIB began. It 
must be left over from a preceding run, not EDITLIB. There is no 
reason why we should not use it, there is trouble ahead if some pro¬ 
gram other than EDITLIB is using common files called SSSSSST. 

In cases a, c, or d, we now have a common file; in case b, a local one. 

We check the response from subroutine DOCTS, which looked for the file. 

If this is 1, the case was a or c, we now have a common file, and we 

go to EDTTB. Otherwise we call DOCTS again for file SSSSSST* If the 

previous case*was b, this now makes the local file common, and gives 
a response 1. If the previous case was d, this does nothing and gives 
a response llE because we already have such a common file at our control 
point. In either case, go to EDITB. Abort through EREP, however, if 
the response is 7, which means we did not yet have a common file SSSSSST 
at our control point but did have a Local one, and there was a common 
file of the same name at another control point, or at control point 0. 
This must have come into existence as a common file since we arrived 
at EDITA; it is not another EDITLIB job that is causing the conflict, 
because it would wait for us to be through with SSSSSST, so rather than 
get mixed up with some other job we abort. 

At EDITB we call subroutine GETD to copy the running directory into our 
directory model area, and then write it out on file SSSSSST* Then go 
to EDITH. 

We come to EDITH when we are through, one way or the other, with SSSSSST. 
Gall subroutine DOCTS to fetch common file SYSTEM, so that if necessary 
we can read disk-resident program bodies from it (we will never write 
on it). If the response is 3, some other control point has it, and we 
just keep asking. If the response is 1, we have it now and proceed. 

Any other response causes an abort through EREP; someone has just 
destroyed file SYSTEM, or this control point already has a local or 
common file called SYSTEM (not because of a previous EDITLIB, which 
would have dropped it in terminating) and this is bad. 
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Then do the same for file SSSSSSU, from which we may read disk-resident 
program bodies, and on which we will write any addenda or corrigenda 
to the running program library. If the response is 3, keep waiting 
till the other control point releases It and we get it. If the response 
is 1, we have it and go ahead. If the response is anything else, rewind 
SSSSSSU, which should create a local file, then call subroutine DOCTS 
to make it common. If the response is now above 3, we abort through ERBP. 
Some other program is creating common files called SSSSSSU, and this is 
bad. 

Having secured common files SSSSSST, SYSTEM, and SSSSSSU, we come to 
KUGEL, where we rewind file SSSSSSV. Fortunately this is simpler; we 
really do not care what kind of file it is as long as we can use it 
as a scratch file. One way or another, It now exists, probably as a 
newly-created local file. Now at KLUGE, we read cards from file INPUT 
and copy them to file SSSSSSV until we get an end-of-record response 
from INPUT. Then write end-of-record on SSSSSSV, rewind it, and go 
to START. We have copied this record to SSSSSSV, assuming that It contains 
all and only the function cards for this EDITLIB run. If we read them 
directly from file INPUT, and there were also things like binary program 
decks in the INPUT file as source material, the function cards would 
have to be mixed with the source records. 

The main cycle of EDITLIB begins at START. Here we read a card from 
file SSSSSSV- If the response is end -of-record, we go to ENDB, put 
an "END" request in ENDD to be transmitted in a minute; then write end 
of record on the OUTPUT file, call PP program GTS to release coomon files 
SYSTEM, SSSSSSU, and SSSSSST from this control point, and then issue 
the request* 

If we get a card rather than e.o.r. from file SSSSSSV, call PP program 
MSG to handle the card with 10 blanks prefixed to it, copying this to 
the console display, system dayflle, and job dayfile. Then, in the 
stretch of program that begins five instructions before STD and ends 
at STB, we break up the card into "elements", stored in BDOWNff. The 
rules are: 

a. a card is scanned up to and including colunai 80, or up to but not 
Including the first period or ) 

b. every * or - is treated as an element and stored as 47B or 46B. 

c. blank + / ( - comma and $ are indifferently counted as separators. 

Two or more consecutive separators count as a single separator. 

A sequence of one or more separators at the beginning of a card 

has no effect; it is as if the card began with the first non-separator. 

d. a character which is not a letter or digit, and not one of the special 
characters listed above, causes an abort with the message "BINARY 
CARD READ AS FUNCTION CARD". 

e. as well as being elements in their own right, * and - act as separators 
to delimit preceding and following words if necessary. 
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a string of letters and/or numbers between separators is an element. 

If it is the first element of the card. It may be as long as eight 
characters, as it must be the function code, and some of them are 
that long. Other elements must be seven or fewer characters. If 
an element is too long, we give the message ABOVE IS ILL-FORMED 
AND IGNORED*^ after a copy of the card, and go back to START for 
the next card. 

g. if an element begins with two digits, any further characters must 
be digits. Otherwise, do as in e. 

h. an element consisting entirely of digits is a number, and is converted 
from decimal to binary, complemented, and stored as a negative integer 
less than 2**17. 

i. an element containing any letters in a word, and is stored left- 
justified with zero fill. 

Having broken the card down we come to STB, where we compare the first 
element to the list of valid function codes. If no match, go to MSGA 
to give a message and tiry the next card. If match, go to the start 
of the corresponding function routine. Unless we abort during such a 
routine, we eventually return from it to START. Here are the routines: 

LENGTH routine, starting at LEN 

The first parameter (second element of card) must be a number between 
1 and 16;otherwise go to MSGA to give a message and try the next card. 
Multiply the number by lOOOOB and put it in the calling sequence for 
subroutine MEM.. Then call MEM to get a field length at least large 
enough to give a directory model space of that many words. Then return 
to START* 

REWIND routine, starting at REW 

Call subroutine MNA to check the first parameter (second element of 
card) for being a word, and to store it in the FET that begins at CBUF. 
Then call subroutine PCBUF to initialize the FET at CBUF to handle the 
file whose name is already at CBUF. Then call subroutine MCBUF to rewind 
the file named by the FET at CBUF. Then return to START. 

SKIPF routine, starting st SKP 

Call subroutine MNA to check the first parameter (second element of 
card) for being a word, and to store it In the FET that begins at CBUF. 

If the second parameter is missing, or is asterisk or minus, exit through 
MSGA. If the second parameter is a number, go to SKPE, where we re¬ 
peatedly call subroutine RDR to skip forward one record, and then add 
one to the second parameter, which is a negative number. When it turns 
positive (zero), go back to START. But if the response from subroutine 
RDR is non-zero, we have struck end-of-file,* and go to SKPB to give a 
message and abort. 

If the second parameter is a word, we arrive at SKPC and call RDR to 
read-and-skip a record, i.e. read as much as possible into the buffer, 
and in any case pass to the end of record. Now if the record has a pre¬ 
fix with a name that matches the second parameter, we are finished and 
go back to START. Or if the response from RDR is non-zero, we have 
struck end-of-file and go to SKPB to. give a message and abort. Other¬ 
wise return to SKPC to try the next record. 
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If the first word In the buffer is 7700 xxxxOOOOOOOOOOOOb (this is the 
usual format) or 77000002000000007777B (this is the format for the 
first word of a program record in a system file) we can safely assxirae 
we have a prefix. Otherwise go back to SKPC and try the next record. 

If there is a prefix, the name of the record, to be matched with the 
second parameter, is in bits 18-59 of the second word in the buffer. 

SKIFB routine, starting at BKS 

Call subroutine MNA to check the first parameter for being a word, 
and to move it into the first word of the FET that begins at CBUF. 

Then call subroutine PCBUF to initialize the FET, using a name which 
we pick out of CBUF. Then check that the second parameter (third 
element on the card) is a non-zero number, and if not exit to MSGA. 

Then call subroutine MCBUF to backspace the file controlled by FET 
CBUF, and add I to the negatively-stored parmneter. Do this until the 
parameter turns positive (zero) and then return to STASX. There is also 
a check in here for beginning of file, i.e. too many backspaces for the 
starting position of the file; but apparently the SCOPE system no longer 
gives this response anyway. 

READY routine, beginning at RY 

There is a cell called DESTIN, which is initially 0, and into which the 
READY function puts the file name given as its parameter, or 1 if the 
name is SYSTEM. The COMPLETE function zeroes this cellj otherwise it 
is left untouched. 

So if the READY function finds this cell already non-zero, we abort 
with a message. Otherwise, call subroutine MNA to check that the first 
parameter (second element of card) is a word. Then match this word with 
"SYSTEM”; if not the same, go to EYC, where we store the name in DESTIN, 
rewind file SSSSSSS, and go to EYD. 

SSSSSSS is a local file on which we shall keep program records for the 
system file we are about to construct, until the COMPLETE card arrives. 

SSSSSSS is not the new system file itself. We really do not care whether 
SSSSSSS already exists or not; it could even be common. Just as long 
as we can write on it, and the rewind assures that (unless an earlier 
tun in the same job somehow created an unwritable file called SSSSSSS 
and left it for EDITLIB to founder over at this point). 

If the first parameter is "SYSTEM", we put 1 in DESTIN and see whether 
the second parameter is an asterisk. If so, we go to RYD because this 
means that although in principle we want to modify the running system, 
we want to start from scratch to build a new running system, rather than 
starting with the existing one and merely adding or subtracting a few 
programs. So the asterisk means that although the destination is SYSTEM, 
it Is much like making up a new system file. 

If the second parameter is not an asterisk, we call subroutine GETD 
to copy the running directory into our directory model space. This will 
be the basis for modifications. When the COMPLETE card comes, the modified 
model will be copied back into CMR. Now we return to START. 
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At RYD, to which we come if the first parameter is not SYSTEM, or if 
the second parameter is asterisk, we set up a request for FP program MDl 
to copy the program name table from the CMR directory, not to our 
directory model space, but to another space beginning at SDIR- Then 
call subroutine MDICALL to get MDI to do it. This means that if we 
are constructing a new system file, and want to copy some of the running 
system programs Into it, we can get their disk addresses from this table 
and so read them from file SYSTEM or file SSSSSSU. However, if we axe 
constructing something destined to be a new library for the running 
system, starting from zero instead of from the present running system 
(the case of READY(SYSTEM,*) ) we cannot use this, because EDITLIB 
does not allow SYSTEM to be both source and destination. However, 
we could read those programs from the system tape that was dead-started. 

In any case, we then set up an empty directory models to which we can 
add things between now and the next COMPLETE function, and then go back 
to START. 

COMPLETE routine, starting at COM 

If cell DESTIN contains 0, there has not been a previous READY, so we 
abort with a message* 

If cell DESTIN contains 1, the READY was READYCSYSTEM) or READY(SYSTEM,*). 
The new programs have been written on common file SSSSSSU, where they 
will always be available to the running directory, and we have a new 
model directory in our directory model space. It would almost be enough 
to call subroutine RTRN to copy this directory model into the CMR, 
replacing the running directory, however, we have been adding programs 
into the model program name table by simply putting them at the end. 

It is necessary, before calling subroutine RTRK, to call subroutine 
SRT to sort the entries in the model program name table so that the 
order is FP programs, then CP programs, then overlays, and then STITCH 
programs; and within each category all CM-resident programs precede 
all disk-restdent programs. In addition, subroutine SRT must adjust 
the program niimbers attached to entry point names in the model entry 
point table, since moving entries about in the model program name table 
alters their program numbers. Having called subroutines SRT and RTRN, 
we go to COHF, where we zero cell DESTIN to show we are no longer bet¬ 
ween a READY and a COMPLETE, and then return to START. 

If cell DESTIN does not contain 1, it contains the name of the new system 
file. We must have already, presumably by TRANSFER function cards, 
written out the first five records of this file (PLR, STL, CMR, HTR, DSD) 
and left the file positioned after the last one. It remains to write 
out the two records of the directory, and the program records. The 
programs have not been written on this file as yet, but saved on a Local 
file called SSSSSSS; because they must follow the directory on the final 
system file, and yet we could not have written out the directory until 
we had constructed all the program records and saved them somewhere be¬ 
fore coming to the COMPLETE card. So now we go to COMB. 
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At COMB, we set up FET CBUF to handle file SSSSSSS, and rewind it. 

Then set up FET DBUF to handle the new system file. Then call sub¬ 
routine SRT to sort the model program name table into the order above 
described, and adjust program numbers in the model entry point table 
accordingly. Then, at COML, we write out the model entry point table 
and the model program name table, to constitute the two records of the 
directory In the new system file- Then we scan the model program name 
table from beginning to end, and for each entry, extract the disk address 
and put it in CBUFH-6, to control the next read on file SSSSSSS; call 
subroutine READ to start reading the record;then call subroutine COPY 
to copy the whole record onto the file named in FET DBUF, which is of 
course the new system file. On coming to the end of the model program 
name table, we go to COMK, write end of file and rewind the new system 
file; then go to COHF to zero cell DESTIN, showing we are no longer 
between READY and COMPLETE, and return to START, 

MOVE routine, starting at MOV. 

This function cannot be done between READY and COMPLETE, so we begin 
by testing cell DESTIN, and if it contains non-zero, we abort with a 
message. Otherwise, at MOVZ, we call subroutine MNA, to check the 
first parameter (second element on the card) for being a word, and to 
move it to cell DELA. Then we pick up the second parameter, which 
should be the new residence symbolic code, and call subroutine RES, 
which returns the equivalent numerical residence code in X6, which we 
save at DELA+1. RES will have handled an impossible symbolic residence 
code by giving an error message and going back to START. But if the 
parameter was simply absent, RES will return a negative X6- For some 
functions, this would be acceptable, but not for MOVE, so we branch on 
X6 negative to MSGA to give an error message and go back to START- 

Otherwise, we call subroutine GETD to copy the running directory from 
CMR to our directory model space. Then callsubroutine LOG, which scans 
the model program name table for a match to the program name in DELA 
(our first parameter). If no match, LOG gives an error message and 
returns to START. If a match is found, we return from LOG with the address 
of the entry in the model program name table in B2 and cell HOLD, and 
the program number for the program in B4 and cell HOLD+1. From the 
P.N.T. entry we extract the old residence code and compare it with the 
new one. If they are the same, nothing needs to be done and we return 
to START, 

Otherwise, if the new residence code is for CM, the old one must have 
been for disk, and we go to MOVA to read the program from disk into our 
directory model. First we choose, according to a bit in the program 
name table entry, SYSTEM or SSSSSSU as the name of the file containing 
the record, and put it into FET CBUF. Now the record we are about to 
read begins with a 3-word prefix, and it is only what follows this prefix 
that we must add to the end of the directory model. So we save the last 
three words of the directory model in cells HOLD+5, 6, and 7, and then 
set out to read the record into memory beginning at the third-last 
word in the directory model. Knowing the length of the record, which 
is given (excluding the three words of prefix) in the program name table 
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entry, we can treat the area that will receive the new record as a work¬ 
space, whose addresses we put into CBUm. Then we extract the disk 
address from the program name table entry, and put it in CBUF.6 to contro 
the next read. Then call lOREAD (in program 10) to read the program 
into the "workspace". Then restore the last three words of the directory 
model as it was, on top of the three words of prefix we just read at 
the beginning of the new record. Then increase the pointer to the 
end-rl of the directory model, at cell BEND, put the CM-address of the 
newly read program into Its program name table entry, and go to MOVK.. 


If the new residence code is not for CM, then presumably the old residence 
code is for CM, and if so we call subroutine SQB to squeeze its body 
out of the directory model, by moving back all latter bodies, and to 
zero its CM-address in the program name table. Then go to MOVE. If 
the old residence code is also not CM, we go straight to MOVL without 
calling SQB. This cannot happen at present, but if a third type of 
residence is introduced to the SCOPE system, this particular branch will 
become raeaningfull , though of course other changes in the MOVE routine 
will be needed. At MOVL, if the new residence code is DS (which at 
present it must be, but see the remark in the preceding sentence) we 
call subroutine SRB to complete the disk address in the model program 
name table entry. We already had a 24-bit disk address in bits 0-23 
of the second word of the entry, and this suffices to find the record 
when the file name is known. But subroutine SRB calls PP program SRB 
to complete this with 21 bits more in bits 24-44 of the same word pro¬ 
ducing a 45-bit disk address which is more convenient for "PP Resident 
to use when loading a disk - resident PP program. Then go to MOVL. 


At MOVL we call subroutine SRT to re-sort the model program name table 
entries, because we have changed the residence of an entry, and entries 
must be sorted within each category (PP, CP, overlay, STITCH) according 
to residence. SRT also adjusts program numbers in the model entry point 
table accordingly. Then, at DELK, we call subroutine RTRN to copy the 
model directory into CMR, replacing the running system directory. Then 
return to START. 


LIST routine, starting at LIS 

The LIST function cannot be done between READY and COMPLETE, so the 
routine begins by checking that cell DESTIH contains zero, and giving 
a message if not. Correction: first of all, it calls subroutine MNA 
to ensure that the first parameter (second element of the function card) 
is a name, and to move it to cell DELA. Then it checks DESTIN. Now if 
the first parameter is SYSTEM, we need only call subroutine GETD to 
copy the running directory, from which we can prepare a list of programs, 
into the directory model space. Then go to LISC. If the first parameter 
is not SYSTEM, it names some other file, on which the record following 
DSD is presumed to be the directory. (Skipping to DSD allows the dead- 
start records to be variable in number as long as DSD is the last.) 

The record following DSD is read as the directory from which we can 
prepare the list by calling subroutine GROW to read the next two records 
and put them in the model directory space as an entry point table and 
program name table. Then go to LXSC- 
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At LISG, we write on the OUTPUT file '’LIST OF PROGRAMS IN FILE XXX". 

Then start scanning the model program name table. For each entry we 
write on one line of the OUTPUT file the program name, its body length 
(i.e. RECORD LENGTH-3) in octal its symbolic residence code, and its 
type, taken from table TYPE (note that type 3, "CODED INF", no longer 
exists in the system. This was the sort of thing ADDBCD and ADDTEXT 
would add to a system file, but it is now formatted as an overlay). 

If the program is a CP program, we look through the model entry point 
table for all entries with its program number, and copy out the entry 
point names on succeeding lines of the OUTPUT file. 

When we have finished scanning the model program name table, we write 
a page skip on the OUTPUT file and return to START. 

TRANSFER routine, starting at TRA 

A TRANSFER function can only be done between READY and COMPLETE, so 
we first check that cell DESTIN does not contain zero, and if it does, 
abort with a message. Furthermore, a TRANSFER cannot be used to alter 
one of the first fifteen reaerds (those non-library records through DSD) 
of the running system file, so we also abort If DESTIN contains 1, in¬ 
dicating that the last READY was READY(SYSTEM). 

Otherwise, we move the file name in DESTIN to the first word of FET 
DBUF, which we shall use in writing onto the new system file. Then 
we Call subroutine MNA to ensure that the first parameter (second element 
on the function card) is a name, and to move it to CBUF. Then we set 
up FET CBUF to read the file so named. 

Now, just after TRAH, we call subroutine READ to begin reading the next 
record from the file named in FET CBUF, If the response is non-zero, 
we have hit an end of file, and go to TRAE to give an error message 
and abort. Otherwise, see whether the second parameter is absent (which 
will count as number zero), a number, or a name. If a name, go to TRAB. 
Otherwise, it was a number (zero or missing will be treated as = 1). 

We must copy that number of records without alternation. But each record 
must not have a prefix (probably we are copying off an existing system 
file, in which the first five records have already had their prefixes 
stripped off. These records originally are assembled as programs, and 
the binary records have prefixes; but on a system file, for necessity 
or convenience, the prefixes are absent.) If the record we just began 
reading has a prefix; that is if its first word is 770000xxOOOOOOOOOOOOB 
or 77000002000000007777B; we abort with a message. Otherwise, call sub¬ 
routine COPY to copy the whole record onto the new system file. Then 
add 1 to the second parameter, which is in negative form, and return 
to START if it has become positive. Otherwise, return to TRAH to repeat 
the cycle of reading, testing and copying. 

We come to TRAB when we have read the beginning of a record from the 
input file, and the second parameter is a name. Now we check that the 
input record has a prefix, and that its name is the same as the second 
parameter. If not, abort with a message. If it matches, we are going 
to copy out the record without its prefix. If the third parameter is 
a number greater than 1, say n., we are going to add on to the end of 
this record, so as to form a single output record, the next n-1 records 
of the input file as well, without stripping or even looking at their 
prefixes. This facility is provided because the,first two records of 
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a system tape have each to be assembled partly as a PP program and partly 
as a CP program. The assembly program makes a separate record for each 
part. The two parts of each of the first two records have to be combined 
into a single record for convenience; the prefix has to be stripped 
off the first part so as to make it dead-startable, but the prefix of 
the second part can remain embedded in the record without causing trouble. 

Now we check the third parameter. If it is absent* It will count as 
0 and hence 1, and if a number It will count as itself, or as 1 if it 
is 0. But if it is anything but a number, we abort with a message. 

Now we strip the prefix of the input record by advancing the OUT pointer 
of FET CBUF by the length of the prefix. Then, at TRAL, change the 
file name in FET CBUF to the new system file name, which we had stored 
in DBUF, though we shall not now use that FET. If the file status in 
FET CBUF is not e.o.r., go to TRALA and call subroutine MCBUF to write 
out. Then restore the input file name in CBUF, and call subroutine 
MCBUF to read more. Then return to TRAL to continue the loop. When we 
find an input file e.o.r. status, we add 1 to the third parameter, which 
is 0 or a negative count. If the result is positive, go to TRAK, where 
we call MCBUF to write end of record and then go to START. If the result 
is not positive, we go back to TRALA to continue the write-read loop; 
note that here we read e.o.r., but we ignore this in writing out, so 
as to combine more than one input record into a single output one. 

ADDBCD routine, starting at ADDBCD 

The ADDBCD function has practically been replaced by ADDTEXT. ADDBCD 
itself is an alternative to a way of using the ADD function: 

ADDBCD(MACROS,INPUT,D S) 

is equivalent to 

ADD(-MACROS,INPUT,DS) 

And EDITLIB was initially programmed to accept the second format (which 
it still accepts); ADDBCD was added to the repertory as an afterthought. 

So the ADDBCD routine merely moves the second and following elements 
from the function card breakdown one position down the line, and inserts 
a minus as the second element; i.e. the first parameter. Then it branches 
to ADD where the ADD routine begins. 

ADDTEXT routine, starting at AT 

ADDBCD, or the version of ADD that is its original, was programmed on 
the assumption that things like macro definitions for an assembly program 
would be a special type of record in the library (now they are not a 
special type, but are formatted as overlays) whose original form would 
be a record of BCD cards. The first card would contain the record name 
in column 1 ff., and the definitions would be on following cards. There 
would not be extraneous things like serial numbers at the ends of the 
cards, so normal trailing-blank suppression would compress them reasonably 
well. 
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Howeverj it turned out that macro definitions etc, would in practice 
be supplied from a binary file produced as an output by prograni EDITSYM, 
in which each card image would be 80 characters, followed by a serial 
number in columns 80 ff., or by a row of asterisksj in the former case 

the length of the card-image line would be 9 words, and in the latter 

case 10. So to get rid of what followed the first 80 characters, and 
was of no use In the overlay, and to allow trailing-blanks suppression 

to get to the size of the overlay down, the ABDTEXT function was pro¬ 

vided. It read in the record, ignores everything after column 72 of 
each line, and writes the lines, with trailing-blanks suppression, into 
a single record on a local file called SSSSSSW. Then it alters the 
parameter naming the input file from the real name to SSSSSSW, and branches 
to routine ADDBCD, which can then function as if the macro definitions 
had been supplied as a record of simply punched cards. 

At AT we begin by seeing whether the second parameter, the name of the 
source file, is SYSTEM. If so, abort with a message, because there 
could be no such record in a running system; it would have been already 
formatted as an overlay, and in that form it could easily be added to 
the new system file by an ADD function. Then we call subroutine PCBUF 
to ready FET CBUF for reading the file named by the second parameter. 

Then ready FET DBUF for writing the file named SSSSSSX, then call sub¬ 
routine MCBUF to rewind SSSSSSX, Presumably SSSSSSX is then brought 
into being by the system as a local file; at any rate it does not matter 
to EDITLIB if it is local or common, provided it is on disk and can 
be written. 13ow we call subroutine READ to begin reading the next 
record from the source file; if the response is non-zero, we have hit 
an end-of-flle and abort with a message. Otherwise, call subroutine 
COPY to copy the whole record onto file SSSSSSX* 

Then we call subroutine MCBUF to rewind file SSSSSSX, and then subroutine 
PCBUF to prepare FET CBUF to read it in BCD mode- This is the whole 
point of the file SSSSSSX. The source file named on the function card 
may have been tape; the record we have to read is theoretically binary, 
and if it is on tape this is an obstacle to using lOREAD in a moment, 
as we want lOREAD to behave as for a BCD file. So we have copied the 
input record to SSSSSSX, which we know to be a disk file, so that we 
can call it BCD when we set IOREAD to reading it. 

Now we are at ATA. We copy the six-word FET model at TFET into FET 
DBUF, for writing a file called SSSSSSW in BCD, Then call subroutine 
MCBUF to rewind this file. Presumably, as with SSSSSSX, the file is 
created by the system at this point, but it does not matter to EDITLIB, 
whether it is local or common, provided it can be written. The sixth 
word of this FET defines a workspace for subroutine lOREAD from TLINE 
to TLlNE+7 inclusive, or 8 words long- We now add 1 to this word and 
put it In the sixth word of FET CBUF, so that it defines a workspace 
from TLINE to TLINE+8 inclusive, or nine words long. Starting at ATB, 
we repeatedly go through this cycle; 

a. call lOREAD to read a line from file SSSSSSX. This means a whole 

line (which in fact, as written by program EDITSYM, is 9 or 10 words 
long) is passed through, but not more then the first 9 words are 
put into the workspace* If the line is shorter than 9 words, the 
workspace is filled out with blanks. 
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b. blank out characters 73 to 80 in the workspace, in case they con¬ 
tained some sort of serial number, and would interfere with trailing 
blank suppression- 

c- call lOWRITE to write out, as a line within the record on file 

SSSSSSW, the eight-word workspace beginning at TLINE, Presumably 
these eight words now include no serial numbers at the right end, 
so trailing blank suppression is effectivei Then return to a- 

Wben subroutine lOREAD returns a non-zero response, we go to ERRC to 
abort with a message if this indicates end-of-file (impossible) and 
otherwise, if end-of-record, we go to ATC- The last line in the record 
has already been put in the output buffer by subroutine 10WRITE; it 
remains only to call subroutine HCBUF to write end-of-record and rewind 
file SSSSSSW- 

Now we have a record at the beginning of file SSSSSSW which is equivalent 
to the record the ADDTEXT function card told us to read, but has had 
serial numbers removed from the lines, and trailing blanks suppressed- 
So we change the second parameter, in BDOWN+2, to ^’SSSSSSW^', and then 
branch to the beginning of the ADDBCD routine- 

ADDCOS routine, starting at ADDCOS 

Function ADDCOS adds one or more CHIPPEWA 1.1 binary CP programs to 
the library, as ”ST1TCH^^ programs- As a signal that this is what is 
going to happen, the ADDCOS routine begins by setting cell COSFLAG to 
1, and then branches to the ADD routine at the point where ADD has just 
performed its^first act, that of setting COSFLAG to 0, 

ADD routine, starting at ADD 

The ADD routine begins by setting cell COSFLAG to 0, to distinguish it 
from the ADDCOS routine. After this point, the two routines join, 
and rely on COSFLAG for choice of action where necessary- 

Now zero cells DELA+4, ONEDONE, and UPTO. These may be set non-zero 
later- DELA+A will be set non-zero if the first parameter is a minus, 
indicating that the source file should be read in BCD mode. If the 
first parameter was minus, it means that the function card was 

ADD (-rec,file,res,ed) 

or was 

ADDBCD (rec,file,res,ed) 

which has been translated into the first format by the ADDBCD routine; 
in either case, file '^file” must be either indifferent as to mode, like 
a disk file, or BCD mode, if on tape- Or the function card may have 
been 

ADDTEXT Crec,file,re s,ed) 

which the ADDTEXT and ADDBCD routines have turned into, in effect, 

ADD (-rec, SSSSSSW, res,ed) 

and we know file SSSSSSW is on disk and therefore can be read in BCD- 
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Cell ONEDONE, if zero, indicates that we have still to match the name 
of the first record we take from the source file with the first pro¬ 
gram name given on the ADD function card. Once this is no longer so, 
either because the first or only program has been successfully ADDed, 
or because the first parameter is * (indicating that we start using the 
source file from its present position, without checking the name of 
the first record against the function card) then ONEDONE becomes non¬ 
zero. ONEDONE is also used, when adding more than one program from 
SYSTEM as source by a single ADD card, to contain the pointer to the 
last-used entry In the model program name table. 

When UPTO contains zero, it means that the next time we finish ADOing 
a program, during the current function card, we will have finished pro¬ 
cessing the function card. Initially in the ADD routine, if we find 
that more than one program is called for, by one of the formats 

ADD (x-y,f,r,e) 

ADD Cx-'*,f,r,e) 

ADD (*,f,r,e) 

we put the name of the terminating program in UPTO, or put -1 upto if 
we are to go to the end of the current file on the source file (asterisk 
on the ADD card). Then whenever we ADD a program, we check its name 
with the terminator in UPTO, and if they match, zero UPTO. 

In the case of 

ADD (x,f,r,e) 

UPTO remains zero throughout, as only one program is being handled. 

Now, if the first parameter is an asterisk, we must have something like 
ADD (*,f,r,e) and we go to ADDAY, where we set UPTO to -1, to show 
that processing will end with the end of file on the source file (unless 
the source is named as SYSTEM, in which case it will end with the end 
of the program name table). Then we set ONEDONE to contain the address 
SDIR-2. This has two meanings. As ONEDONE is not zero, it means we 
will not check the name of the first program we read from the source 
file against a function card parameter. In addition, in case the source 
is SYSTEM, this means that by adding 2 to the address in ONEDONE, we 
can find the model program name table entry for the next program to 
be taken from the running system. A function card ADD (*,SYSTEM,r,e) 
would mean "take everything from the running system and add it to the 
new system file". So we have already set UPTO to -1, showing we are 
not to stop adding programs till we come to the end of the model program 
name table; and we have set ONEDONE to SDIR-2, indicating that the model 
p.n.t. entry for the next program to be taken is at SDIR. Now the last- 
executed READY function (provided it was not READY(SYSTEM), in which case 
the fact that this ADD card names SYSTEM as the source will cause 
us to abort with a message a little later at ADDB) has read the program 
name table from the CMR directory into our field length beginning at 
SDIR, so this setting of ONEDONE is reasonable- Then go to ADDAW. 


March 1969 


14-64 



SCOPE 


If the first parameter is not an asterisk* we test whether it is a 
minus sign. If it is, we want to do the sort of thing that has been 
described above for the ADDBCD and ADDTEXT function routines. We set 
DELA+4 non^zero, showing that the source file is to be read in BCD mode* 
Then call subroutine MNA to ensure that the second parameter is a name* 
and to store it at DELA as the first and only record name to be handled* 
Then call subroutine MNA again to ensure that the second parameter is a 
name, and to store it at DELA+2 as the name of the source file* Now 
the fourth parameter will be the first of the residence code and/or 
edition number parameter, and we go to ADDAD with its address in Al 
and itself in XI* 

If the first parameter is neither an asterisk or a minus, we go to 
ADDAV. The first parameter must be the name of the first or only record 
to be processed* so we call subroutine MNA to check that it is a name, 
and to store it in DELA. Then if the second parameter is not a minus 
sign (type ADD (x-y*f,r,e)) it must be the name of the source file 
(type ADD (x*f,r*e)K So we go to ADDAW and call subroutine MNA to 
check that the second parameter is a name* and to save it in DELA+4* 

Now the third parameter must be the first of the residence code and/or 
edition number parameters, and we go to ADDAD with its address in Al 
and itself in Xl. 

If the first parameter was a program name, as checked in the preceding 
paragraph, and the second parameter is a minus sign, we go to ADDA. 

Now the third parameter must be either an asterisk or the name of the 
last program to be ADDed (ADD (x-'*'*f ,r ,e) or ADD (x-y ,f *r ,e)) * If it 
is an asterisk, we set UPTO to -1, as explained above, representing an 
end of file or end of model program name table; then go to ADDAC. If 
the third parameter is not an asterisk, we go to ADDAB, where we call 
subroutine MNA to check that it is a name, and to store it in UPTO as 
the name of the last program to be ADDed. Then go to ADDAC. At ADDAC 
we call subroutine MNA to check that the fourth parameter is a name* 
and to move it to DELA+2 as the name of the source file. Now the fifth 
parameter must be the first of the residence code and/or edition number 
parameter, so we branch to ADDAD with its address in Al and itself in XI. 

When we get to ADDAD, we have the address of the first of the residence 
code and/or edition number parameters in Al, and the parameter in XI* 
Also, we have set the following: 

a. DELA+2 contains the name of the source file* 

b. DELA+4 is zero If the source file is to be read in binary, or non- 
zero if BCD. 

c. DELA contains the name of the first or only program to be ADDed, 
unless the function card called for adding everything between the 
present position and the next e.o.f on the source file. In that 
case, ONEDONE is non-zero, and UPTO is -1. 

d. ONEDONE contains zero, showing that it is necessary to check the 
name of the next program taken from the source file against the 
name in DELA (it will be set non-zero when the check has been suc¬ 
cessfully iiiade) except in the case noted as exception in c. above. 
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e- UPTO will contain ^ero, showing that on the next occasion that we 
completing ADDing a program, the function card will be satisfied; 
unless the function card called for adding from x to y inclusive, 
or for going to the next e-o-f. on the source file* In the former 
case, UPTO will contain the name of the last program to be ADDed, 
and will be zeroed when we begin to process that record. In the 
latter case, UPTO will contain -1. 

So at ADDAD it remains only to set up the residence and edition para- 
meters. A1 points to the first of them, if any, and from here on we 
work in terms of ^%ext*’ parameter rather then '^nth” parameter- First 
we set DELA-f-3 and REDAC negative, to indicate that the residence code 
and edition number have not, so far, been found. Then begin the loop 
for finding them at AUDAC- 

At ADDADC, we check whether the next parameter exists, and if not, go 
to ADDADD, If the next parameter exists and is a number, go to ADDADB, 
save it as a positive integer in REDAC for the edition ;miber, and re¬ 
turn to ADDADC for the next parameter- But if the next parameter exists 
and is not a number, it should be a symbolic residence code. We call 
subroutine RES to look it up in table RESA, and return with its numer¬ 
ical equivalent in X6, which we save in DELA+4 as the numerical resi¬ 
dence code. Then return to ADDADC for the next parameter. 

When we get to ADDADD, all the parameters have been set up. If DELA+3 
contains a negative number still, it means there was no explicit resi¬ 
dence code, an! we should assign anything to disk residence unless it 
is an already-formatted record from a system file, in which case keep 
its existing residence. If REDAC contains a negative number still, it 
means there was no explicit edition number, and we should assign num¬ 
ber 0 to anything unless it is an already-formatted record from a sys¬ 
tem file, In which case keep its existing edition number. 

Now at ADDADD, we check whether cell DESTIN contains 0. If so, we are 
trying to ADD otherwise than between READY and COMPLETE, and we abort 
with a message (after all that work on the parameters). Otherwise, go 
on to ADDB- If cell DESTIN contains 1, the last READY was READY(SYSTEM). 
Now if the source file named in cell DELAH'2 is also SYSTEM, we abort 
with a message. Otherwise, at ADDBA, call subroutine MAKE to set up 
the next programj then call subroutine PCBUF to set up FET CBUT to write 
file SSSSSSU, and then go to ADDBAC. Remember that for READyCSYSTEM), 
all addenda and corrigenda to the library go to the common file SSSSSSU, 
which can be addressed as well as file SYSTEM by the CMR directory, and 
which we brought to our control point at the beginning of EDITLIB. 

If cell DESTIN does not contain 0 or 1, it must contain the name of the 
system file we are constructing, We go to ADDC, where we call subroutine 
MAKE to set up the next program; then call subroutine PCBUF to set up 
FET CBUT to write file SSSSSSS, and then go to ADDBAC- When we are 
making up a new system file, we use a local file called SSSSSSS, to 
which we maintain an index of record disk addresses in the model pro¬ 
gram name table we are building, as temporary storage for the programs 
before finally writing them on the new system file when the COMPLETE 
function comes. 
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When we get to ADDBAC, subroutine MAKE has formatted a program Into 
system file shape, and FET CBUF is ready to write it on the appropriate 
file. Now we store the address DELA+1 in the seventh word of that FET, 
so that when it is written, the disk address will be stored in DELA+1, 
from which we can insert it in the model program name table entry. 

Now we must say a word about subroutine HAKE. Using all the parameters, 
it reads a record from the source file and formats it into a record 
ready for a system file, beginning at location PROG. Such a system 
file record always begins 77000002000000007777B, and the second and 
third words are almost like the program name table entry for the pro¬ 
gram. Then the body of the program starts at PROG+3, and the length 
of this body Is found in bits 0-17 of the word at PROG+1. However, 
our buffer starting at PROG is only 4004B words long} l.e. it will be 
overflowed if the body of the formatted program is more than 4000B 
words long. If the body is not longer than 4000B words, the whole 
program will be laid out beginning at PROG, and cell SXCT will con¬ 
tain zero. 

But if the body is longer than 4000B words, the first three words of 
the program (the prefix) will still be in PROG through PROG+2. But 
the body of the program will be divided up into segments 4000B words 
long, which have been written on local file SSSSSSX, and of which a 
count has been kept in cell SXCT, plus a final fragment between 0 and 
3777B words long, which is still in the buffer beginning at PROG+3. 

We can figure the length of this final fragment, because it will be 
the low order 11 bits of PROG+1, i.e. the body length of the program, 
modulo 4000B for the 4000B-word segments that have been written on 
file SSSSSSX. ' 

So just after ADDBAC, we see if cell SXCT contains 0, and if so, go 
to ADDBACH. Put a word in the 6th position of FET CBUF to define the 
whole program as the workspace to be written out, and then call sub¬ 
routine lOWRlTE (in program 10) to write It. Then go to ADDBACL to 
write end of record and proceed. 

If SXCT does not contain zero, we must first write out the last of the 
program on file SSSSSSX. Subroutine MAKE has been using FET DBUF to 
write the file. We get the length of the last segment, from bits 0-10 
of PROG+1, and set up the IN and OUT pointers in the FET accordingly. 
Then call subroutine MCBUF twice to write end of record and rewind the 
file. Then set IN=OUT=FlRST in the FET and call MCBUF once more to 
read the first segment of the body of the program. Now, beginning at 
ADDBACK, we are going to use subroutine lOWRITE to copy out onto file 
SSSSSSS or SSSSSSU, which FET CBUF is prepared to write. First we set 
up the word from ADDBARB at CBUF+5, to define PROG through PROG+4002B 
as the workspace which lOWRITE is to copy out. Prom PROG to PROG+2 
is the prefix of the program, which has been sitting unchanged, and 
from PROG+3 to PROG+4002B is the first segment of the body of the pro¬ 
gram, read back in from file SSSSSUX. (As 4000B is a multiple of any 
PRU length, we can be sure that the last word read went to PROG+4002B. 
We can also be sure that this first segment was not shorter than 4000E 
words, because only the last segment is, and if there were only one 
segment, SSSSSSX would not have been used at all.) 
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Now call subroutine lOWKITE to move the stuff from PROG ff. to buffer 
BUF, which FET CBUF is set to use, and to write out some of it. At 
any rate we know that everything has been moved out of the PROG work¬ 
space. Now, if there is an end of record status for file SSSSSSX (this 
cannot happen the first time), go to ADDBAGL. Otherwise, set 1N=0UT= 

FIRST in the FET for reading SSSSSSX (we can safely do this because we 
must have read 4000B words into PROOFS ff., and we have used all of 
them now). Then call subroutine MCBUF to read SSSSSSX again^ it may 
read a non-last segment of 4000B words, or the last segment of 0 to 
3777B words. What ever it did read, we combine the IN and OUT pointers 
that define it, into a word suitable for putting in CBUF to control 
the next use of lOWRITE, and go back to ADDBACK. There we shall again 
call lOWRITE to empty the SSSSSSX buffer, and continue filling and writing 
the SSSSSSS or SSSSSSU buffer. When we find e.o.r. status on SSSSSSX, 
the buffer is already empty, and we go to ADDBACL to write end of re¬ 
cord on the output record. 

To ADDBACL, whether the program was long or short, we come to write 
end of record on the formatted output record. When the first PRU of 
this record was physically written, its disk address was stored in 
DELA+l. So we insert this disk address in the prefix at PROG+2. We 
shall need it either as part of the directory model that we shall return 
to CMR, or as part of what amounts to a table of disk addresses for 
finding records on file SSSSSSS, when it is time to copy them to the 
new system file. 

Now if DESTIN does not contain 1, the question of CM-residence does 
not bother us yery much, and we go to ADDE. But if it does contain 
1, we must now check whether the residence code for the new program is 
CM. If not, we need only call subroutine SRB, which we do at ADDEF, 
and then go to ADDE. Subroutine SRB calls PP program SRB to convert 
a 24-bit disk address and a file name into a 45-bit disk address for 
the same record, which will be more convenient for PP resident to use 
when loading a PP program from disk. We do not have to call SRB be¬ 
fore going to ADDE if we are making a new system file; but if we are 
modifying the running system, and the residence code for the new pro¬ 
gram is not CM, we assume it is disk resident, go to ADDEF, and call 
subroutine SRB to complete the disk address in the prefix itself, at 
PROG-^2. 

But if DESTIN contains 1 and the residence code of the new program is 
CM, we have to insert the body of the new program at the end of the 
directory model- First check whether the body, plus the two words of 
the new entry point, would fit within our field length in addition to 
the existing directory model. If not, go to ERRQ to abort with a mes¬ 
sage. Otherwise, the present end+1 address of the directory model is 
obvious the starting address of where we are going to put the new body, 
so we fill that address into the CM-address field of PR0G'*2. Then in¬ 
crease the pointer to the end of the directory, in ceil BEND, by the 
length of the body. Now check cell SXCT. If it contains 0, the whole 
body of the program is still sitting in the PROG buffer, beginning at 
PROG+3. So at ADOBE, we simply copy it onto the end of the directory 
model, and then go to ADDE. But if SXCT does not contain 0, the re¬ 
cord except its prefix has been entirely written out previously as the 


March 1969 


14-68 



SCOPE 


first record of file SSSSSSX. So we set BUFrS so as to provide a 'Vork- 
spacefor this record to be read and moved into, which coincides with 
the space that the new program body must occupy at the end of the en¬ 
larged directory model• Then call subroutine lOREAD to read it, and 
go to ADDE- 

We come to ADDE when we have written out the new program on file SSSSSSS 
or SSSSSSU, and dealt as necessary with the possibilities of putting 
its body at the end of the directory model, and completing its 45-bit 
disk address* Now we set bit 51 of PROG+3, which is destined to be the 
second word Of the program name table entry, to 1; if we are modifying 
the current running system, this will tell any program that consults 
the directory that the program is to be found on file SSSSSSU, not file 
SYSTEM* If we are preparing a new system file, this bit will in any 
case be zeroed by the dead-start loader as it copies the system tape 
to file SYSTEM and sets up a new CMR directory. 

Now we still have not put into the directory model the program name 
table entry for the new program, and the entry point table entries if 
it is a CP program. Subroutine PRIG, called by subroutine MAKE as it 
was formatting the program record, has saved the number of entry points 
in cell EFLIST, and their names in cells EPLlST+1 ff. So 2+ the number 
if EPLIST Is the number of table entry words that have to be added to 
the directory model, and we put this number in XO. Cell PNT points to 
a word that stands between the entry point table and the program name 
table. This word In turn points to the end’ll of the program name table. 
We increase the latter pointer by XO, as all the additional words will 
be inserted at or below the end of the program name table. 

Now if BESTIN does not contain 1, our model directory does not involve 
program bodies and their CH-addresses, so we avoid the next complication 
by going straight to ADDEG. But if DESTIN contains 1, we go to ADDEB, 
where we increase by XO the CM addresses in all entries for CM-resident 
programs in the model program name table; because all those bodies will 
be moved up XO words to make room for the new table words- Then, at 
ADDEA, do the same for the CM address in PROG+2 if the new program is 
CM-resident; its body is already in the model directory and will be 
moved up along with the rest, but its program name table entry is not 
yet in the table; we are still preparing the entry at PROG+l and PROG+2. 
Then go to ADDEC. 

At ADDEC, we now move all the bodies, if any, in the directory model 
up XO words. Then at ADDED, increase the pointers in BEND and BOD by 
XO. They point to the end+1 of the whole directory model, and the end+l 
of the program name table. Then put the second and third words of 
the new prefix, which constitute the program name table entry for the 
new program, in what are now the last two cells of the space for the 
program name table, just before the bodies, if any. Now if EPLIST con¬ 
tains 0, showing that there are no entry points, everything is in order, 
and we go to ADDl. 

Otherwise, go to ADDF to start inserting entry points in the model entry 
point table. There is the correct number of free words in the model, 
but they are located between what was formerly the end of the program 
name table, and the program name table entry for the new program. So 
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we move up all the old part of the prograin name tablcj so that the vacant 
space comes at the end of the entry point table. At ADDG, we insert 
the program number of the new program after each entry point name in 
cells EPLlST+1 ff. Then if there is only one entry point, go straight 
to ADDH; otherwise, at ADDGA ff., sort them into alpahbetical order. 

At ADDH, we merge the new entry points beginning at EPLIST+1 with the 
existing entry point table, causing the table to expand and fill the 
additional space made vacant for it. At the beginning of this process 
we add the number of entry points to the pointer in cell PNT, which is 
supposed to point to the word in the directory model that follows the 
end of the entry point table and precedes the beginning of the program 
name table. The word PNT points to is supposed to contain the address 
of the last+1 word of the program name table; we have already (just 
after ADDE) increased that address in that word by the number of entry 
polnts+2, and the word itself was moved up along with the program name 
table, when we made room at the end of the entry point table, at ADDF. 
Now we also add the number of entry points to the address in the first 
word of the directory model; this word is supposed to point to the same 

word PNT points to, although their contents actually differ by the amout 

we maintain in cell DIFF, i.e. the difference between the address re¬ 
lative to RA of our directory model, and the absolute address of the 
directory itself. Having merged in the new entry points, go to ADDU. 

At ADDU, we have dealt with everything involved in adding the new pro¬ 
gram to the directory model except the necessity of sorting the program 
name table into the correct order. This will be taken care of by the 
COMPLETE function, after all the add's have been done. So now we check 
cell UPTO. If it contains zero, we have finished with this ADD, ADDBCD, 
ADDCOS, or ADDTEXT function and return to START. Otherwise, return to 
ADDB to get the next program from the source file, still using the same 

parameters that were decoded from the function card in the routine bet¬ 

ween ADD and ADDB. 

Cell UPTO will contain zero if the ADD function card called for adding 
only one program, or if it called for adding more than one, and sub¬ 
routine MAKE, in processing the last program from the source file, found 
that its name matched the terminal name in UPTO; then MAKE zeroed UPTO. 
If UPTO contained -1, this was a signal that we were to go to the end 
of the source file; when subroutine MAKE finds an end of file under this 
condition, it returns to START innnediately because the ADD routine need 
not go any further. 

DELETE routine, starting at DEL 

First call subroutine MNA, to ensure that the first parameter (second 
element in the function card) is a name, and to move it to cell DELA. 

Now check cell DESTIN. If it contains 0, we are not between a READY 
and a COMPLETE, and DELETE must singly delete the named program from 
the running system. If so, call subroutine GETD to copy the running 
directory from CMR to out directory model space, and go to DELD. 

If DESTIN does not contain 0, we are already preparing a directory model 
of some sort, and DELETE has to delete the named program from it. So 
go straight to DELD. 
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At DELD, call subroutine LOC to look in the model program name table 
for the program whose name is in DELA, and to put the address of the 
first word of its program name table entry in B2 and cell HOLD, and 
its program number in B4 and cell HOLD+I. Now look at the residence 
code in the program name table entry. If it is for GM-residence, and 
if DESTIN contains 0 or 1, we are dealing with the actual or potential 
running directory, and must call subroutine SQB to delete the body of 
the program from the directory model. If not, we do not call SQB. 

Then go to DELE, SQB, if called, identifies the program whose body 
is to be removed by the program name table entry addressed in B2, 

At DELE, we reset E4 from cell HOLD+1, to contain the program number 
of the program to be removed, and then call subroutine SQE to remove 
its program name table entry, and its entry point table entries if any, 
from the directory model, and to adjust program numbers in the entry 
point table accordingly* 

Then we check DESTIN again. If it does not contain 0, we are between 
READY and CCMPLETE, and the model directory is to remain in our field 
length until the next COMPLETE card- So we go back to START* But if 
DESTIN contains 0, DELETE was called to remove one program from the 
running directoryj and we call subroutine RTRN to copy the directory 
model back into CME to replace the running directory* Then return to 
START- 


Subroutines 


We shall list the subroutines alphabetically for convenience- 


CKNAME 

This is called at various points by subroutine MAKE, to check a program 
name read from the source file, and to put it in PROG+1 as part of the 
prefix of the new program record* 

The name is in X6 on entry, and is immediately stored in PROG-M- Then 
we check cell ONEDONE- If this contains zero, this is the first program 
to be handled by the present ADD, ADDBCD, ADDCOS, or ADDTEXT function 
card, and its name must match a parameter from the function card that 
has been stored in cell DELA- So we compare the name with cell DELA, 
and if they do not match, abort with an error message. If they do match, 
go to CKNMB* 

If ONEDONE does not contain 0, either this is not the first program 
handled for the current ADD etc* function card, or the function card 
told us to begin at the current position of the source file without 
regard to the name of the first program found. So we do not check against 
DELA, and go to CKNMA* Now UPTO will contain either -1, indicating 
that the ADD etc. function is to continue to an end of file, in which 
case the current name cannot be the terminator, or UPTO will contain 
the name of the last program that is to be taken from the source file. 

So we match the new name against UPTO, and If they are the same, we 
zero UPTO to show that when the ADD routine has finished with this 
program, it will have completed the function card. Then go to CKNMB. 
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At CKNMB we are to make sure the new name does not duplicate a program 
name already in the model directory. But if cell COSFLAG is non-zero, 
we are doing an ADDCOS fox ^'STITCH^^ program; they do not get such a 
check, and we exit from CKNAME immediately. Otherwise, beginning at 
CKNMD, match the new name against all those in the model program name 
table. If we find any matching entry that is not for a ^‘STITCH’’ pro¬ 
gram, abort with an error message; otherwise exit from CKNAME- 

Entry Information 

The program name taken from the input record, in X6- Flags in ONEDONE, 
UPTO, COSFLAG, The current model program name table. 

Exit Information 

The program name has been stored in PROG+l. 

Subroutines Called 

None unless MSGB before aborting- 

Registers Destroyed 

Al, A2, A3, A6, XO, XI, X2, X3, X4, X6- 

COPY 

This Is called by the TRANSFER, ADDTEXT, and COMPLETE routines to copy 
a record from a file being read through FET CBUF to a file being written 
through FET DBUF* It is assumed that the pointers in FET CBUF were 
initialized, and then as much as possible of the beginning of the re¬ 
cord was read, after which the pointers and the status in CBUF were left 
undisturbed. 

When COPY is called, X4 always =0. If it did not, the record would 
also be copied into central memory beginning at the address in X4. But 
this feature is nowhere used in EDITLIB now, and we disregard it here- 

At COPYD, we call subroutine EXC to copy the IN and OUT pointers from 
FET CBUF to FET DBUF, and to re-initialize the pointers in CBUF- It 
Is assumed for COPY that the FIRST and LIMIT pointers in the two FET^s 
are the same on entry, otherwise the re-initialization of CBUF would 
be disastrous* 

Now we call subroutine MCBUF to write FET DBUF- If the buffer con¬ 
tained an integral number of PRU's, this will empty the buffer. If 
it does not contain an Integral number of PRU^s, the status of FET 
CBUF after the preceding read must have been e-o.r*, and subroutine 
EXC has not disturbed this. So what is left over in the buffer as shown 
by the DBUF pointers will not be lost, as the next call to subroutine 
READ will see this status and exit immediately without reading further, 
and we will then write end of record from DBUF to clear out the buffer. 
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(One may object that the two files may use media with differing PRU 
lengths. But the buffer is 1025 words long. So as long as the media 
are either tape or disk, it is impossible to read, starting from an empty 
buffer, in such a way that neither are 1024 words read, nor is the CBUF 
status e.o.r. and as long as there are 1024 words in the buffer, each 
write we do will write all of them to either disk or tape.) 

Having called MCBUF to write as much as possible, we call subroutine 
READ to read on FET CBUF. If the status is already e.o.f., the status 
return is a negative XI, and we go to TRAE to abort, because we have 
not seen the e.o.r. yet and something is wrong. If the status is al¬ 
ready e.o.r*, READ does not read, but exits with a positive non-zero 
XI. If so, we call subroutine MCBUF to write the end-of-record. FET 
DBUF has not been touched since our previous attempt to write. But 
if subroutine READ finds the status is not e.o.f. or e.o.r., our pre¬ 
vious attempt must have emptied the buffer. The pointers in CBUF have 
been initialized by our last call on EXC, and READ will read 1024 words, 
or the rest of the record, and exit with XI = 0. 

On getting the zero response from READ, we return to COPYD above. 

Entry Information 

FET's CBUF and DBUF both refer to the same 1025-word buffer. FET CBUF 
has already been set to empty buffer, and as much as possible has been 
read into it (by subroutine READ in fact). The name of the output 
file is in DBUF. X4,0. 

Exit Information 
None. 

Subroutines Called 
EXC, MCBUF, READ. 

Registers Destroyed 

Al, A2, A3, A6, XI, X2, X3, X6. 

DOCTS 

This subroutine is called several times at the beginning and end of 
EDITLIB to bring to this control point, or make common if now local, 
or release from this control point (being common) the files SYSTEM, 
SSSSSST, and SSSSSSU. The calling sequence isJ 

+ RJ DOCTS 
EQ X 

where x is the address of a cell containing the name of the file, left 
justified with 0 fill in bits 18-59, and 0 in bits 0-17 If we are trying 
to get the file, or 4 if we are trying to release it. 

We put the word x points to in cell CTSHOLD, and then call PP program 
CTS to work on that cell, with recall. The PP program leaves a response 
of 1, 3, 5, 7, IIB or 13B in bits 0-17 of CTSHOLD, and we exit from 
subroutine DOCTS with bits 0-3 of the response in. 
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For the meaning of responses when bits 0-17 of the request word were 0, 
see the comments in the assembly listing at the beginning of subroutine 
DOCTS. When we call DOCTS with bits 0-17 of the request word containing 
we are trying to release the common file, and the response Is 1 unless 
the file was not at our control point, which is impossible* 

Entry Information 

Only the calling sequence- 

Exit Information 
The response in XI* 

Programs Called 
CPC, CTS* 

Registers Destroyed 
Al, A6, X6* 

EXC 


This subroutine is called by the COPY subroutine and the COMPLETE routine, 
to facilitate copying a record* It copies the IN and OUT pointers from 
FET CBUF into FET DBUF and then resets IN=0UT^FIRST in FET GBUF- It is 
assumed that both FET*s refer to the same buffer (BUF in fact)* CBUF is 
being used for reading, and DBUF for writing, and EXC is called after 
reading and before writing* 

Entry and Exit Information 
Only the FET's. 

Registers Destroyed 

Al, A2, A3, A6, XI, X2, X3, X6. 

GETD 


This subroutine calls PP program MDI to copy the running system directory 
from GMR to our field length, beginning at the cell to which DIRPTR points. 
It is called by the MOVE, READY, DELETE, and LIST routines, and also at 
the beginning of EDITLIE, if the control card was not EDITLIB(RESTORE), 
to fetch the directory so that it can be saved on file SSSSSST. 

In cells REQ and REQ^-l, we set up a request for PP program MDI: 

VFD 60/0 
VFD 60/x 

where x is the address in DIRPTR, showing where the directory model is 
to begin. Then call subroutine MDICALL, to call MDI* 
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Now the response in the same two cells Is: 

VFD 30/5^30/1 
VFD 30/k>30/x 

where x is still the same, k is the length of the directory, and b is the 
absolute address at which it begins in CMR* Into cell DIFF we put the 
difference between x and b, which we shall often use (though it is not 
explicitly mentioned in the narrative) when we have to make up pointers 
that will go into a model directory. We know where something Is in the 
model, but the pointer to it in the model itself must point not to the 
cell something occupies now, but to the cell it would occupy if the model 
became the running directory. So in such a case we will subtract the 
content of DIFF from the address to produce the address that must be put 
in the directory; and vice versa on occasion- 

The first word of the directory contains only a pointer to the word between 
the entry point table and the program name table* We put the address of 
that word, l.e. its address in our model. In cell PNT- That word, in turn, 
contains the address of the last+1 word of the program name table; we put 
into cell BOD that address as it relates to our model* It is also the 
address of the first word of a CM-resident program body. Then we find 
the last+1 address of the whole directory model, and save it in cell BEND- 
Then exit from GETD. 

Entry Information 

The pointer in DIRPTR, to our directory model area- 
Exit Information 

The copy of the directory in our field length, and cells DIFF, PNT, BOD 
and BEND as explained above* 

Subroutines Called 
MDICALL. 

Registers Destroyed 

Al, A2, A5, A6, XI, X2, X5, X6, E2. 

GROW 

This is called only once, in the LIST routine, to bring the entry point 
table and program name table of some system file, not of the running system, 
into our field length so that we can list the programs and entry points 
in the file. 

We set X3 to point to the second word of our directory model area, and 
then call subroutine GROWA to read the next record of the file named in 
FET GBITF into the area beginning there. This file is presumably a system 
file* and has already been positioned at the beginning of the entry point 
table (immediately following DSD), by the LIST routine. On exit from GROWS, 
X3 points to 


14-75 


March 1969 



SCOPE 


the first unused cell. We store this address in PNT, since in for a well- 
formed directory model, PNT is supposed to point to the word between the 
entry point table and the following program name table. Then increase 
X3 by 1, to skip over that word, and call subroutine GROWA again to read 
the next record of the file, which should be its program name table, into 
the next section of our directory model* On return, again, X3 has the 
address of the first unused cell. We put this in cell BOD, which, for a 
well-formed directory model, should point to the last+L word of the program 
name tabla¬ 
in order to make this directory model look as if we had copied it from the 
running directory, we must fix up the first word, and the word between the 
entry point table and program name table- But in order to set those pointer 
words correctly, we should know the real absolute address at which the CMR 
directory begins. So we format the request 

VFD 12/3,48/0 
VFD 60/anything 

in cells REQ and REQ+1, and call subroutine MDICALL to call PP program 
MDl to carry out this request. All it does is return the absolute 
address of the CMR directory to bits 30-59 of cell REQ. This enables us 
to find the right value to put in cell DIFF, as well as to set up the 
pointers in the first word of the directory model, and the word between 
the entry point table and the program name table. 

What is described in the preceding paragraph is really needless as we could 
just as well have set DIFF to contain zero and gone ahead on that basis. 

In turn, the capacity of PP program MDI to respond to this '^type 3” request 
is unnecessary, as this Is the only place in which it Is used- 

Earlier in the development of EDITLIB, it was supposed that one might bring 
in a directory from a system file by means of subroutine GROW, and after 
modifying it use it to replace the running directory. The waste motion 
in GROW has to do with that possibility, which was later elimlnated- 

Entry Information 

FET CBUF must be set up to handle the relevant file, and the file must be 
positioned at the beginning of the entry point table. 

Exit Information 

What looks like a directory model. 

Subroutines Called 
GROWA, MDIGALL. 

Registers Destroyed 

Al, a2, A3, A5, A6, XI, X2, X3, X5, X6, B6, B7. 

GROWA 


This is called only by subroutine GROW, at two points, to read the next 
record from the file named in FET CBUF into the area beginning at the address 
in X3, and to leave X3 pointing to the first unused cell. 
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First, call subroutine READ to begin reading the file named in FET CBUF, 
and to leave B6 and B7 containing the OUT and IN pointers from the FET 
after the read. On return from READ, XI negative means that an end-of- 
file was read; so we abort with a message* A positive non-zero means that 
an end-of-record was read on the preceding call to READ, so that if we 
copied everything out of the buffer following that call, we are now through 
with the record, and exit from GROt^A- If Xl contains zero, new information 
has been read from the record into the buffer, and B6 and B7 point to the 
first and Iast+1 words of this information. So we now copy this information 
word by word to where X3 points, increasing X3 by 1 after each word, and 
return to GROWB to continue. 

Entry Information 

The file must be correctly positioned, and FET CBUF must be set up for 
reading it. Bit 0 of word CBUF must be 1, and bit 4 must be 0 (i-e. no 
e.o.r. status X3 points to the first cell into which to copy). 

Exit Information 

FET CBUF is left with status = 03B; the file has been read one record for¬ 
ward; X3 points to the cell next after that into which the last word of 
the record was copied. 

Subroutines Called 
READ- 

Registers Destroyed 
Al, A6, XI, X6, B6, B7. 

.. 

LIST 

This subroutine (it is not the LIST function routine, which begins at LIST) 
is called whenever something is to be written on the OUTPUT file. The 
calling sequence is: 

RJ LIST 

VFD 30/a,30/b 

meaning, that from a through b-1 is a line to be listed. The line must 
begin with the appropriate format character (1 or blank). 

We merely pick up the, parameter word from the calling sequence and put it 
in the sixth word of FET OUTPUT, to indicate the workspace; then call sub¬ 
routine lOWRITE (in program 10) to write it out. 

Entry Information 

Only the calling sequence. 

Exit Information 
None. 
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Subroutines Called 
lOWRlTE. 

Registers Destroyed 
Al, A2, A6, XI, X2, X6. 

LOC 

This subroutine is called by the DELETE and MOVE routines to search the 
model program name table for the entry for a program whose name is in cell 
DELA. 

The directory model is assumed to have been correctly set up, along with 
pointers DIFF, PUT, BOD, and BEND. We get the pointers to the beginning 
and end+1 of the program name table, and put them in B2 and B3. Then 
initialize B4 at 0, as a program number counter. Then scan the program 
name table for a match to the name in DELA, increasing B4 by 1 after each 
P.N.T. entry has been rejected. If no match in the whole table, we give 
an error message and return to START. But if there is a match, B2 points 
to the P.N.T. entry, and B4 contains the program number. We leave these 
registers unchanged, but store them in HOLD and HOLD+1, and then exit. 


Entry Information 

A directory model, and a program name in cell DELA. 

Exit Information 

The address of the program name table entry with the same name, in B2 and 
HOLD; it s program number in B4 and HOLD+1. 

Subroutines Called 
None. 

Registers Destroyed 

Al, A2, A6, XO, XI, X2, X3, X6, B3. 

MAKE 

This subroutine is called at two points in the ADD routine to read a record 
from a source file and format it as a system file record in the area be¬ 
ginning at PROG, with overflow on file SSSSSSX if the new record is over 
4003B words long. If the record is a CP program, MAKE stores the number 
of entry points in EPLIST, and their names in EPLIST+1 ff. Otherwise, 
EPLIST is set = 0. 

First we zero EPLIST. Then get the name of the SOURCE file from DELA+2. 

If it is "SYSTEM", go to MAKX to locate the input record from the model 
program name table. Otherwise, call subroutine PCBUF to prepare FET CBUF 
to read the source file. Now if DELA+4 contains non-zero modify CBUF to 
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read BCD instead of binary. Now we are at MAKA. Call subroutine READ 
to read as much as possible of the input record into the GBUF buffer 
(BUF ff.) and return with the response in XI, the starting address of 
the information read in B6, and its end+1 address in B7. If the response 
is non-zero, we can assume it is negative meaning an end-of-file was read. 
(PCBUF set the FET status to non-e.o.r,, and if READ then read an e.o.r., 
the response would not show it until the following call to READ.) If 
e.o.f., we go to HAKB. This can only be legal if the function card was 
one of the two types: 

ADD(x-*,f,r,e) 

ADD(*,f,r,e) 

and if ONEDONE is non-zero, showing that at least one program has already 
been assembled for this ADD function card. For either of those two for¬ 
mats, UPTO was initially set to -1. So now unless UPTO contains -1 and 
ONEDONE is non-zero, we abort with a message. Otherwise, we need not go 
back from the MAKE subroutine to the ADD routine, but can return straight 
to START. 

If the response from the call to READ at MAKA was zero, we see whether 
the first word of the record begins with 7700B. If so, we assume it has 
a prefix, and go to MAKG. If not, we must be doing either an ADDCOS, 
and reading a Chippewa 1.1 CP program, or something of the ADDBCD/ADDTEXT 
type, and reading a BCD record beginning with a simple name card. First 
we test cell COSFLAG; if it is non-zero, we are doing ADDCOS; otherwise 
go to MAKI. If ADDCOS, the first word of the record should be the name; 
we pass it through subroutine CKNAME,which checks it for plausibility and 
stores it at PRCG+l;then go to MAKL with X6=4, the type number for "STITCH” 
programs. 

If we come to MAKI, hoping for ADDBCD/ADDTEXT action, the first word of 
the record should also be the program name, but it will have blank and 
zero fill on its right, instead of zero fill. So between HAKAT and MAKAW 
we check that this word begins with plausible characters, possibly 
followed by blanks, possibly followed by zero bytes. (Note that we do not 
check the length of the name; however, subroutine CKNAME will curtail it 
to 7 characters.) Then call subroutine CKNAME to check the name for dupli¬ 
cation and store it in PRDG+1. Now as we are going to turn the record 
into an overlay, and we do not want the first word of its body to be its 
name any more, we replace the first word in the read buffer, which was 
the name, by 5000010lOOOOOOOOOOOOB, which is proper as the first body 
word of an overlay. Then go to MAKL with X6=2, the type number for an 
overlay. 

Let us return to the case when the input record does begin with a prefix. 

We come to MAKG, extract the prefix length from its first word, and store 
the length at PLENG. Then see if the first word of the prefix ends with 
7777B. If so, the record is already formatted for system files, as only 
EDITLIB writes this kind of prefix. If so, see If it is type 4 ("STITCH") 
and if not of that type, go to MAKGH. If "STITCH!', do not use subroutine 
CKNAME, as we need not check for name duplications, but merely store the 
name at PROG+1 and go to MAKGL. But if no "STITCH", go to MAKGH as if the 
record were not already formatted. At MAKGH, call subroutine CKNAME to 
check the record name for duplication and store it at PROG+1. 
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If the record was not already formatted in system file form, we also went 
to MAKGH to call CKNAME. So after calling CKNAME, we again check if it 
was formatted in system file form* If so, go to MAKGL; if not, to MAKK. 

We come to MAKGL if the record name is acceptable, and the record is already 
in system file form. We extract the body length from the second word of 
the prefix. But if this is zero, the record was not already formatted 
after all (it is conceivable that some program might produce a binary 
record beginning with a prefix whose first word ended in 7777B, but surely 
the name would be in the second word with bits 0-17=0. Only a system- 
formatted record would have those bits utilized for the body length) and 
we go to MAKK. Otherwise, store the third word of the record at PROG+2, 
extract its type code and save it at EPLIST, call subroutine PRIG to copy 
the rest of the input record into PROG+3 ff- (using file SSSSSSX for over¬ 
flow if necessary)and continue at MAKOl. This is the only way of arriving 
at MAKGM. 

Between MAKGM and MAKGA we consider the following: For the residence code 
and edition number, we must use, in descending order of preference, 

a. codes explicitly given on the function card. 

b. codes taken from the running directory, if the program is copied from 
the running system. These, or at least the residence code, might not 
be the same as that in the prefix of the record itself, if a "MOVE" 
had been done previously. 

c. codes taken from the prefix of the record, if it is already formatted 
as a system file record. 

d. residence 1 for disk, and edition number 0. 

So if we have just taken a record from "SYSTEM", we replace the re¬ 
sidence and edition codes from the program name table and insert them 
in the prefix of the record at PROG+2, so as to enforce the preference 
of b. over c. above. 

Between MAKGA and MAKFA, in turn, if there were explicit codes on the function 
card (non-negative numbers now in DELA+3 and/or REDAC), we insert them in 
the prefix in PROG+2 to enforce the preference of a. over b. above. Then 
rejoin, at MAKFA, the sequence that begins at MAKK. 

At MAKK, we start dealing with a record that is not already formatted as 
a system file record. By the prefix length saved in PLENG, advance the OUT 
pointer in B6 so as to skip the prefix, which has no further Interest. Now 
we must decide what kind of program this is, according to the first word 
of its body. If this, word begins with 5000B, it must be an overlay, and 
we go to MAKL with 2 in X6, as the type number. If the word begins with 
3400B, we must have a CP program, and we go to MAKL with 1 in X6. Other¬ 
wise, go to MAKL with 0 in X6, the type number for a PP program. The body 
of a PP program begins with its name, which must have 3 characters, so it 
could not possibly start with 5000B or 3A00B. 

We may also have come to MAKL from a point further back, with 4 in X6 be¬ 
cause we are doing ADDGOS, or 2 in X6 because we are turning a BCD record 
Into an overlay. In any case, the record is not already formatted as a 
system file record, so the choices for residence and edition number codes 
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are only a* and d,, as explained in the third paragraph back, and if ex¬ 
plicit codes were given on the function card, as indicated by non-negative 
n^Imbers in DELA-f3 and/or RED AC, we insert them in PROG+2; otherwise use 
1 for residence and 0 for edition number* Then call subroutine PRIG to 
copy the rest of the input record Into PROG+3 ff*, using file SSSSSSX as 
overflow if necessary, and go to MAKFA* 

When we get to MAKFA, we have set up the properly-formatted program record 
in PROG ffp, using file SSSSSSX as overflow if necessary, and subroutine 
PRIG has extracted the entry point names, if any, putting their count in 
EPLIST and storing their names at EPLIST+1 ff- Now, if ONEDONE contains 
0, we set it to 1 to show that at least one program has been handled for 
this ADD function card* This means that an end-of-file may be acceptable 
on the source file the next time MAKE is called, and that the name of the 
next record on the source file need not be checked with the first program 
name on the function card- If ONEDONE is already non-zero, we carefully 
leave it alone, because it may contain a pointer to an entry in the program 
name table at SDIR ff. 

Then we exit from subroutine MAKE. 

Entry Information 

DELA+4 contains non-zero if the source file is to be read in BCD* I)ELA+2 
contains the name of the source file, or ^^SYSTEM^^ (which means the record 
may actually be on SYSTEM or on SSSSSSU)- 

DELA contains the name of the first program mentioned on the function card. 

ONEDONE contains 0 unless either MAKE has already been called during the 
execution of this function card, or the card was of the type ^^ADD(*SYSTEM, 
res,edn)^^ in which latter case ONEDONE points to the cell 2 below the next 
model program name table entry to be used. 

UPTO contains 0 if the function card called for a single program to be 
added, or the name of the last program to be added, or -1 if the function 
card called for continuing to the end of the source file. 

DELA+3 contains the numerical residence code translated from the function 
card, or a negative number if this was absent. 

REDAC contains the edition number translated from the function card, or 
a negative number if this was absent. 

Exit Information 

ONEDONE is non-zero. .If the source is ^^SYSTEM”, it contains the address 
of the entry in the model program name table in SDIR ff., that was just 
used- 

PROG ff. contains the new record, that the ADD routine will now write out 
on file SSSSSSS or SSSSSSU. 

SXCT contains either 0, in which case the new record is entirely in PROG ff., 
or some number k such that the first three words of the record are in PROG 
through PROG+2; the next k*4000B are at the beginning of file SSSSSSX, and 
the remainder are in PRGGh3 ff. The size of the remainder can be found 
from the total length of the program, -3, contained In its prefix in PROG+1. 
FET DBUF is set up so that writing end-of-record on it will send the re¬ 
mainder to file SSSSSSX once the IN pointer is correctly set. 
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Subroutines Galled 
PCBUF, CKNAME, READ, PRIG. 

Registers Destroyed 

ALL but AO, A4, A5, X5, BL. 


MDICALL 

MCBUF 

This is called at many places in EDITLIB to read, read-skip, write, write 
e.o.r., write e.o.f., backspace, or rewind the file named in FET CBUF or 
DBUF. The calling sequence Is 

+ RJ MCBUF 

JP f 

if FET CBUF is to be used, or 

+ RJ MCBUF 

EQ f 

the 
14B, 


it with 
in MCBUFB. 

Then set A1 to point to the proper FET, according to the calling sequence, 
and call subroutine CPC to format and issue the PP request. 

Entry Information 

The calling sequence and the pointers in the FET to which it refers. 

Exit Information 
None. 

Subroutines Called 
CPC (in program CPC). 

Registers Destroyed 
Al, A2, A6, XI, X2, X6. 


if FET DBUF is to be used; f is the appropriate function code with 
mode bit 0 whatever the mode of the file; i.e. f will be lOB, 20B, 
24B, 34B, 40B, or SOB. 

We Isolate the function code from the calling sequence and ccXQbine 
the name "CIO" and a recall bit into a request word which we store 


MCBUFC 

This subroutine is called whenever a request for PP program MDl has been 
set up in cells REQ and REQhl, to call MDI. There is not much point to 
this subroutine; the checking for completion that it does is unnecessary. 
At a certain stage in developing EDITLIB, MDI had to be elaborately simu¬ 
lated, and it was worthwhile then to have a subroutine. 

Entry Information 

The request in REQ and REQhl. 
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Exit Information 

The response in BEQ and REQ+L. 

Subroutines Called 
CPC (in program CPC). 

Registers Destroyed 
AL, A6, XI, X6. 

MEM 

This is called at the beginning of EDITLIB to make sure there is room in 
our field length for a directory model 30000B words long. Later it Kiay be 
called by the LENGTH routine to expand the field length. The calling se¬ 
quence is 

RJ MEM 

DATA X 

where x is the maxijinmi length for a directory model. Then the field length 
is to equal at least xi^+lOOB, where y is the starting address for directory 
models, given in DIRPTR. The present field length, minus lOOB, is stored 
at BENDLIN. If this is already enough, exit from MEM without doing anything. 
Otherwise, set up a request in cell HOLD for the required amount and then 
call PP program MEM through subroutine CPC. Also update BENDLIN. 

Entry Information 

The calling sequence, DIRPTR, BENDLIN. 

Exit Information 
BENDLIN updated. 

Subroutines Called 
CPC (in program CPC). 

Registers Destroyed 
Al, A6, Xl, X6. 

MSGB 


This is not a complete subroutine, but a variant entry for subroutine LIST. 
As for LIST, the calling sequence is 

RJ MSGB 

VFD 30/a,30/b 

where a message extending from a through b-1 is to be written as one line 
on the OUTPUT file. But this is to be preceded by a listing of the current 
function card. So first we call LIST from MSGB, to list the function card 
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with a blank word before it for the sake of the format character. Then 
simply move the entry word from MSGB to LIST and branch to LIST+l, as if 
LIST rather than MSGB had been called in the first place. 

Entry Information 

Only the calling sequence. 

Exit Information 
None. 

Subroutine Called 
LIST 

Registers Destroyed 
Al, A2, A6, XI, X2, X6. 

PCBUF 

This is called at various points, with a file name in XI, to prepare FET 
CBUF for reading the file into buffer BUF. If bits 0-17 of XI are zero, 

■the mode is set to binary. Otherwise, the mode is set according to bit 
1 of XI. We put the file name in bits 18-59 of cell CBUF, OOOOOIB or 
000003B (according to mode) in FIRST pointer. It is assumed that the 
FIRST pointer always points to BUF, and the LIMIT pointer to BUFH-2001B. 

Entry Information 

A file name, possibly along with a status code, in XI. 

Exit Information 
None. 

Subroutines Called 
None. 

Registers Destroyed 
A6, A7, XI, X6, X7- 

PRIG 

This is called at two points in subroutine MAKE to copy the rest of the 
input record into PR0G+3ff., after the first three words of the new program 
record have been formatted in PROG through PR0 Gt 2. B6 points to the last 
word of the prefix of the input record (counting a BCD record whose first 
word is its name as having a one-word prefix). 
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First we set FET DBUF to write on file SSSSSSX using the area between 
PROG+3 and PROG+4002B as its buffer. We shall need this only if the re¬ 
mainder of the input record turns out to be more than 3777B words. Now 
we ^ero SXCT, the count of how many times we have written 4000B words on 
file SSSSSSXj and call subroutine MCBUF to rewind the file. If the file 
does not already exist, this creates it, and in any case we fortunately 
do not care whether it existed before* or was common or local, as long 
as we can write on it. 

Next we set B2 to PROG+3* the address at which to start storing the body 
of the output record. Now check the program type number at EPLIST. If 
this is I, go to the more complicated section of the subroutine at PRAG, 
because this is a CP program and we have to extract and list the entry 
points- Otherwise, merely zero EPLIST, which now becomes the count of entry 
points. This brings us to PRIGA. Between PRIGA and PRIGC we copy words 
from the input buffer (B6 contains the OUT pointer and B7 the IN pointer, 
in effect) to the output buffer; putting a word in the output buffer is 
done simply by calling subroutine PRUG with the word in X6- When B6=B7, 
call subroutine READ to re-fill the input buffer, and to reset B6 and 
B7. When the response from READ, in XI, Is 0, we continue processing. 

If the response Is negative, have struck an end-of-file and abort with 
a message. If the response is positive non-zero, we reached an end-of- 
record during the preceding call to READ; having transferred all the words 
that were read by that call* we have now completed the record and go to 
PRIGC. 

At PRIGC, we check DELA+4. If this is zero, go straight to PRIGCA. Other¬ 
wise, we must be doing an ADDTEXT, ADDBCD, or ADD with minus as the first 
parameter. For^ the particular type of overlay this is to make up, the 
ultimate user of the overlay wants the last word to be 77777777777777777777B, 
so we now pass such a word through subroutine PRUG to add it to the end 
of the output record. Then go to PRIGCA. 

At PRIGCA, we find the length of the body of the output record (i.e. the 
length of the whole record minus 3 for the prefix) and put it in bits 
0-17 of FROG+1; then exit from PRIG. The length is found by subtracting 
PROG+3, the starting address of the body, from the content of B2, which 
points to the next unused word in the buffer, and adding 4000B times the 
content of SXCT, which gives the number of words that have been written 
out on file SSSSSSX. 

We come to PRAG when we find we have to deal with a CP program and its 
entry points. First set B3 to EPLIST+1, where the list of entry point 
names in the program is to begin. The program record must be divided 
into ^^tables”, and at PEAGF begins the cycle for dealing with each table. 

At PRAGF, if the input buffer is not exhausted, go to PRAGA. If It is 
exhausted, call subroutine READ; now if the response is negative, we 
have struck end-of-flle* and abort with a message- If the response Is 
positive non-zero, the last READ call* whose harvest we have already pro¬ 
cessed* gave an end of record, and we go to PRAGB to store the number of 
entry points in EPLIST and go to PRIGC. Actually we might as well go to 
PRIGCA at this point. There we put the length of the body of the new 
record in its prefix, and exit from PRIG- 
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But if the response from READ Is zero, B6 and B7 have been reset, and we 
go on to PRAGA. Here we pick up what must be the first word of a table; 
save its length-1 In B4, and set X3=0, if and only if the word begins with 
3600B, indicating that this is a table of entry points. Now, at PRAGE, 
call subroutine PRUG to store the word in the output buffer. Then if B4 
= 0, the table is exhausted and we go back to PRAGF to begin the next 
table, or end the program. Otherwise, we get the next word of the input 
record, and count down on B4. (If the input buffer is exhausted, we call 
READ; either an e.o.f. or an e.o.r. response will cause an abort here, 
because it is intolerable for the record to end in the middle of a table.) 

If X3 is not * p, we are not in an entry point table and can merely go 

back to PRAGE to store the word and pass on. If X3 = 0, the word may be 

either an entry point name, or the corresponding value. If bits 54-59 
of the word are 0, it is the value, and we merely go back to PRAGE. Other¬ 
wise, it is the name, and we store it at B3 and step B3. Then go back 

to PRAGE to store the word in the output buffer as well. 

Entry Inf oimiation 

PROG, PROG+1, PROG+2 are already set up. FET CBUF is set up for reading 
the input file; subroutine READ has been called once to start reading this 
record, and the FET has not been touched since then. B7 still contains 
the IN pointer from that FET, and B6 is our effective OUT pointer, pointing 
to the last word of the prefix of the input record. EPLIST contains the 
type number of the record - 0 for PP program, 1 for CP program, 2 for over¬ 
lay, 4 for "STITCH" program. 

Exit Information 

The number of entry points is in EPLIST, and they are stored in EPLlST+1 ff. 
The length of the program record body has been filled into bits 0-17 of 
the second word of its prefix, at PROG+1. If SXCT contains 0, the output 
program record is complete in PROG ff. Otherwise, SXCT contains a number 
k such that the first three words of the record are in PROG through PROG+2; 
the next k*4000B are at the beginning of file SSSSSSX, and the remainder 
ate in PROG+3 ff.; FET DBUF is set up so that writing end-of-record on it 
will send the remainder to file SSSSSSX once the IN pointer is correctly 
set. 

Subroutines Called 
READ, PRUG, MCBUF. 

Registers Destroyed 

Al, A2, A6, XI, X2, X3, X6, B2, B3, B4. B5, B6, B7. 

PRUG 

This is called only from several points in subroutine PRIG, to put the 
word in X6 into the next available position in buffer PROG, updating B2 
accordingly, and to put the overflow on file SSSSSSX if necessary. 
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On entry, the address of the next available word in the buffer is in B2. 

We store the word there, and Increase B2 by 1. If it now = PBOG+4003B, 
the buffer is full; otherwise exit from PRUG. 

If the buffer Is full, we set the IN pointer of FET DBUF to PROG+A003B 
and call subroutine MCBUF to write on it. The FET has already been pre¬ 
pared so that this causes PROG+3 to PROGf4002B inclusive to be written 
as an integral number of PRU's on file SSSSSSX. Then we reset the IN 
and OUT pointers of the FET to PROG+3, add 1 to the content of SXCT, re¬ 
set B2 to PROG+3, and exit from PRUG. 

Entry Information 

X6 contains a word to be stored in the PROG buffer; B2 contains the address 
of the next cell available for storage. FET DBUF is set up as to every¬ 
thing but its IN pointer to write from PROG+3 on, to file SSSSSSX. 

Exit Information 

B2 is updated. If the word just stored filled the buffer, SXCT has been 
increased by 1. 

Subroutines Called 
MCBUF 

Registers Destroyed 
Al, A2, A6, XI, X6, B5. 

RPR 

This subroutine is called at two points in the SKIPF routine to read the 
beginning of a record using FET CBUF, and then skip if necessary to the 
end of the record. On exit, XI will contain 0 normally, or non-zero if 
an end-of-file was read. 

We get the file name out of CBUF itself, and call subroutine PCBUF to reset 
the status to 1 or 3, and to set IN^tTP^FIRST in FET CBUF. Then call sub¬ 
routine MCBUF to do a read-skip. Then check for end-of-file response in 
the FET and exit with the corresponding value in Xl. 

Entry Information 

The file name and mode in CBUF. 

Exit Information 

FET CBUF as altered by the read-skip, XI contains 0 unless an end-of-file 
was read. 

Subroutines Called 
MCBUF, PCBUF. 

Registers Destroyed 

Al, A2, A6, A7, X2, X6, X7. 
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READ 

This Is used to begin reading a record through FET CBUF, by the TRANSFER, 
ADDTEXT, and COMPLETE routines, and by subroutines COPY, MAKE, PRIG, and 
GROWA. 

On entry, we see whether bit 4 of CBUF is 1, indicating a previous e.o^r. 
or e»o*f, status* If so, go to READF, zero that bit, and exit with Xl~l» 
Otherwise, with the first word of FET CBUF already in XI, call subroutine 
PCBUF, which sets the FET status to 1 or 3, and sets the pointers IN^UT= 
FIRST (=_in fact BUF). Then call subroutine MCBUF to read the file. If 
the status afterwards is end-of-file, reset it to 1 or 3 and then exit from 
READ with XI negative. Otherwise, go to READA. Set B7 to the IN pointer, 
and B6 to address BUF, which must be the value of the OUT pointer. Before 
exiting, see if B6=B7. If so, we must have just read a zero-length PRU 
that ends a record, and as there is no more information to pass back from 
READ, we might as well give the e.o.r. indication. So we go back to REAI>^1 
as though we had returned to the calling routine with Xl^ and B6=B7, and 
the calling routine had simply called READ again. 

Entry Information 

The first word of FET CBUF. 

Exit Information 

B6 and B7 contain the addresses of the first and last+1 words of information 
in the buffer, with no circularity, if X1=0. If XI is positive non-zero, 
there is no information In the buffer, and the FET status is end-of-file 
and we have done nothing with the pointers. 

Subroutines Called 
PCBUF, MCBUF. 

Registers Destroyed 

Al, A2, A6, A7, XO, X2, X6, X7. 


RECALL 


This subroutine is called several times near the beginning of EDITLIB, 
while we are waiting for a common file at some other control point to be 
released and become available. REC AT 1 1 merely calls CPC to relay an RCL 
call to monitor, so as to drop the central processor while waiting for the 
common file. 

Entry and Exit Information 
None. 

Subroutines Called 
CPC (in program CPC). 

Registers Destroyed 
Al, A6, XI, X6. 
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RES 

This is called by the MOVE and ADD routines to translate a symbolic re¬ 
sidence code, taken from a function card, into a numerical code that is 
suitable for the four-bit field in the second word of a program name 
table entry. 

We enter RES with the symbolic code in XI* If XI contains zero, it means 
we have gone past the Last parameter on the function card, and are now 
taking a ^^missing parameter” from the breakdown list. In that case we 
immediately exit from RES with a negative number in X6 for a response; 
the ADD routine will take this to mean ”use the residenGe already in the 
record prefix, if it is formatted for a system file, and otherwise call 
it disk-re sident”- 

Otherwise, we match the code in XI with successive words in table RESA, 
stopping on a zero word in the table. If a match is found, exit with the 
ordinal of the matching table word in X6, i.e. 0 or 1. If no match go 
to MSGA to give a message and go back to START, thus abandoning this 
function card. 

If and when other residences become available, their symbolic codes should 
be put in table RESA between ”DS” and the terminal zero. 

Entry Information 

The s 3 mibolic residence code in XI. 

Exit Information 

Its numerical equivalent in X6, or negative X6 if XI was initially 0 
showing an absent parameter- 

Subroutines Called 
None. 

Registers Destroyed 
A2, X2, B2. 

RTRN 

This subroutine is called by the MOVE, DELETE, and COMPLETE routines to^ 
copy a directory model into central memory resident to replace the running 
directory* It is also near the beginning of EDITLIB if the control card 
is ”EDIXLIE(EESTORE)” to restore to CMR a directory that had earlier been 
saved on file SSSSSST, and has just been read back from it. 

The model directory is assumed to be completely formatted, except that the 
word between the entry point table and the program name table has to have 
inserted in bits 24-Al the address of the first P.N.T. entry for a non- 
PP program, or 0 if by chance there are no non-PP programs- Bits 0-17 
contain the address of the l 3 StH“l word of the program name table, and this 
we leave unchanged. 
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So we begin by locating the word between the entry point table and the 
program name table, and zeroing bits 18-59. Then we scan the model pro¬ 
gram name table from the beginning until we find an entry whose type code 
is not zero- If none such, go on to RTRNK, otherwise, put the address 
of the first one found. Into bits 24-41 of that word. Note that this 
address is calculated artificially so that it will be correct once the 
model directory Is transferred to CMR* 

At RTRNK, we construct in cells EEQ and REQ+1 a request for PP program 
MDIC 

VFD 12/1,48/0 
VFD 30/a,30/b 

where b is the starting address of the directory model, taken from cell 
DIRPTR, and a is the length of the model, found by subtracting the con¬ 
tent of DIRPTR from the content of BEND- Finally, call subroutine 
MDIC ALL, which calls PP program MDI to obey the request by replacing 
the running directory with this model. For information on how the SCOPE 
system is protected during this change of directory, see the notes to 
program MDI. 

Entry Information 

A we11-formed directory in the space beginning where DIRPTR points, ex¬ 
cept for the one pointer whose insertion is mentioned above; the pointers 
In DIRPTR, PNT> BOD and BEND. 

Exit Information 
None. 

Subroutines Called 
MDICALL 

Registers Destroyed 

Al, A2, A6, A4, XO, XI, X2, X4, X5, X6, B3, B4. 

This subroutine is called by subroutines SQB and SQE- It goes through 
the model program name table and subtracts the number in bits 0-17 of XO 

from the C^-address in the entry for every CM-resident program entry- 

However, it does not touch such an address if already less than X5. 

SQA is called by SQE when we have just removed some P-N-T- and E-P.T- 

entries from the model directory; as these lie below all bodies of CM - 

resident programs, all the addresses of those bodies have been effectively 
reduced. So we come into SQA with XO = the number of table words removed, 
and X5 = 0 so that the whole program name table is covered* 

SQA is called by SQB when we have just removed a body from the model 
directory. ¥e enter SQA with the length of that body in XO and its former 
starting address in X5, so that only the addresses of bodies that lay be¬ 
yond it are reduced. 
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Subroutine SQA begins by shifting the number in XO to correspond with 
the CM - address field in the words it may have to be subtracted from. 

Then check cell DESTIN. If it does not contain 0 or 1, we can exit from 
SQA without doing anything, because the model directory does not contain 
any bodies anyway. It must be for a new system file, and CM-addresses 
will be filled into the program name table as necessary if and when that 
file is dead-started. 

At SQAT we get from PNT and BOD the pointers to the first-1 and last+1 
words of the program name table. Then we scan the whole table; ignore 
non-GM-resident entries; and for each CM-resident reduce its CM-address 
by XO if it is previously greater than X5. Then exit from SQA. 

Entry Information 

A well-formed directory model, with pointers in PNT, BOD and BEND. A file 
name in DESTIN if we are between a READY (file name) function and an ex¬ 
pected COMPLETE function; or 1 in DESTIN if we are between READY (system) 
and COMPLETE or 0 in DESTIN if we are not between READ and COMPLETE at 
all. In the last case, we must be doing a MOVE or DELETE function for 
a single alteration of the running system. XO contains a reduction con¬ 
stant, and X5 contains a threshold address below which a CM-address is 
to be exempt from reduction. Note that the address in X5 (except for the 
trivial case X5=0) is not the address of a body in the directory model, 
but the address the body would begin at if the model became the running 
directory. 

Exit Information 
None. 

Subroutines Called 
None. 

Registers Destroyed 

Al, A6, XO, XI, X2, X6, B4, B7. 


This subroutine is called by the MOVE and DELETE routines to remove from 
the model directory the body of a program that is either being deleted 
altogether, or being degraded from CM-resident status, and to adjust as 
necessary the CM-addresses of other programs in the model program name 
table- 

On entry to SQB, the address of the model program name table entry of 
the program being deleted or moved is in B2. First refer to that entry 
(if by chance it were not now for a CM-resident program, there would be 
a disaster) and put the CM-address of its body in XI and the length of 
its body in B4. Then add the constant in KDIFF to XI so as to get the 
address of the body in the model, rather than in the CMR directory. We 
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also zero the CM-address field in the program name table entry, so as to 
leave it free, if this is a MOVE rather than a DELETE, for the additional 
part of the disk address or eventually for the address in some other kind 
of storagep Now we subtract the length of the body to be removed from 
the pointer in cell BEND, which is supposed to be the address of the last+1 
word of the directory model* 

We have the starting address of the body to be removed in B3, its length 
in B4, and the new endri-l address of the directory model in B7 p If B3 — 

B7, the body to be removed was the last thing in the model, so we need not 
do any shifting and exit from SQB- Otherwise, move everything between 
B3+B4 and B7+B4-1 back B4 words in memory. Now the pointers to all the 
bodies we have just moved back will have to be reduced by B4, We call 
subroutine SQA for this. It requires XO to contain the number to sub¬ 
tract from the relevant CM-addresses in program name table entries, and 
XO already = B4- SQA also requires that X5 contain a number which any 
such CM-address must be above in order to require reduction by XO- We 
already have in X5 the address as it was in the program name table entry, 
of the body we have just removed, and this is correct for SQA- (Note 
that X5 is the address of the body as it would be in the CMR running 
directory, not as it is in our model directory area, which is why we had 
to add the content of DXFF to X5 to get B3-) Then exit from SQB- 

Entry Information 

A we11-structured directory model, with pointers in DIFF, PNT, BEND; the 
address of the relevant model program name table entry in B2- 

Exit Information 

The model and pointers have been updated. 

Subroutines Called 
SQA. 

Registers Destroyed 

Al, A2, A3, A6, all X, B3, B4, E6, B7. 

SQE 

This subroutine is called only by the DELETE routine, to remove from a 
directory model the program name table entry and entry point table entries 
for a program- On entry, B4 is the number of the program. 

First we remove the program name table entry- We locate the word that 
follows this entry in the directory, and the last+1 word of the whole 
directory model. Then reduce the pointers in BEND and BOD (pointers to 
the end+1 of the whole directory, and to the end+1 of the program name 
table) by 2- Then, at SQER, move everything above the P.N.T. entry to 
be removed, back two words. 

Next we have to remove all the entry point table entries for this program. 
Also, because removing the program name table entry has effectively re¬ 
duced by 1 all higher program numbers, we must reduce them accordingly 
In the entry point table. So we set pointers to the beginning and end+1 
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of the entry point table^ and preset B5^-0 a counter of entries removed* 

B4 is still the program number of the removed program* For each entry 
point table entry, if its program number ^ B4, we simply increase B5 by 
1. If its program number is below B4, we replace it B5 cells lower than 
where we found it- If its program number is above B4, we reduce its pro¬ 
gram number by 1 and then replace it B5 cells lower than where we found 
it- 

After this, if B5=0, no entry point table entries were removed and we go 
straight to SQEF- Otherwise, we reduce by B5 the pointers in PNT, BOD, 
and BEND, as we have removed B5 words from a section of the directory 
model which they all point beyond- Then, at SQED, move everything in 
the directory model that lies after the entry point table back B5 words- 

We come to SQEF when we have removed 2 program name table words and B5 
entry point table words from the directory model and shifted everything 
back to close up the gaps, and adjusted pointers PNT, BOD, and BEND, the 
word between the E-P-T. and P-N.T-, and the first word of the directory- 
It remains to reduce by B5+2 the CM-addresses for all CM-resident pro¬ 
grams in the program name table, since all bodies have been moved back 
this much. So we set X0=B5+2, as the reduction constant, and X5=0, as 
the number which a CM-address must exceed if it is to be reduced (i-e- 
all CM-addresses are to be reduced)- Then call subroutine SQA to do 
the reduction, and then exit from subroutine SQE- 

Entry Information 

A well-structured directory model, with pointers in DIFF, PNT, BOD, and 
BEND; and a program number in B4. 

Exit Information 

The directory and pointers have been updated. 

Subroutines Called 
SQA- 

Registers Destroyed 

All but AO, A3, A4, A5, X3, X4, X5, Bl. 

SRB 

This subroutine calls PP program SRB to convert a 24-bit disk record address, 
with the name of the file known, into a 45-blt adisk address that is more 
convenient for PP-resident to use on occasion, and that is sufficient even 
without knowing the name of the file. 

It is called by the MOVE routine, which if moving a program from CM-re¬ 
sident to disk residence, must replace the short disk address and GM-address 
in its program name table entry by a long disk address- It is also called 
by the ADD routine when we are between READY(SYSTEM) and COMPLETE, when 
adding a disk-resident program to the directory model. In this case, we 
wrote the record on file SSSSSSU, and at that time got its 24-bit disk- 
address from the disk drivers; now we want the 45-bit disk address to put 
in the directory model before it goes back to GMR* 
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On entry to SRB* we have the file name in Xl, the address of the cell that 
contains the 24-bit record address in A2j and that word itself in X2< We 
store the file name at SRBA, extract the 24-bit record address and store it 
at SKBA+1, and store the address of that word at SRBA^-2 p Then call sub¬ 
routine CPC to call SRB, with a request pointing to SRBA- The FP program 
uses SRBA and SHBA+l, and leaves the 45-bit record address in SRBA+1, The 
address in SRBA4-2 is only for the convenience of our GP program, which 
now inserts the 45-bit address in the word SRBA-+'2 points toj which is of 
course the second word of the relevant program name table entry. Then 
exit from SKB. 

Entry Information 

XI contains the name of a file (left justified with zero fill); A2 points 
to the second word of a program name table entry; X2 contains that word. 

Exit Information 

Bits 24-44 of the second word of the program name table entry have been 
replaced by the extension of the disk record address in bits 0-23, for the 
file whose name was in Xl on entry* 

Subroutines Called 
CPC (in program CPC). 

Registers Destroyed 
Al, A2, A6, XI, X2, X6. 

SET 

This subroutine is called by the MOVE and COMPLETE routines, to put the 
program name table in the model directory into proper sequence, and adjust 
program numbers in the entry point table accordingly. MOVE, COMPLETE, 
and DELETE are the only routines that can send a completed or altered 
directory back to the CMR or out on a new system file. DELETE does not 
need to call SRT, because either it comes between READY and COMPLETE, in 
which case COMPLETE calls SRT before the directory is considered finished; 
or else it merely deletes one program from the running directory, and de¬ 
leting one program cannot disturb the proper mutual ordering of the rest. 
But MOVE needs SRT, because changing the residence of a program probably 
changes the proper position of its entry in the program name table. 

Program name table entries must be sorted: 

1. Primarily, on ascending record type number, in bits 52-55 of the second 
word of each program name table entry; viz., PP program, CP program, 
overlay, STITCH^' program. 

2. Secondarily, on ascending residence code. In bits 56-59 of the same 
word; viz., CM-resident, then disk-resident. 

We are going to sort program name table entries by the method of comparing 
each pair of neighbors In turn and exchanging them if their mutual order 
is incorrect. After repeatedly going through the table In this way, the 
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sort is complete when we find we have gone through the table without having 
to exchange any pair of neighbors. Before sorting, we set up a table of 
consecutive integers, one per entry, in cells SDIR ff. Whenever we ex¬ 
change a pair of entries in the entry point table, we shall exchange the 
corresponding integers in the table at SDIR. When the entry point table 
has been completely sorted, the table of integers shows how the program 
numbers have been changed. If cell SDIftfx contains integer y, this means 
that what used tO'be program number y is now program number x. 

Then we go through the model entry point table. From each word extract 
the old program number y. To find the new program number of the same pro¬ 
gram, we must search the table beginning at SDIR for a word containing 
integer y. This having been found at SDIR+x, we replace the program number 
in the entry point table entry by x. When this has been done for the who e 
entry table, we exit from SRT. 

Entry Information 

A well-formed directory model, with pointers in PNT, BOD, BEND. 

Exit Information 

The same model has been sorted. 

Subroutines Called 
None. 

Registers Destroyed 

All but AO, A3, A4, A5, Bl, B7. 


FLOW CHARTS 

A decision point is always represented by a hexagon, with the two alternate 
exit lines appropriately labelled. A hexagon always represents a decision 
point. 

A lozenge always represents a subroutine call. The name of the subroutine 
is given inside the lozenge, with no enclosing characters. A subroutine 
call may also be represented by the name of the subroutine framed by two 
slashes (e.g. /SRB/ ) inside a rectangle. 

A rectangle may indicate anything but a decision point, but when a rectangle 
contains a subroutine call, the name of the subroutine is enclosed by 
slashes as stated above. 

A symbol enclosed by asterisks (e.g. *PQR3*) corresponds to a location 
symbol in the program listing. Such a symbol may occur as the first 
inside a hexagon, lozenge, or rectangle indicating that the action described 
by succeeding lines begins at the so-named location in the program listing, 
e.g.'. 

*PQR3* 

LDN 5 
/STS/ 

inside a rectangle would indicate that beginning at location PQR3, 5 is 
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put In the A-reglster and then subroutine STS is called* 

A branch to a point on the same page, if it cannot be indicated by a line 
to that point, is indicated by a line to a rectangle containing only the 
name of the point, enclosed by asterisks* 

A branch to a point on a different page is indicated by a line to a rec¬ 
tangle containing the name of the point, enclosed by asterisk, with the 
page number below it in parentheses. E. g.: 

*IDF* 

(PAGE 5) 

Double parentheses are used as quotation marks, enclosing actual or 
imaginary literals* 

Single parentheses are used often to mean ^^contents of”* E. g- SET (D.Zl) 
= BUF would .mean ”set the contents of cell D.Zl equal to the number whose 
symbol is BUF”. But these parentheses are often omitted- E.g* D-Z4^ 
inside a hexagon would mean ”does cell D.Z4 contain zero”. 
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14,13 EDITS~YM 

EDITSYM Elrst return Jumps to ZERO to clear the dictionary and edit tables. 
Upon returning from ZERO, a return jump to SETFET is Issued to read the in¬ 
put parameters and set up the file environment table (FET). After returning 
from SETFET, the list line counter {LINED and the output line counter 
(LINEO) are set to 55. NC is set to the address of the NEWCCM table- A 
check is made to see if an old program library exist. If an old program 
library does exist, return Jump to COFYDG, IE not, jump to ENTRYl. 

ENTRYl 

This section reads the correction input by use of the READIN macro. The 
flag that Indicates a *DECK or *COPY control card is cleared and the primary 
sequence number (PSN) and the secondary sequence number (S5N) are set to 
display code zero. A return Jump to BRKDWN is issued. If an EOR is en¬ 
countered by READIN control goes to PROC; if not, return jump to COMPARE. 

If control card is a card other than *ED1T card, control goes to ENTRY20. 

If card is an *EDIT card, replace EDIT with COPY and return jump to WRITES, 
a check is made for Illegal control card. 

ENTRY20 

If an error occurred, write control card and diagnostic on OUTPUT and go 
to ENTRYl. If the card is recognized as an EDITSYM control card, return 
jump to WRITES. Next determine which control card is read by means of 
CMPAR. 

CMPAR equal to: 

A. 0 designates *COMDECK control card; control goes to ENTRY?. 

B. 1 designates *DECK control card; control goes to ENTRY4. 

C. 2 designates *COPY control card; control goes to ENTRY4. 

D. 4 designates *EDIT control card; control goes to ENTRY13. 

E. 3 or 5-9 designates is a primary or secondary edit card, jump to ENTRY8. 

ENTRY4 

If this is the first time a text deck is edited, jump to PROCIA to write 
the connon section on the new program library. If EDITSYM control card is 
a *COPY card, return Jump to PR0C3 and COPYA. Upon returning from COPYA, 
control goes to ENTKY19. If control card is *DECK return jiimp to DECKA. 

Upon returning from DECKA control goes to ENTKY19. 

ENTRY? 

This point is entered only If a *CCMDECK is being processed. A return jump 
to CQMDECK is issued and control goes to ENTKY19. 

ENTRY8 

A check Is to see if CMPAR equals 3, if so, return jump to WEORl. Upon 
returning from WEORl control goes to ENTRY 19. If CMPAR equals 5 through 
9 set to A2 to address of first primary sequence number (n2) and return 
jump to CONVERT. Set A2 to address of first secondary sequence number and 
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return jump to CONVERT. Store first converted sequence number in CONTROL 
array. Set A2 to address of second primary sequence number and return jump 
to CONVERT. Set A2 to address of second secondary sequence number and re¬ 
turn to CONVERT. Store second converted sequence number in CONTROL array. 

Store editing status in CODE. Store code and beginning CARD address in third 
word of CONTROL entry. 

ENTRY10 

This section reads correction input by means of the REAOIN macro. If an 
EOR is encountered, write a diagnostic on output and return jump to ENDRUN. 

If card read is not control card, return jump to PACK and store packed 
card image in CARD array. Jump back to ENTRY10 to read next card. If card 
is control card, store last CARD address to complete third word of control 
entry, and jump to ENTRY20. 

ENTRY13 

This area is entered only when an ^EDIT card is read. Set up input for 
EDTSORT and return jump to EDTSORT. Check for old program library, if it 
does not exist, write diagnostic on OUTPUT. If old program library exists 
return jump to SGANDIC. Store starting and ending address+1 of CONTROL 
entry in NEWCOM table, store control counter in ENDG. If deck name was not 
found in the dictionary, jump to PROCS- If deck name was found in dictio¬ 
nary, but text has been edited previously, write diagnostic on output and 
return jump to- ENDRUN. If deck name was found in dictionary, and no text 
editing has been done, jump to ENTRYl to read the next correction set. 

ENTRY15 

This section is entered if a *C0MPILE card is read from correction input. 

If a compile file exists, write an EOR and rewind the file. In either case, 
put the new file name in the first word of the COMPILE FBT. The control 
returns to ENTRYl to read the next correction set. 

ENTRY19 

This area is entered as the normal return to ENTRYl after an *EDIT for a 
text check is encountered. If a ^COMPILE control card was read in the pre¬ 
vious correction set, write EOR, rewind the file, and zero out first word 
of the COMPILE FET. In either case, control returns to ENTRYl. 

PR0C-PR0G2 

Control comes to this section if the deck to be edited is found to be a 
text deck. A check Is made for entries to the NEWCOM table. If entries 
exist the NEWCOM address pointer (NO) is decreased by one. PROG is entered 
if an EOR is read from corrections input. If no text deck has been previously 
edited, the NEWCOM table is sort (return jump to EDTSORT). Upon returning 
from EDTSORT, a return jump to EDX is issued to write the corrected common 
section of the new program library. Then, return jump to COPYDG to copy the 
edited common section into central memory. At PROC2, control goes to 
GOOF, an entry point in ENDRUN, if an EOR was read from correction input, 
control goes to EHTEY5 if PROGS was entered by means of a *DECK or COPY 
control card* 
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PR0C3 

This routine is entered via a return jutop and normally exits through entry 
point. PR0C3 searches the OPL for decks specified on the *COPY control 
card. At PR0C4 OPL is read by means of the READ macro. Records are read 
from OPL until the deck name at N2 matches an OPL deck names. If an EOF 
is read for the first time, the tape is repositioned at the first text 
deck. The second time an EOF is read, a diagnostic is written on OUTPUT, 
and a return Jump to ENDRUN is Issued to terminate the EDITSYM run. 

ENDRUN 

This routine is entered via a return Jump or through entry point GOOF. 

An EOR is written on all files and an EOF is written on all files except 
OUTPUT by issuing a return Jump to WEOEF with Al set to the address of 
the file FET. If the list file name is L or LIST, rewind the list file 
and copy to OUTPUT. Rewind COMPILE and exit via the ENDRUN macro. 

WEORF 

This routine is entered via a return Jump and exits via the entry point. 
Input is Al set to address of the first word of the FET. If the first 
word of the FET is zero, retum; if not, write EOR on the file. If file 
is output, return; if not, write EOF. 

SCANDIC 

SCANDIC is entered via a retura jump and exits through the entry point. 

Input to SCANDIC is the DICT array, N2, and B7equal to one. If the first 
word of the dictionary is zero with N2. If N2 matches the dictionary 
entry, set B6 equal to non zero, and Al equal to address of common deck 
in common array. If dictionary is exhausted and N2 is not a DICT entry, 
set B6 equal to zero. 

EDTSORT 

Entry to this routine is made via a return jump and exit is always through 
the entry. Input to EDTSORT is AO equal address of table to be sorted, 

B4 equal number of words in the table plus one, X3 beginning word in table 
to be sorted, and B1 equal to number of words per table entry. Sorting 
requires two words of intermediate storage, EDSTMP and EDSTMP^-1. Two 
values of the table are con^ared, and the smaller entry placed in the 
higher table position. Succeeding values are compared with values above 
them in the list (i.e. sorted values) starting with the last sorted entry. 

If the trial entry is smaller, the larger entry is moved down. If the trial 
entry is larger or equal to the sorted entry, it is stored below. 

WEORl 

WEORl writes an EOR on the COMPILE file. It is entered via a return jump. 

If the first word of the COMPILE FET is zero, write a diagnostic on OUTPUT 
and return jump to ENDRUN, If not, write EOR on the COMPILE file and return. 
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BSKDWN 

This routine is entered via a return jump and always exits via the entry. 
Input is EDTCEffl through EDTCRDZ and XI from the READIN macro. At BEKDWN, 
flags and storage areas are initialized to zero and A6 is set to store the 
first parameter. B6 is set to number of characters in card image If an 
EOR was read by READIN return with B1 equal to 2. BREAKl isolates each 
character. If character is not a separator^ the next character is positioned 
and control goes to BREAKl. If character is right parenthesis, go to 
BREAK4, left parenthesis go to BREAKS, decimal go to BREAK9, comma go to 
BREAKS, blank go to BREAKS or equal sign go to BREAK12. BREAKS reads the 
next word and checks for ended working area. If control goes to BREAK4, 
all parameters except the last have been stored, XO is set to five. Control 
goes to BREAKS. If this is the first time through or the decimal flag is 
set, go to BREAK6. If not set B3 to one. At BREAK6 if parameter to be 
Stored is zero go to BREAK?. 

If not, left justify parameter. At BREAK? store parameter at N(i) and 
increment XO by one. If B3 is set to zero or BEKDWN was called from SETFET, 
go to BREAKS; check if all parameters have been stored. If they have, 
control goes to BREAKll. Otherwise, clear the storage area and go back 
to BREAK3. BEIEAK9 sets the decimal flag and goes to BREAKS. BREAKll is 
the normal exit from BSKDWN. N2 is stored in UNPKNAM and BRKDWN8 returns. 
BREAK12 is reference only if processing the EDITSYM call card. The para¬ 
meter preceding the equals sign is stored with bit 0 set. If the equal 
sign is the last character in a word, control goes to BREAKS; if not, 
control goes back to BREAKl. 

COMPARE 

This routine is entered via a return jump and always is exited through 
the entry. The contents of N1 is determined and B5 is set to indicate 
the result as follows: 



Contents of N1 

0 

*CC»iDECK 

1 

*DECK 

2 

★COPY 

3 

★WEOR 

4 

★ EDIT 

5 

★INSERT 

6 

★DELETE 

7 

★ADD 

8 

★cancel 

9 

★RESTORE 

10 

★CATALOG 

11 

★COMPILE 

12 

error 


At COMPARI, CMPAR is set to B5 and the routine returns. 

CONVERT 

The function of this routine is to convert display code decimal numbers 
to binary. It Is entered via a return jump and is returned either through 
the entry or ENDRUN. CONVERT initializes the registers, then CNVRTl isolates 
the character. Finding a zero sends control out the entry; finding a special 
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character sends control to CNVERT2 which return jurops to EPLIST and exits 
to ENDRUN.Finding an alphanumeric character sends control to CNVERT3 which 
left justifies the input regiser X2 and exits. All numbers are converted 
and added to the XO register and the first zero terminates the niimber. 

PACK 

This routine packs one card image by removing blank characters and in¬ 
serting 55nn in their place where nn Is the number of blanks minus one. 
Input to PACK is as follows: 

B1 = address of 8 word block containing the unpacked card image, the first 
character of which is in bits 54-59 of the first word. The assumption 
is made that the card has been read using READIN so that 8 words are 
occupied, billed out with blanks. 

B2 = address of 13 words to be used for the packed card image 

B4 = editing status 

B7 * I 

Output from PACK is as follows: The card is pack and placed in the area 
specified. B2 = address of word containing the last character of the 
packed card image. B1 = LWA+1 of unpacked card image. 

This routine is entered via a return Jump and always exits through the 
entry point. PACK05 sets B6 to number of characters in a word at PACKIO 
isolate a character. If character is a blank, control goes to PACK30; 
if pack count is non-zero, control goes to PACK50. PACK15 stores the 
character in X5 and checks if X5 is full. If X5 is full, control goes 
to PACK20; if not, control goes to PACK25. PACK20 stores X5 in B2 and in¬ 
crements B2. PACK25 decrements B6 by one. If input word is exhausted 
control goes to PACK45; If not, the input word XI is positioned for next 
character and control goes to PACKIO. At PACK30, if the blank is stored 
in X5 and if X5 is full, go to PACK40; if not, position X5 for next 
character. PACK35 increment the blank counter by one, and control goes 
to PACK25. PACK40 stores X5 in B2 and increments B2 by one. Control 
goes to PACK35. PACK45 increments B1 and checks if end of input area. 

If not, control goes to PACK05. If blank count is zero control goes to 
PAGK70, At PACK50 if blank count is less than 77B control goes to PACK55. 
Otherwise 77B Is stored as blank count, and a return jump to PACK80 is 
issued. The remaining blank stored and a 55B is stored in X5. A return 
jump to PACK80 is Issued. At PACK55 the blank count is stored in X5. 

If X5 is full control goes to PACK60, if not, position X5 for next charac¬ 
ter and jump to PACK65. 

PACK60 stores X5 in B2 and increments B2 by one. PACK65 checks if scan 
is completed. If it is, control goes to PACK70; if not, control goes 
back to PACK15. At PACK70 jump to PACK75; if X5 cannot hold editing 
status. If there is room for editing status, store status in B2 and re¬ 
turn. PACK75 increment output word pointer and storeedit status and 
return . 
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PACKS 0 

PAGK80 is entered via a return jump and exits through the entry. This 
routine is called by PACK to make room for character in X5. If X5 is 
full, control goes to PACK85, if not X5 is shifted left one character 
and is returned to PACK. PACK85 shifts X5 one character to the left and 
stores X5 at B2. B2 is incremented and PACK80 exits. 

SUMPR 

SUMPR is called from SUM to write a message on OUTPUT. Input is A1 set 
to address of working storage. XI is stored in OUTPUT+5 and a return 
jump to lOWRITE is issued. SUMPR exits through its entry. 

SUM 

This section is called when a ^CATALOG control card is read. First, a 
return jump to SUMPR is issued to eject a page. Store first word of EPL 
FET in SUMH and files name in COPYDCl. Return jump to COPYDC3 to position 
at beginning of file specified by N2 and read file (return jump to 
COPYDC2). If IN is not equal to OUT control goes to SUM6. If not, check 
for EOR or EOF. If an EOR or EOF is read, control goes to SUMS. Other¬ 
wise, a return jump to ENDRUN is issued and the run is terminated. At 
SUM6 the first word of a record is neither a common or a text deck iden¬ 
tification word. A diagnostic is written on OUTPUT and control goes to 
ENTRYl. The deck name and edition number are extracted from the ID and 
a return jump to SUMPR is issued. This process continues for each record 
until an EOF is encountered. If the decks processed are common decks, 
the process continues until another EOF is read. 

UNPACK 

This routine is called via a return jump- Input is as follows: 

B1 = address of the packed card image 

B2 = address of a nine word block to be used for output from the routine 
(i.e. for the unpacked card image) 

B7 = 1 

AO = last word address + 1 of the pack card image area. The maximum 

address to be used in searching for the edit status (i.e. the end of 
the pack card image is either 

UNPKERR must be initially set to zero 

PSN and SSN must initially be set to the constant 00000000003333333333B 

Output from UNPACK is as follows; If UNPKER^=0 
A6 = address of last word stored 

= last word address of the packed card image 
The unpacked card image is stored in the location specified by B2 as follows; 
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Word Contents 

1-7 Columns 1-70 of the card image 

a Columns 71,72 of the card image, 7 character deck name, first 

digit of primary sequence number. 

9 The remaining 4 characters of the primary sequence number, 

followed by a decimal point and the secondary sequence nximber, 
if any, if there Is no secondary sequence number, display code 
blanks are Inserted. 

If UNPKERR is now zero, either AO or Bl+12 is reached before edit status 
is found. 

The packed card image is moved from the input address defined by Bl to a 
temporary block the pack subroutine. If the edit status is not found, 
the flag UNPKERR is set to n where n is the number of words moved to the 
temporary block in searching for the edit status. If n is greater than 
or equal to 13, there is an error in the packed card imagej if n is less 
than 13, the packed card image is incomplete. If the edit status is found, 
UNPKERR is set to zero and the card image is unpacked. Each 55nn en¬ 
countered is converted to nn+1 blanks. A4 is set to UNPRNAM and a return 
jump to UNPACK80 is issued when a 00 character is found. If unpacked 
card is being added or inserted and a NPL Is not requested, the asterics 
are inserted in place of the secondary sequence niimber, otherwise, blanks 
are stored in the secondary sequence If it does not exist. In either 
case, the sequence numbers are stored and UNPACK returns. 

UNPK80 

This routine is entered via a return and always exits through entry. Input 
is X4 set to the deck name and A6 equal to address of last word stored. 
UNPK80 sets up the column 71 and 72 of the card image, the deckname, PSN, 
and SSN. If the card is being added or inserted and a NPL is not requested, 
asterisks are inserted for PSN. Store seventh word, set X6 to eight word 
and return. 

C0PYDC2 

C0PYDC2 reads from the file specified by COPYDCl. It is entered by a re¬ 
turn jump and exits through the entry. The FET address is obtained from 
the contents of COPYDCl. IN and OUT are set equal to FIRST, a return jump 
to CPC is Issued to read. Upon returning from CPC, B6 is set equal to 
IN, B5 to OUT, and OWRK to the first of the buffer; then, C0PYDC2 return. 

C0PYDC3 

C0PYDC3 positions the file. It is entered via a return jump. The file 
address is obtained from the contents of COPYDCl. A return jump to CPC 
is Issued to skip records backwards until a level 17 EOR Is encountered. 

If DICT is zero, a return jump to CPC issued to skip one record forward. 

If DICT is non-zero, a return jump is issued to skip backwards the number 
of records in the COMMON section. 
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COPYDG 

The purpose of this routine is to copy the commoti section to central 
memory. COPYDC is called via a return Jump with an input word following 
the return jump containing the address of the FET of the file to be 
copied. The address is stored in COPYDCl and the return address incre¬ 
mented by one. At C0PYDC7 a return Jump to G0PYDC2 is issued. If IN 
does not equal OUT, control goes to C0PYDC6. If an EOR or EOF was read, 
control goes to C0FYDC8. Otherwise a diagnostic is written and a return 
jump to ENDRUN is issued to terminate the run. C0PYDC6 makes a check to 
see if the deck read is a COMMON deck; if so, control goes to C0PYDC4. 

If DICT is non zero, a diagnostic is written and a return Jump to ENDRUN 
is issued to terminate the run. If DICT is zero, a skip record backward 
is issued to position the file specified at the beginning of the text 
section. At COPYDG4, the dictionary entry for the common deck is created 
and the common deck counter in DICT is incremented. COPYDC5 copies the 
common deck into CObRiON and a return jump to C0PYDC2 is issued. This 
process continues until an EOR is read. When an EOR or EOF is read, a 
check is made to see if this is the end of the common section. If it is, 
DICT is completed and the routine returns. If not, control goes back 
to G0PYDC7. 

DECKA 

This routine is entered via a return jump and normally exits through the 
entry point. DECKA is called to add text decks to NPL. Input is N2 con¬ 
taining deck name; N4 containing level number for deck. If the level 
is less than two, it is set to two. The level number is stored as the 
last 12 COMMON of the first ID prefix word. Next, the second ID prefix 
word is created containing the deck name and the edition number and the 
two prefix words are written on NPL. Subsequent cards are read from the 

correction input until an *BND is read. For each card read, a return to 

GRAPH, GRAM, and EJECT 1 is issued to write the compile and list files. 

A return jump to SHOW is issued to write NPL. If the card is a *CALL 

card, a return jump to CALL is issued. The read cycle continues until 
an *END card is read. Then, a return jump to SHOW is Issued to write the 
*END card on NPL and the routine returns. If an EOR or EOF appears be¬ 
fore the *END card, a diagnostic is written by means of ERLIST and a re¬ 
turn jump to ENDRUN is issued to terminate the EDITSYM run. 

CALL 

This routine Is entered via a return jtimp and normally exists through the 
entry point. Its purpose is write a common deck on the compile file when 
*CALL is read. Return jumps to BRECDWN and SCANDIC are issued. If the deck 
name on the *CALL card is not in the dictionary write a diagnostic and re¬ 
turn. Otherwise, the sequence numbers are set to zero and the text se¬ 
quence numbers saved. Card images are read from COMMON unpacked by UNPACK 
and written on the compile file until an *END card is read. GRAM is called 
to do the actual writing of the compile file. When an *END card is en¬ 
countered, the sequence numbers are restored and the routine returns. 
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ERLIST 

This routine is entered via a return jump and always ecits through the 
entry point. The word following a return jump to EELIST contains the start 
of the diagnostic to be printed. If the word following the diagnostic is 
nonzero, the card image in EDTGKD through EDTGRD+9 is printed preceding 
the diagnostic. If the word following the diagnostic is zero, only the 
diagnostic is printed. 

COMDEK 

This routine is entered via a return jump and normally exits through the 
entry point. COMDEK creates prefix words 1 and 2 in the common section and 
updates the prefix word count in the dictionary. Then, a dictionary entry 
is stored containing the common deck name and a pointer to prefix word 1 
in the common section and the common deck is read from input to the common 
section. If an error occurs a diagnostic is written and a return jump to 
ENDRUN is issued to terminate the run. CCMDEK is called only if a *COMDEai 
is read from input. 

COPYA 

COPYA Is called when a *COPY or a *EDIT preceded by no corrections is read 
from input. The routine is entered via and normally exits through the entry 
point. If an error occurs a diagnostic is written and a return jump to 
ENDRUN is issued to terminate the run. When COPYA is called, the old pro¬ 
gram library is positioned at the deck specified from OPL to NFL, COMPILE, 
and LIST files. *COPY, dnl, dn2 copies from dnl up to and including dn2. 
*COPY,*, dn copies from the point OPL is positioned up to and including 
dn. *COPY, dn,* copies from dn to an EOF. *COPY,*,* copies from the point 
OPL is positioned to an EOF- 

GRAPH 

GRAPH is entered by a return jump followed by a word containing the address 

of an unpacked image. The unpacked card image is moved to KATAB through 
KATAB+13. If the card image is not 14 words, the remaining words are blank 
filled. GRAPH always exits through the entry point. 

WRITES 

WRITES is entered via a return jump and always exits through the entry point. 
The routine writes a card image contained in EDTCED through EDTCRD+8 on the 
OUTPUT file by use of GRAPH and GRAM. 

GRAM 

GRAM is entered by a return juB^ followed by a word containing the address 
of the FET for the file to be written and the location of the line image 
addresses. The line image is written by issuing a return jump to lOWRITE. 
GRAM always exits through the entry point. 

BOOT 

BOOT is entered via a return jump and always exits through the entry point. 
This routine sets up calls to GRAPH and GRAM to write the card image con¬ 
tained in EDTCED through EDTCEIH-9 on the output files. If the deck being 
^iritten is a text deck, GRAM is called to write both LIST and COiPILE files. 
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If the deck being written is a common deck^ GRAM is called to write only 
the LIST file. If a *CALL card is encountered EDTGRD through EDTCRD+8 
is stored in STCAED and the deckname is saved. A return jump to CALL is 
issued. Upon returning from CALL, the deck name and EDTCRD are restored. 

If the card is cancelled, the card is written on the list file with 
CANCELLED in EDTCED+9. 

SHOE 

SHOW is entered via a return jump and exits through the entry point. This 
routine calls PACK to pack the card image contained in EDTCRD through 
EDTCRD+7, Upon returning from PACK, the packed card image is written on 
the new program library by means of the WRITOUT macro, 

GROW 

GROW is entered via a return jump and exits through the entry point. If 
GR0W2 is zero, the deck being processed is a common deck. If GR0W2 is non 
zero, the deck is a text deck. In the case of a text deck, the old pro¬ 
gram library Is read by use of the READ macro. If the deck is a common 
deck the central memory addresses are preset in GR0W2+1 and GROW2+2, and 
the card image stored in EDTCRD. Contents of the EDTCRD array is unpack. 

If the complete card image of a text deck, is not unpacked another read 
is issued and the remainder of the card unpacked. If the end of the card 
is still not found or if the deck is a text deck, a diagnostic is written 
and a return j^ump to ENDRUN is issued to terminate the run. 

STEP 

STEP Is entered via a return jump and exits through the entry point. The 
purpose of STEP is to increment a sequence number contained In INNUM, 

UNPKES is 2 for secondary sequence number and 1 for primary sequence number. 
For a secondary sequence number, a one is added to bit 0. For a primary 
sequence number, a one is added to bit 18. The incremented sequence number 
is stored in INNUH. 

FEET 

FEET is entered via a return jump. This routine checks EDTCRD for a *END 
card. If the card image in EDTCRD is not a *END card a return jump to 
BOOTY is Issued. In either case, a return jump to SHOE is issued and PSN 
and SSN are saved in XPSN and XPSN+1. 

EJEGTl 

EJECTl is called before a line is written on the list file. The routine 
is entered via a return j\mip, and always exits through the entry point. 

A check is made to see if the list line counter (LIHEL) is equal to 55. 

If it is not, LINEL is Incremented by one and the routine returns. If 
LINEL is equal to 55, the page number is Incremented by one and stored in 
the list heading. The page is jected and the list heading written. A 
return jizmp to BLANK is issued and LINEL is reset. 
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EJECTS 

EJECTS Is called before a line is written on the OUTPUT file. The routine 
is entered via a return jump and always exits through the entry point. A 
check is made to see if the OUTPUT line counter (LINED) is equal to 55. 

If it is, LINEO is reset and heading Is written on the OUTPUT file followed 
by two blank lines. If LINEO is not equal to 55, LINEO is incremented by 
one and the routine returns. 

BLANK 

BLANK is called by a return jump from the eject routines and always exits 
through the entry. If BLANK is called from EJECTl, two blank lines are 
written on the list file. If BLANK is called from EJECTS, two blank lines 
are written on the OUTPUT file. 

EDX 

The main purpose of EDX is to set up input and calls to the editing routine 
EDY. Input to EDX is GROW2, NEWCQM, COMCNT and DICT. The contents of GR0W2 
is stored in WILCO and the address of NEWCOM Is stored in MYA. If GR0W2 
is zero, (i.e. the COMMON section is to be edited), MYP is set to the number 
of common decks and MYO is set to the address of the first dictionary entry. 
The NEWCOM entry is broken down such that MYC contains the address of the 
next correction trio, MYB contains the last word address+1 of the correction 
trios for that specific deck, and MYALPHA contains the pointer to the comaon 
deck to correct. If the deck to be edited is a text deck, MYB and MYC are 
set but MYALPHA is not. NEWED is set to one and a return jump to EDY is 
Issued. Upon returning from EDY if GR0W2 is non zero, the routine returns. 
Otherwise, MYA and MYO are Incremented and MYP Is decremented by one. If 
MYP is zero and all the NEWCOM entries have been accounted for the routine 
returns. If MYP is non zero and all the NEWCOM entries have been accounted 
for, EDY is called to write the remaining conmon decks on NPL. Otherwise, 
MYA, MYB, and MYC are reset the the process begins again. 

EDY 

EDY edits COMMON and TEXT decks and sets up calls to FEET and GROW to write 
out NPL, COMILE and LIST files. If the deck to be edited is a text deck, 
MYALPHA is set to OPL, OUT. IN is stored in GE0W2+2 and IN+2 is stored in 
GR0W2+1. In case of a COMMON deck, set GR0W2+2 to zero and set GR0W2bl 
to the address of the second prefix word. The deck name is stored in 
UNPKNAM and PSS and SSN are set to zero. The edition number is incremented 
if needed and written on NPL. If no corrections are to be made, return 
jump to GROW and FEET are issued until a *END card is found by GROW. A 
final return jump to FEET is issued to write the *END card on NPL. A blank 
line is written on the LIST file. An EOR is written on NPL and the routine 
returns. If corrections are to be made, FLAP is set to the first CONTROL 
entry, FLG to the second CONTROL entry, and FLACK to the third. A return 
jump to GROW is issued. If an *END is encountered by GROW a diagnostic 
is written, an EOR is written on NPL and the routine returns. Otherwise, 
the sequence number is incremented and compared to FLAP. If FLAP is larger 
than the sequence niomber, the card is written out and the process continues. 
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If FLAP is Larger than the sequence number, a diagnostic is written, the 
card written out, and the next correction located* If FLAP and the se¬ 
quence number are equal, FLACK Is broken down such that MYN contains the 
last word address of the packed inserts, MYM contains the first word 
address of the packed inserts. The code is checked, and the section of 
the routine is jump to that corresponds to the code. 

The code equal to 0 Indicates an insertion and the following path is 
followed. A return jump to FEET is issued* Upon returning from FEET, 

GR0W2 is set to zero and MYJ is set to the original contents of GR0W2, 

Also the contents of GROW2+1 and MYM are exchanged and the contents of 
GR0W2+1 and MYN are exchanged. Return jumps to GROW and FEET are issued 
until all the packed cards have been inserted. MYJ, MYM, MYN, GR0W2, 

GR0W2+1, and GR0W2+2 are restored to their original value. The routine 
goes back to search for the next correction for this deck. 

The code equal to 1 indicates a deletion and the following path is taken: 

A deletion message is written on the list file and then the cancellation 
path Is taken. 

The code equal to 2 indicates an addition and the sanie path follows as for 
insertion. 

The code equal to 3 indicates a cancellation and the following path taken: 

The editing status is stored in MYJ- If the editing status is 0, the card 
Is delted. If the edit status of the card is 2, the card is deleted. If 
the edit status of the card is something other than 2, the card is cancelled 
(i.e. written with edit status 1) if a second sequence number does not exist 
(i.e, FLAG = 0) or if the second sequence number and the card sequence number 
are equal, PSN and SSN are restored and the routine goes back to pick up 
the second correction. If the sequence numbers are not equal, a return 
jump to GROW is issued. If an *END is found by GROW a diagnostic is written 
and the next correction is picked up. If not, the card sequence number is 
incremented and the search for the end of the cancellations or deletions 
continues. 

The code equal to 4 indicates that cards are to be restored. All cards 
that have been cancelled in previous EDITSYM runs are restored (i.e. all 
cards with edit status of 2 are permanently deleted), 

EDYX 

EDYX is entered via a return jump followed by a word containing the address 
of the diagnostic and exits through the entry point. The purpose of EDYX 
is to write diagnostics on the list and OUTPUT files by setting up calls to 
GRAPH and GRAM. The code is extracted from FLACK and used to obtain the 
correct name and shift count from the EDYXA table. The primary and secondary 
number In FLAP and the primary and secondary numbers in FLAG are converted 
to display code* A diagnostic is written on the list and OUTPUT files con¬ 
sisting of the control card followed by the error message. 

EDYW 

EDYW is entered via a return jump and exits through the entry point. This 
routine is called from EDYZ to shift the contents of X7 and store it in 
EDYXB. 
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EDYZ 

EDYZ is entered via a return jump and exits through the entry. This rou¬ 
tine is called from EDY convert the binary sequence numbers in FLAP and 
FLAG to display code. 

BLNKLIN 

This routine is entered via a return jump and exits through the entry point. 
KATAB through KATABfl4 Is filled with blanks and the blank line image is 
written on the list file. 

ADPCT 

ADPCT Is entered via a return jump and exits through the entry point. 

This routine Increments a display coded number by one. Input is AO equal 
to the address of the number to be incremented. Output is AO equal to the 
address of the incremented number. 

ZERO 

2IER0 is called from EDITSYM to Initialize tables and buffer areas to zero. 
It is entered by a return jump and exits through the entry. 

SETFET 

SETFET is called from EDITSYM to set up file names in the FET. The EDITSYM 
call card is broken down by the BRKDWN routine thus storing each parameter 
in N(l). Each N(i) is compared with a TABLEl entry until the entries match 
or the N's are exhausted. If Nli) and a TABLEl entry match and bit 0 is 
not set, N(l) Is stored in TABLE2. If flCi) and a TABLEl entry match and 
bit 0 is set, ll(l+l) is stored in TABLE2. The next TABLEl entry is picked 
up and the search continues. When TABLEl entries are exhausted, TABLE2 
entries are stored in the corresponding FET's. 

ROUTIKE ROUTIMES REFERENCED 

ADPCT 

BLANK GRAM 

BLNKLIN EJECTl, GRAM 

BOOT GRAPH, GRAM, EJECTl, CALL 

BRKDWN 

CALL BRKDWN, SCANDIC, UNPACK, GRAM, EHLIST, ENDRUN • 

COMDECK BRLIST, ENDRUN, PACK 

COMPARE 

CONVERT ERLIST, ENDRUN 

COPYA COPEXG, UNPACK, BOOT, BLNKLIN, ERLIST, ENDRUN 

COPEXC 

COPYDC G0PYDC3, COPYDC2, ERLIST, ENDRUN 
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RoutlTie Routines Referenced 

COPYDC2 

C0PYDC3 

DECKA UNPK80, ADPCT, GRAPH, GRAM, SHOW, CALL, ERLIST, ENDRUN 

EDTSORT 

EDX EDY, ENDRUN 

EDY GROW, FEET, BLNKLIN, STEP, EDYX, ENDRUN, EDRESB, EJECTl 

EDRESB EDYX 

EDYX EDY2, GRAPH, EJECTl, GRAM, EJECTS 

EDYW 

EDY2 EDYW 

EJECTl ADPCT, GRAM, BLANK 

EJECTS GRAM, BLANK 

ENDRUN WEOF 

ERLIST GRAPH, GRAM 

FEET BOOT, SHOW, 

GRAPH 

GRAM 

GROW ERLIST, ENDRUN, UPACK 

PACK PACKS0 

PACK80 

PROCS ERLIST, ENDRUN 

SCANDIC 

SETFET BRKDWN, ERLIST, ENDRUN 

SHOE PACK 

STEP 

SYMPR 

UNPACK ADPCT, UNPK80 

UNPK80 

WEOF 

WEORl 

WRITES GRAPH, GRAM, EJECTS 

ZERO 

EDITSYM ZERO, SETFET, COPYDC, BRKDWN, COMPARE, WRITES, ERLIST, ENDRUN 

PROCS, GOPYA, DECKA, COMDECK, WEORl, CONVERT, PACK, EDTSORT, 


SCANDIC, EDX, SUMPR, C0PYDC3, COFYDC2. 
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14.14 10 


General 

10 Is a CP program, occupying about 160B words. It is called by any CP 
program that has lOREAD, lOtfBITE, 1010 or lOSAV as an e:itternal. The macros 

READIN efm 

and 

WEITOUT efm 

call 10 Indirectly through lOREAD and lOWRITE. The macros 

READIN Ifn,/name/ 

READIN Ifn, number 
WRITEOUT Ifn,/name/ 

WRITDUT Ifn, number 

dealing with random files, call program lORANDM, which in turn calls 10. 


Function 


10 carries out the blocking and deblocking, and for BCD files the suppression 
and Insertion of trailing blanks, needed for "reading” or "writing" a delimited 
area of central memory, known as the "workspace", which is separate from any 
circular buffer'. 


Entry Information 

The calling sequence for non-random reading 

SJ lOREAD 
VFD 60/Ifn 

For non-random writing it is 

RJ lOWRITE 
VFD 60/lfn 

where Ifn is the address of the first word of the FET. The FET must be at 
least 6 words long, and its 6th word must be 

VFD 30/a,30/b 

where a is the address of the first word of the workspace, and b-1 is the 
address of its last word. For random reading and writing, see the notes to 
program lORANDM. 


Exit Information 


On return from executing a non-random macro, XI contains 0 unless a read was 
called for and could not be fully carried out. If the buffer was empty and 
reading the file found an e.o.f., XI will be negative. If an e.o.r. 
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was found before the workspace could be filled, XI will contain the address 
of the first unfilled address of the workspace. For a BCD file, this must 
be the address of the first word of the workspace, and the workspace will 
be full of blanks, because if even one word at the end of the record was 
transferred to the workspace, the rest of the workspace is then filled with 
blanks and a normal read Is considered to have taken place. 


Other Programs Called 
CPC. 


Registers Destroyed 

Al, XI, A6, X6. Note that A? and X7 are not touched. 


Narrative 

The main routines are lOREAD and lOWRlTE, which are entered like subroutines. 
But both construct their final exit at lORE, and exit through it, not through 
IOREAD or lOWRITE. 

lOREAD begins by calling subroutine lOSAV with 1 In the calling sequence, 
indicating that the calling sequence to lOREAD contains 2 words. lOSAV 
saves the registers except Al, XI, A6, X6, A7, X7, sets up the final exit 
at lORE, sets B3 to the first word of the workspace and B2 to its last+1 
word. If the FET is less than 6 words long, or if the workspace seems to 
have a negative length, we abort with a message at lOSVA. Xf the workspace 
seems to have a zero length, we really do nothing, and do the final exit 
with X1=0. On exit from lOSAV back to IOREAD we set X0=10B to indicate 
reading, and go to lOIO. 

lOWRITE begins by calling subroutine lOSAV just as for IOREAD, but then 
puts 14B in XO to indicate writing and goes to lOIO. 

At 1010 we set B6 to XO-lOB, i.e. zero for reading and non-zero for writing. 
Then extract the mode bit from the first word of the FET, and set B7 to 
zero for BCD, or non-zero for binary. Then set B4 to minus the FIRST pointer 
in the FET, and B5 to minus the LIMIT pointer. Now we have set all B-re- 
gisters to values they will keep throughout, except: B2- if writing BCD, 

B2 will be adjusted to point to the word next after the last non-blank 
word in the workspace} B3- when emptying or filling the workspace, B3 will 
be stepped from left to right until it equals B2. 

Now if writing, we go to lOIOA, whence, for binary, we go straight to 100. 

For BCD, we reduce B2 if necessary until it points to the word after the 
last non-blank word in the workspace, or to the second word if the whole 
workspace is blank. 

If reading, then for binary we go straight to 101. For BCD we fill the 
workspace with blanks (routine around lOIOB) and then go to lOI. 
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At 100, we begin moving data from the workspace to the buffer. If B2 - 
B3, we are finished moving and go to lOOF. Otherwise, put the next word 
from the workspace in X3, and step B3. Check that the buffer is not full, 
and go to lOOD. If full, call subroutine lOlSS with X4 - 22B, to write 
out the buffer with recall. Then return to lOOB to pick up the FET pointers 
again. 

At lOOD, store the word from the workspace in the buffer, and step the FET 
IN pointer. Then return to 100 to repeat the cycle until the workspace 
Is emptied; unless BCD, in which case do not return to 100 if the last byte 
of the word was zero. This ends the workspace even if there is a non-blank 
word to the right of it; and we go straight to lOlK. When we come to lOOF, 
because B2 = B3, we can go straight to lOIK if binary. But if BCD, we must 
force the line to end with a zero byte. If the last word, which is still 
in X3, ends in two blanks, go to lOOPA. Otherwise, put the word 5555B in 
X3 and go back to lOOB. The word will get put into the buffer, and as it 
ends in two blanks, we will get to lOOFA. At lOOFA, we modify the last 
word stored by changing its last two characters to a zero byte, and store 
it again where we stored it before. If it was the extra word 5555B, it 

will become a whole word of zero. Then go to lOlK. 

In reading, we begin at 101 to move data from the buffer to the workspace. 

If the buffer is not empty, go to lOIC, where we put the next available word 
in X3, and step the FET OUT pointer- At lOID, we normally find that B6 - 
0, because we are reading; so do not go to lOIF. Then set X2 — 0 if the 
last word ended in a zero byte, put the last word unchanged in X6, and set 
X5 = 1 to show at least one word has been read (it was zeroed just after 
1010 if BCD mode, and is not otherwise altered). Now if binary, go to 

lOIE to store the word in the workspace, step B3, and go back to 101 if the 

workspace is not yet full, or to lOIK if it Is full. If BCD, and X2 - 0, 
we have the last word of the line, and we go to lOIG. Otherwise proceed 
as above to lOIE. At lOlG, we replace trailing zero characters in the word 
in X6 by blanks, then store it in the workspace, and set B3 = B2 to show 
the workspace Is effectively full. Any extra words in it were blanked 
above at lOlOB. Then go to lOllf.* 

At lOlE, we stored a word that did not end in a zero byte in the workspace, 
stepped B3, and returned to lOI if the workspace was not full. If it was 
full, and the mode is binary, simpy to to lOIK. But if BCD, we must put 
no more in the workspace, but skip through the buffer until we have seen 
a word that ends in a zero byte. The words so skipped will never get into 
the workspace. We set B6=l, instead of 0, its normal value for reading, 
and return to 101. There we get the next word of the input record, step 
the FET OUT pointer, and reach lOID. Now because B6=l, go to lOIF. Here 
we check the word in X3 for final zero byte; if yes, we have skipped enoug ; 
restore B6=0 and go to lOIK. If no, go back to lOI to skip another input 

word. 

Before describing lOIK, we must return to lOI and the case of an empty 
buffer. If the FET status Is end-of-Information, or end-of-file, go to 
lOIMA, set B3 = -1, and go to lOIY. Otherwise, if end-of-record, go to 
lOlY with the workspace pointer still in B3. But if BCD, and if X5 is not 
zero, showing that at least one word has been moved to the workspace, go 
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on to lOIK as if the workspace had been filled. This is for the case that 
the last word of a record does not end in a zero byte, though normally it 
should. At lOIYj If B3 — B2 we have filled the workspace and can go off 
to terminate at lOZZ without regarding the end-of*record until the next 
time lOREAD is called. This could only happen if we had a zerorlength 
workspace, empty buffer, and e.o.r. status. Then the call on lOEEAD would 
achieve exactly nothing. If B3 is not = B2, we store B3, which is -1 for 
e.o.f. or the workspace pointer if e.o.r., at lOZW, to be put in XI on 
exit. Then zero bit 4 of the first word of the FET unless the FET shows 
a random file, and go to lOZZ. We zero this bit so that by repeated READ IN 
calls, without touching the FET, the user can read across record and even 
file boundaries. The user will be notified of them by the content of XI 
on return, but lOREAD will handle the transitions- However, for a random 
fi le, there is no merit in going to the next record in chain sequence, so 
we do not zero the bit. 

If the buffer is empty but the FET status Is not e.o.l., e.o.f., or e-c.r., 
we go to lOIA, to call subroutine lOISS with X4 22B. This reads with 
recall. Then arrive at lOI to attack the buffer again. 

We come to lOlK when we have completed the read or write request. If 
possible we would like to issue a request for CIO to read or write with¬ 
out recall, to keep the file moving between now and the next time 1OREAD 
or lOWRlTE is called. But if the FET status is busy, there would be no 
point to It, so go straight to lOZZ. Otherwise, if writing, we see 
whether the buffer is at least half full. If so call subroutine lOlSS 
with X4 == 20B (write without recall), then go to lOZZ. If reading, and 
the FET status is not e.o.r. or e.o.f., we go to lOZZ if the buffer is not 
at least half empty. If the buffer is at least half empty, call lOISS with 
X4 — 20B (read without recall) and then go to lOZZ. But if the FET status 
is e.o.r. or e.o.f., then if X5 is not = 0, we have put something in the 
workspace and go to lOZZ. The next call on lOEEAD will return the e.o.f. 
or e.o.r. status to the user. But if X5 = 0, we have put nothing in the 
workspace, and go to lOIM to set up the e.o.f. or e.o.r. response. It 
does not seem possible that the branch to lOIM could take plase here. 

At lOZZ we are ready to exit from lOREAD or lOWRlTE. First call subroutine 
CPC04 to restore all registers except Al, A6, A7, XI, X6, X7. They were 
stored at lOREG through IOREG+8 when we initially called subroutine lOSAV. 
Then put 10Z¥ ( 0 for normal, -1 for e.o.f., workspace pointer for e.o.r.) 
in XI, zero lOZW for next time, and take the exit at lORE, which was set 
up by subroutine lOSAV. 


Subroutines 


We do not count lOREAD and lOWEITE as such, because they form the main 
part of 10, and are not exited normally. 


lOSAV 


This is called on entry to lOREAD and lOWRITE with 1 in the calling se¬ 
quence, showing that the calling sequence to them is 2 words; and on entry 
to lORR and lORW (in program lORANDM) with 2 in the calling sequence, showing 
that the calling sequence to them is 3 words. 
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First we call subroutine CPC03 (in program CPC) to save all registers 
except Al, A6, A7, XI, X6, X7 In lOEEG through IOREG+8, and set Bl=l. 

Then find the word from which lOSAV was called, and assume that the word 
before is the ordinary exit word of the subroutine (lOEEAD, lOWRlTE, 
lORR, or lORW) that called lOSAV- Add the number in the calling sequence 
to lOSAV, plus 1, to that outer return address, and store a jump to that 
result in lOBE. So lOREAD, lOWRITE, lORB,, and lORW all exit through lORE. 

Then check that the PET to which the calling sequence for lOREAD, lOWRlTE, 
lORR or lORW points has at least 6 words, and that the 6th word does not 
suggest a negative length workspace. Abort through lOSAV otherwise. Then 
set up registers as below in "Exit Infonaatlon". 


Entry Information 

Only the calling sequence, as follows: 

RJ lOREAD or lOWRITE 
VFD 60/lfn 

where Ifn is the address of the first word of the FET, Then, at lOREAD 
or lOWRITE: 

DATA 0 • 

RJ lOSAV 
JP 1 


or 


RJ lORR or lORW 
VFD 60/lfn 

VFD 60/m or 60/0H name 

where m Is the number, or "name" the name of the record. Then, at lORR 
or lORW: 

DATA 0 
RJ lOSAV 
JP 2 


Exit Information 

B1 = 1, AO = address of FET first word, B3 = address of workspace first 
word, B2 = address of workspace last word + 1. X4 points to the first 
parameter in the call to the routine that called lOSAV (this Is used only 
by subroutine lORB in program lORANDM). 


Subroutines Called 


Only CPC999, to abort. 
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lOISS 

This is called with X4 = 22B for a read or write with recall or with X4 = 
20B for a read or write without recall. XO is assumed to contain lOB or 
14B, for reading or writing respectively. 


Entry Information 

XO = lOB for reading or 14B for writing. X4 = 22B for recall or 20B for 
no recall. The FET is assumed correct. 


Exit Information 


None. 


Subrou11nes Called 


CPC. 


Registers Destroyed 
Al, A6, XI, X4, X6. 
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14.15 lOBAMDM 


General 

lORANDM is a CP program, about 140B words long. It is called by macroi 


KEADIN 

READIN 

WRITOUT 

WEITOUT 


lfn,m 
Ifn,/name/ 
l£n,m 
lfn,/name/ 


which are assembled as: 


RJ 

lORR 

VED 

60/lfn 

VFD 

60/ra 

RJ 

lORR 

VFD 

60/lfn 

VFD 

60/0Hname 

RJ 

lORW 

VFD 

60/lfn 

VFD 

60/m 

RJ 

lORW 

VFD 

60/lfn 

VFD 

60/OHname 


respectively, where Ifn is the address of the first word of the FET of 
a random file, m is the number of a record in the file, and ’’name" is the 
name of a record in the file. 


Function 


lORANDM, through its entry points lORR and lORW respectively, is used to 
begin reading or writing a record in a random file, and to move the first 
workspace-full. It behaves rather like 10, but manipulates an index, and 
puts into the 7th word of the FET, before actual reading or writing is be¬ 
gun, either the disk address of the record (for reading) or the address in 
which the disk address is to be stored (for writing). After the first work 
space-full, one must use lOREAD or lOWRITE to continue reading or writing 
the same record. To terminate a record being written, a macro ’’WRITER’ 
(calling CEC directly) should be used. 

However, if lORW is called to write a record, and the status of the FET 
is write but not write end of record, the end of record will be written 
before anything else is done. Whenever a record is begun by lORW, the 
FET status is set to write completed even though no call for physical 
writing may have taken place, in order that the above safeguard may al¬ 
ways work. 
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Entry Information 

Only the calling sequence, as illustrated above under ^^General'^. 


Exit Inf ormatiOTi 


On return from executing the macro, XI contains 0 unless a read was called 
for and could not be fully carried out* Then XI will contain the address 
of the first unfilled word in the workspace* In the case of a BCD file, 
this will necessarily be the first word of the workspace. Note that an 
end-of-file return will never be given* Note also that if an end-of-record 
return is given, and lOREAD is then called to try to read the next record, 
it will merely return another end-of-record indication* For a non-random 
file, lOREAD would then cross the record boundary, but not for a random 
file* It would be necessary to do a random read to continue reading. 

If the file is not random, or if there is no index or a zero*length index 
in the FET, or a call for a named record is made, while the index does 
not allow such, or a record number beyond the capacity of the index is 
given, or a record name is given for reading but not found in the index, 
or a new record name is given for writing but the index is full, or the 
file device is not allocatable, lOHANDM will abort with a suitable message, 
or set error status in the FET and call error OWNCODE if any. See Error 
Procedures and Messages on page 14-121* 

The question of, whether a random file contains named records or not depends 
on how the record was addressed the first time any record was written ran¬ 
domly on the file. The first word of the index is zero when the index is 
empty- If the first writing of a record is by name, the first word is made 
negative; if by number, positive non-zero. In the latter case, writing 
or reading of records by name will not be allowed. This is because two 
words per record are needed if by name, but only one if by number; to make 
the latter saving of space possible, it is necessary to decide one way or 
the other the first time the index is used. 


Other Programs Called 
10, CPC. 


Registers Destroyed 
Al, A6, XI, X6* 


Narrative 

lORR begins by calling subroutine lOSAV (in program 10) with 2 in the calling 
sequence to show that the calling sequence to lORR was 3 words long* lOSAV 
will save all the registers except Al, A6, A7, XI, X6, X7. Set up the final 
exit from lORR at lORE, in program 10; sets Bl=l, AO^he address of the 
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first word of the FET, B3 = the address of the first word of the workspace, 
B2 = the address of the last+L word of the workspace. Then we call sub¬ 
routine lORA to find the Index pointers in the FET, put the starting ad¬ 
dress of the index in B5, its length in B6, and the number of the last- 
addressed record in B7, and to wait until the FET shows non-busy status. 

Then set OUT=IN in the FET* 

Next call subroutine lORB to convert the record name to a number, if nec¬ 
essary, and then to leave the record number In XI and in cell lOBN and the 
corresponding disk address from the index in X5. Now if XI — 0, we had a 
name that was not in the index, and we go to 108ER5A. Otherwise, set XO — 
lOB to indicate reading (this will be used after we join program 10 at 
1010). Now we load XI with the record number from lORN (this seems com¬ 
pletely unnecessary since it already contains the record number). If X5 = 

0 there is no disk address for the record} hence it has never been witten, 
and we go to I0RER5A* 

Next put the record number In bits 48-59 of the 8th word of the FET, as 
’’Last record number addressed”. Then put the disk address from the index 
into bits 0-23 of the 7th word of the FET, where It will control reading the 
next time CIO Is callcd- 

Finally, branch to 1010 in program 10. Assuming that all the checks have 
been good, the only difference between approaching 1010 from lORR and 
approaching It from lOSEAD is that between lORR and 1010 we have set the 
buffer to empty, found a disk address in the Index, and put it in the 7th 

word of the FET.. This disk address field of the FET is otherwise 0, because 

the PP program that uses It if non-zero, zeroes it immediately after using 
it. 

In writing we begin at lORtf by calling subroutine lOSAV in program 10, 

just as at lORR. Then call subroutine lORA, just as at lORR. Now see 

whether the present status of the FET is write, and if so call CPC to write 
the end of the record. Then set the FET status to write completed, so 
that the safeguard in the preceding sentence will operate for the record 
we are about to begin writing, even if it turns out to contain no words 
of information. 

Next call subroutine lORB, from which we return with the record number in 
XI, or if X1=0 because the record is addressed by name and the name is not 
in*the index, then X4 contains the number of the first empty slot in the 
index, and cell lOBN contains the record name. So if XI is not 0, we go 
straight to lORMB. Otherwise, If X4 = 0, there is no room in the index 
for a new record and we go to IORER6A. If X4 is not 0, we shall put it in 
Xl to use as the number of the new record. But first store the record 
name from lORN at the word which is twice the record number oafter the 
first word of the Index, minus 1; then set X1=X4, and arrive at lORWB. 

At lORWB, we look at the first word of the index. If it is negative, the 
index contains names, and we set X2 to point to the word twice the record 
number past the first word of the index. If positive, the index is for 
numbered records only, and we set X2 to point to the word once the record 
number past the first word of the index. At lORWC, set X5—Xl, the address 
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of the index word Into which the disk address of the record must be stored 
when it begins to be physically written. Then branch to lORRA, where we 
record number (still in XI) in bits 48-59 of the 8th word of the 
FET; and put the address of the index word in bits 0-23 of the 7th word 
of the PET. Then branch to 1010 in program 10. Assuming that all the checks 
ave been good, the only difference between approaching 1010 from lORW and 
approaching It from lOWEITE is that lORW has ended the previous record If 
the status was write; has then set the status to write conqjleted; has per- 
aps put a new record name in the index; and has put an address in the FET 
so that when the first PRU of the record is written, its disk address will 
be properly stored in the Index. At the same time, the PP program will 
zero that word of the FET to prevent a further storage in that index word. 


Error Procedures and Messages 


2 . 


3. 


4. 


1. If the FET when first checked shows the file is on non-allocatable 
equipment, we abort the run through I0RER7 with the message "FILE 
DEVICE KOT ALLOCATABLE". “ 

If the FET when first checked shows the file is not random, we abort 
the run through lORERl with the message "RANDOM CALL, NONRANDOM FILE". 

If there is no Index pointer in the FET, or if the FET Indicates a 
index, we abort the run through I0RER2 with the message 
"NO INDEX POINTER IN FET, OR 0 LGTH. INDEX". 

If the record is referenced by name, but the first word of the index 
is positive non-zero, showing that only reference by number is allowed, 
we abort the run through I0RER3 with the message "FILE RECORDS NOT 
NAMED". 

5. If the record is referenced by number, but the number is too large 
for the length of theiindex, we go to I0RER4A. If the EP bit in the 
PET Is not set, we abort through 10RER4 with the message "RECORD 
NUMBER TOO HIGH". If the EP bit is set, we set bits 9-13 of the first 
word of the FET to 25B. Then If the error OWNCODE field of the FET 
is 0, we return to the calling program with the first word of the FET 
in XI. This is similar to an end-ofrrecord return to the calling 
program (as the word must be positive, its first character being a 
letter), but can be distinguished from it because an end-of-record 
return is with the address of a word in the workspace in XI, which would 
make the left 42 bits all 0. If the error OWNCODE field of the FET is 
non-zero, we enter the OWNCODE as a subroutine with the first word of 
the FET in XI, and on exit from it return to the user program that 
called lORANDM with the same word in XI. This differs a little from 
the way OWNCODE is ordinarily called from CPC. In CPC, we transfer 
the exit word of subroutine CPC to the exit word of the OWNCODE sub¬ 
routine; then set the exit word of CPC to be a branch to the second 
OWNCODE; then follow the ordinary exit procedures of CPC, 
which restores registers and then jump into the OWNCODE. 
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6. If the call to lORANDM Is for reading, and the record is named with 
a name not In the Index, or is identified by number but has never 
been written, we follow the procedure of the preceding paragraph, sub¬ 
stituting I0RER5A and I0EER5 for I0RER4A. and 10RER4, and error status 
26B for 25B, and using message "RECORD NAME NOT IN FILE INDEX" in case 
of an abort. 

7. If the record is to be written by name and the index allows names but 
contains neither the wanted name nor a free slot, follow the same pro¬ 
cedure using I0RER6A and I0RER6, error status 27B, and message "NO 
ROOM IN INDEX FOR NEW NAME" In case of an abort. 


Subroutines 


lORA 

This is called to check the FET of a random file to find its index, and to 
set up registers as shown below in "Exit Information", and to wait until 
the FBT shows a not busy status. If the FET shows that the file belongs 
to a non-allocatable device, or is not random, or has no index or a zero- 
length index, we abort with a message. If the device is non-allocatable, 
we also zero the random bit in the FET. 

Note that before calling subroutine CPC02 to wait for non-busy FET status, 
we have to save B2 in X3, and then set B2=A0. After CPC02 returns, reverse 
the process. This is because in program CPC, B2 is in general an address 
of the FET. While in 10 and lORANDM, B2 is in general the last+1 address 
of the workspace. In 10, CPC is called at CPC, so that all registers are 
saved, reloaded, and restored afterwards. But here we are calling a little 
subroutine In CPC so that the saving, reloading, and restoring is not auto¬ 
matic. 


Entry Information 

Bl = 1, AO = address of first word of FET. 

Exit Information 

B 5 = starting address of index, B6 = its length, B7 = number of last 
addressed record. 


Subroutines Called 


CPC02. 


Registers Destroyed 

Al, A3, A6, XD, XI, X2, X3, X6. 
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lORB 

This is called after subroutine lORA. If the record is addressed as 
number 0, we add 1 to the last-addressed record number (which lORA left 
in B7) and use that as the record nianber. Then put the record name or 
number in lOKN. Now if a name, we must convert it to a niaaber. If al¬ 
ready a number, branch to lORBQ, where if the first word of the index is 
zero, we set it positive non-zero to forbid named records in future* Find 
the word that contains the disk address of the record, but go to I0RER4A 
if the record number would place that word beyond the end of the index* 

Then put the record number in XI and the disk address (which we shall not 
after all use, if writing), in X5, and go to lORBV, There we zero the code 
and status field of the first word of the FET, except for the completion 
and mode bits, so that an end-of-record status will not prevent CPC from 
starting to read a new record, if we are reading* Then exit from lOEB* 

If the record was named, we have to search the index. Preset Xl =0, to 
be the number of the record if the name is found, and X4 =0, to be the 
number of the first unused slot in the index. Now if the first word of 
the index is zero, showing it has never been used, set that word negative 
to show named records are allowed. Then, if the first word of the index 
is positive, names are not allowed, and we abort. Then we scan the index 
for the wanted name* If found, we have the corresponding niimber in XI; 
we save it at lOEN, keep the corresponding disk address in X5, and go to 
lORBV as above. If the name is not in the index, we exit from lORB with 
0 in the XI, and the number of the first empty slot in X4, or 0 in the 
X4 if the index is full* In this case we do not clear the code and 
status field, nor replace the record name in lORN by Its number. But 
these changes are actually necessary only for reading, and in reading if 
we do not find the name in the index, we take an error exit. 


Entry Infoannatlon 

B1 = 1, AO »= address of first word of FET; B5 = address of first word 
of index; B6 = length of index; B7 = number of last-addressed record; 
X4 = address of the first parameter in the calling sequence to TORS or 
lORW (this was set by subroutine lOSAV). 


Exit Information 


The record number in XI, or XI = 0 If the record is named and the name 
is not in the Index; if the record is named and XI = 0, X4 will contain 
the number of the first vacant slot in the index, or 0 if there is no 
vacant slot; unless the record was named and the name could not be 
matched, X5 = the present disk address of the record, as taken from the 
index. 
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Subroutines Called 
None* 



A2, A3, A5, A6, X2, X3, X6, B4, B6. 


r 
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14.16 RETURN 

RETURNt Ifnln IfnEn • • -Ifnn* 

RETURN is a central memory program written for SCOPE 3.1.b» 

It is called by a RETURN control card. 

Upon entryi RETURN expects file names -Clfnli IfnSn • . . 
lfnn.> to be placed in central memory words RA+I -Cl = E-i . • • 
S3B> and parameter count in word RA+bMB by lAJ. It 
then performs a close-unload -CCIO} on each file in the 
list while decrementing parameter count to zero before it 
exits. Word RA-^bMB is unaltered- 

RETURN card without any file name in its list will create 
zero-valued parameter count in word RA-hUMB and thereby 
cause an error message 

’RETURN CARD WITH NO PARAHETERS IS ILLEGAL’ 

to be displayed in the B display and sent to the job 
and system dayfiles. 
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14.17 REWIND 

This routine has" two entry points, REWIND and UNLOAD. The following 
procedure takes place: 

1. Depending on the entry point entered, the CIO function code (MODE) 
is set as follows: 

MODE = 6OB for UNLOAD 
MODE = SOB for REWIND 

2. The file is not opened. 

3. The eiO call for REWIND/UNLOAD is issued. 

4. An END request is issued to terminate processing. 


14,18 UNLOAD 

See above under "REWIND". 
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14.19 UPDATE 


inPLEHENTATION 

The following discussion assumes that the reader is familiar with 
the characteristics and features of UPDATE as outlined in the 
SCOPE 3*1.b Reference Manual. 

The program libraryT which UPDATE creates and/or modifiesi contains 
the symbolic data for programs being maintained on the system 
tape. These programs are arbitrarily divided into decks by insei 
tion of *«DECK and MCOMDECtC cards into the text stream. The pro¬ 
gram library file consists of a directoryi a deck listT and text 
stream. 

UPDATE may be used to create a program library fcreation process> 
or modify an existing program library -Ccorrection process> • 

UPDATE determines the process desired by interrogating the first 
card in the input stream. If the card is a **DEC1C or *‘C0 MDECKt a 
creation process is being instituted* Any other control card 
indicates a correction process* 


CREATION PROCESS 


The subroutine NEU copies the input stream from the input unit-CsJ 
onto the file CfIPSCR while extracting deck anmes and common deck 
names. These names are added to the correction directoryi DIRECTi 
and also to the history deck listi DECKS. Idhen the end-of-record 
is encounteredi UPDATE rewinds CMPSCR and generates a new program 
library and compile file- The basic subroutines involved here 
are lilRNPL -Cwrite new program library! and bJRCOM -Cwrite compile!. 
The CHB''s for the new cards are created for each new deck. 


CORRECTION PROCESS 

The correction process requires two logical passes* The first 
passi CORRi verifies the correctness of the instructions given to 
UPDATE. CORR reads the entire input streami constructs a dic¬ 
tionary CDICT! of the requested operations! and saves the insertion 
text in the buffer FPAGE* FPAGE overflows to disk filei FTEXTi 
when it exceeds its maximum size* The second passi ECORi generates 
an updated new program libraryi NEUPLi a compile file and a source 
file. ECOR reads the old program libraryi checking each card 
read against requested operations as saved in the dictionary. 

When a match is found the,card is activated! deactivated! or text 
insertion is initiated as indicated- 


CORR 

A correction set is defined as being that set of cards which starts 
with an ^IDENT cardi haDDFILE cardi or wPURGE cardi and terminates 
with one of thos cards or the end-of-record- 
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When a wPURGE card is encountered-, the program searches the table 
DIRECT for the Identifieri sets the purge bit Cbit lti> and blanks 
the name -E ■ • ■ • 

When an **IDENT card is encountered? It is verified that this is 
not a duplicate identifier? and the correction set is read in- 
Corrective operators ^INSERT? hDELETE? »«YANK? or nreSTORE cause 
entries to be made in the correction dictionary? DICT. Yank cards 
are also placed in FPA6E as text information* 

When an maDDFILE card is encountered? the file named is read to 
extract the new deck names and/or common deck names* ^ These names 
are checked to make sure they do not already appear in the table 
DIRECT. If not? the names are entered in the tables DIRECT and 
DECK* The text is not put in DICT? rather a dummy insert? indi¬ 
cating an ADDFILE* At the end of the first pass? the contents 
of FPAGE -Ctext information! is dumped onto file FTEXT* 


ECOR 

A counter is set* up for each ident in the DIRECT table* As card 
images associated with an ident are processed? the current card 
counter for the ident is bumped* The counters are kept in the 
table? CNTR. 

ECOR searches the DICT table for any insertion entry whose card 
number matches the current card number of the ident being 
referenced- If an insert is found to apply at a current card 
counter? the text associated is retrieved from FTEXT* If the 
insert is a dummy? indicating an ADDFILE? the text is read from 
the appropriate file* If no insert applies at any of the current 
counters a card is read from the old program library and the 
appropriate card counter is bumped by one* In any case? a card 
has been obtained to process* 

The DICT is now searched for a delete or restore entry which 
applies to the card being processed* If found? a new CHB entry 
indicating activate or inactivate is placed in the CHBTBL* If 
the card in question is at the end of a delete range? the I>ICT 
entry is changed to an insert in case the delete had cards follow 
ing* Searching continues for further delete or restore cards 
applying to the same card* When the search fails -tend of DICT 
reached! YANK and PURGE are looked for* YANK causes the yank bit 
to be set in the CHB- PURGE causes the CHB entry to be removed* 
The activity of the card is determined by a CHB search. If the 
activity has changed the card is printed* If active? the card 
is written on the New Program Library? compile file? and source 
file* The appropriate card counter is bumped and the search for 
inserts is reinitiated* 
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TEXT STREAH 


The text stream contains card images and control information 
known as correction history bytes At least one word of 

control information precedes each card image! 


S3_S3_IS_17_ 



zeros 

I un¬ 
used! 


CHBl 

CHBB 


Secondary CHB''s recorded 
in bits 17-QCI of the first 
word continue in subse¬ 
quent la-bit bytes in the 
lower order SM-bits of 
each word and terminate 
with a zero-value CHB- 

Primary CHB^ this byte identifies deck or 
correction set under which this card was 
introduced and gives the card its 
alphanumeric name- 


Number of words used by the compressed card imagei this 
information speeds up input operations- 

Activity biti contains a 1 if the text cardn which immediately 
follows the control informationi was active at the time the 
program library is written- 


CHB format! 

17 15 _□□ 

I [ correction 
1 set name _ 

4 t * 

1 identifies correction set which performed actioni 
provides ordinal into identifier table- 

Activity bitV contains a 1 if the correction set acti¬ 
vated this card- 

Not used- 
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TABLE FORriATS 


DYNAniC TABLES 

DIRECT: 1 word per entry- 


51 IS 

17 

It. 

0 

7 character ident name 

Y 

P 



Y = Yank biti on if ident has been yanked- 

P = Purge biti on if ordinal has been purged -Cin which 
case 1 name 

The DIRECT table contains an entry for each IDENT encountered 
by UPDATEt this isi from the input stream or the old program 
library■ 


DECK: 1 word per entry- 

51 _ 16 17 _Q 

7 char deck name 


DICT: 3 words per entry- 


17 



Index of 1st 
ident of limit 


Card num 
of ident 


Index oi 
ident o1 

F End 

F limit 


Card num 
of ident 


Index of 
ident corr 
under 

Number of 
cards to 
insert 

Address of 
text on 

FTEXT 


If a restore or delete has only one limitn the End word is a 
copy of the first- For an insert the second word is meaningless- 
For an ADDFILE the second word contains the file name left 
justified and word three is set to lODDDDO- 
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CNTRi 1 word per entry- 



This table contains the count of cards found for each ident- 
The count for the Ith ident in the DIRECT table is found at 
location CNTR + I. 


FIXED LENGTH TABLES 

CHBTAB: 1 word per CHB. 



Y = Yank bit 


A = Activity bit 

The CHBTAB can hold EDO CHB''s* The lower Ifl bits have the 
same format as the Ifl CHB''s which are written on the OLDPL 
with the only difference being that bit 17 is used to indi¬ 
cate that an ident has been yanked- 


FTEXT: E words per entry- 
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UPDATE 

ENTRY 

From SCOPE loader 
ROUTINES CALLED 

ADDtiJORD-, READCD-i CLASSIFY-. NEIil-, RBIN-. MANAGER-, C0RR-. 

ECOR 

DESCRIPTION 

UPDATE is the initialization routine. It scans the UPDATE 
control card and sets up all the optional flags and resets 
file names. It opens files which are always present and 
initializes the dynamic tables. The first card is read 
to determine the style of updating. If the input file is 
empty-. ECORi if not either NEW or CORR is called. 


ECOR 

ENTRY 


Efi3 ECOR 

ROUTINES CALLED 

CORIDXt DUMTXTt CONDECi PRINTt DUriDIR-i R0PL-, nOVE-i MANAGER 
GETTXT-, RDEC-, SfiUEEZEi UCARD-, ADDID^ CK0VL-. WRNPL-, URCOM-, 
SCITEM-, COPYM-, URSOUE 

DESCRIPTION 


ECOR is called from CORR to read and make the corrections 
called for in the table DICT. Modifications are listed 
and overlapping corrections checked for. The NEIilPL-. 
SOURCE-, and COMPILE files are created by calls to URNPL 
and URCOM. At the end either DONE or ABORT is called to 
terminate the UPDATE run* 


URCOM 
ENTRY 
RJ URCOM 
ROUTINES CALLED 

CLASSIFY-. URSOU-, URC-, UMC-. UBIN-, UCARD-. ADDID-. PRINT-, 
SCITEM-. TLUDIR-. GETCH, COPYM-, ADDU0RD-. MOVEi URSOUE 
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DESCRIPTION 


URCOn is called by ECOR and NEIil to write the compile and 
source files. It also determines which file to write 
cards ton and sets the yank bit in the directory for yank 
cards. Decks written to the compile file and comdecks 
encountered are also tabulated. 


NEy 
ENTRY 
za NEU 

ROUTINES CALLED 

READCDt classify-, UtlCn SCITEfln ADDUIORD-, ADECK-, PRINT-, 
DUhDIR-, RMC-, ADDID-, URNPL-. URCOM 

DESCRIPTION 

NEU is the section of UPDATE which handles creation runs. 
Text cards are read in and copied to the CNPSCR file. Deck 
names are extracted and kept. At the end of the input 
stream CMPSCR is rewound and the routines URNPL and URCOM 
are called to create the NEUPL-, SOURCE and COMPILE files. 


CORIDX 

EN TRY 

Rd CORIDX 

ROUTINES CALLED 

ADDUORD 

DESCRIPTION 

CORIDX checks to see if an ident is in effect-i and if so-, 
adds the ident name to the table DIRECT. 


GETLin 
ENTRY 
RJ GETLin 
EXIT 

Xt> contains ordinal of ident 
X? contains the card number 
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ROUTINES CALLED 

SCITEdi TLUDIR-. SCNN-. PRINT-, GETCH 
DESCRIPTION 


GETLIM scans a control card for an ident and card number 
and returns this information to the calling routine. Format 
errors and a card number of zero are diagnosed. 


CLASSIFY 

ENTRY 

RJ CLASSIFY 

In call RJ is followed by a list of words. The first 30 
bits of each contain an Efl jump to a processing routines 
the second 3D the address of the control word to be matched. 
The list terminates with a word of □■'s. 

ROUTINES CALLED 

SCITEHLi GETCH 

DESCRIPTION 


CLASSIFY compares the card image with the string of types 
and takes the proper jump for a match■ If none match the 
card-, the word following the zero word is returned to. 


lilRC 
ENTRY 
RJ URC 

ROUTINES CALLED 

FnCARDi CLASSIFY-, UDEC-, ADDU0RD-, SCNN-, PRINT-, SCITEMt RBIN-« 
MANAGER-. MOVE 

DESCRIPTION 

URC formats and writes the data card to the COMPILE file- 
It finds comdecks called for on CALL cards and copies 
them to the compile file- 
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CKOVL 
ENTRY 
RJ CKOVL 
DESCRIPTION 


CKOVL checks to see if the overlap flag has been set for a 
card. If the flag has been seti the word overlay is appended 
to the card image. Overlapping corrections are also displayed 
on the scope. 


REAPED 
ENTRY 
RJ REAPED 
EXIT 

XI = 0 normal 

Xli ^ 0 if EOR encountered 

ROUTINES CALLED 

RDECi SflUEEZE-, MOVE-. CLASSIFY, PRINT, ATTACH, SCNN 
DESCRIPTION 

READCD handles the input of coded information for UPDATE. 

The only exception is for files earned by ADDFILE. Cards 
are read, compressed, and checked to see if they are file 
manipulation cards. Comment cards are printed out and another 
card read automatically. 


PRINT 
ENTRY 
Rd PRINT 

Xl=FljJA to be printed 
X5=word count 13 words 

ROUTINES CALLED 

UDEC, P10VE 

DESCRIPTION 


PRINT handles all output from UPDATE to the list file. Page 
counts are also handled. 
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GETCH 
ENTRY 
RJ GETCH 
EXIT 

Character in Xb 
DESCRIPTION 

GETCH advances the column pointers and fetches the next 
character of the card. 


SCITEW or SCITEHL 
ENTRY 

RJ SCITEn or RJ SCITEHL 
EXIT 


Xb = identifier LJUST with trailing O-'s- 

ROUTINES CALLED 

GETCH 

DESCRIPTION 

SCITEH and SCITEHL both reply with the ident in Xb. 
SCITEHi however-, checks for an identifier greater than 
7 characters where SCITEHL doesn''t« 

SCNN 

ENTRY 

Xb=value of field or D if illegal 

ROUTINES USED 

GETCH 

DESCRIPTION 

SCNN scans a numeric field on a card and returns the 
integer value. 
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CON DEC 
ENTRY 
RJ CONI>EC 

Xl=1nteger to be converted 
EXIT 

Xb=display "Forfri leading blankst Bti=b times count of digits 
DESCRIPTION 

CONDEC converts an integer to display code for printing 
purposes• 


DUI1L 
ENTRY 
RJ DUHL 

Xl=origin of table 
XE=length of table 

ROUTINES CALLED 

PRINT-. CONDEC 

DESCRIPTION 


DUHL dumps a directoryT ta entries to a line-, by format¬ 
ing a line and calling PRINT. Entries in a directory of 
* • • . are considered purge idents and are counted* 


COPY PI 
ENTRY 

Rd copvn 

ROUTINES 

MOVE-, ADDtilORDi CLASSIFY-, RHC-, tiJRC 
DESCRIPTION 


COPYfl is called by the write compile routine to handle its 
I/O- It determines whether or not the card is part of a 
comdecki and if the card should be written to the compile 
file or CnPSCR file. 
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DUHTXT 

ENTRY 

Rj ouhtxt 

ROUTINES CALLED 
MANAGER-. ADDUORD 
DESCRIPTION 

DUMTXT writes a page from memory to the random file FTEXT. 
It adds to the dynamic table TXTLIM both the random index 
of a left record and its length. It also keeps track of 
the total number of words written-. TXTBIAS. 


GETTXT 
ENTRY 
RJ GETTXT 
DESCRIPTION 

GETTXT fetchs the right indexed record from the file FTEXT. 


MANAGER 

ENTRY 

RJ MANAGER 

A0=table to be managed 
Xl=size of change C+ or - words! 

EXIT 

X2=origin of table 
X3=new size 

ROUTINES CALLED 

MANAGD 

DESCRIPTION 


MANAGER is used to allocate space to UPDATE'‘s dynamic 
tables. If room does not exist to make the change-, the 
present lengths of tables are summedi the difference of 
the sum and what^'s available calculated-, and this dif¬ 
ference divided into equal increments for each table. If 
not enough room existsi the job is aborted* 
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(lANAGD 

ENTRY 

RJ riANAGD 

ROUTINES CALLED 

MOVE 

DESCRIPTION 

MANAGD moves all of UPDATE•‘s dynamic tables to low core. 


SQUEEZE 

ENTRY 

RJ SQUEEZE 
DESCRIPTION 


SQUEEZE compresses the card image and determines the 
length of the compressed image. It terminates the image 
with a .□□□□& byte. 


UCARD 
ENTRY 
RJ UCARD 

Xl=add. of first word 
EXIT 

XU=add of word following last word unpacked. 
DESCRIPTION 


UCARD unpacks the compressed card image from SQUEEZE and 
places it in the array card. It terminates when it finds 
a word ending with a QQDDg byte. 


ADDID 

ENTRY 


RJ ADDID 
ROUTINES CALLED 
CON DEC 
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DESCRIPTION 


ADDID picks up ident name and card number of a text card 
and adds the information to the cells CARD+7 and CARD+fi. 


ROPL 
ENTRY 
RJ ROPL 

ROUTINES CALLED 
RBIN 

DESCRIPTION 

ROPL reads the old program library t unpacking CHB'*s and 
checking for premature E0R'‘s. It also bumps the CNTR 
for the ident which introduced a card. 


ADECK 
ENTRY 
RJ ADECK 

X1=DECK name to be added to DKLST 

ROUTINES CALLED 

ADDUORD 

DESCRIPTION 

ADECK adds a deck name to the dynamic table DKLST. 

ATTACH 

ENTRY 

RJ ATTACH 

ROUTINES CALLED 

SCITEflL-. PRINT 

DESCRIPTION 


March 1969 


ATTACH is called to attach a named file to the FET for 
READFIL- It checks the legality of the file name before 
attaching the file. 
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ENTOICT 

ENTRY 

RJ ENTDICT 
ROUTINES CALLED 
ADDUORD 


DESCRIPTION 


ENTDICT builds a three word dictionary entry in the table 


1-insert E-restore 4-delete 
Index of ident of card 
card number 

index of ident of second limit 
card number of second limit 

index of ident this correction is under 
number of text cards to be inserted 
address of start of text within FPAGE 


DICT. 

The < 

Urd 

Bits 

1 

ST-S7 

47-30 

17-0 

E 

47-30 

17-0 

3 

S3-3t 

3S-lfl 

17-0 


FNCARD 

ENTRY 

RJ fucard 

ROUTINES CALLED 
UCARDi CONDEC 
DESCRIPTION 


FUCARD unpacks the squeezed image and appends the ident 
and card number to it. 


URSOUE 

ENTRY 

RJ URSOUE 

ROUTINES CALLED 

lilDEC 
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DESCRIPTION 


liIRSOUE checks if an *<END card is needed on the source file 
and writes one if needed. 


lilRSOU 
ENTRY 
RJ lilRSOU 
ROUTINES CALLED 
UCARD-, tiJDEC 
DESCRIPTION 

Unpacks card and writes it to the source file. 


R8IN 
ENTRY ■ 

RJ RBIN 

A1=FET loc of file to be read 
Xa=FliJA of data 

X3=number of words to be read 
EXIT 


Xl=a if normal exit 
Xl^D if EOR encountered 

DESCRIPTION 


RBIN moves the number of words specified from the file''s 
input buffer. If another read is necessary to satisfy 
the request! it is issued. 


RDEC 
ENTRY 
RJ DEC 

Al=FET loc of file to be read 
XE = FIJA of data 

X3=max number of words to read 
EXIT 


X1=D if normal exit 
Xl^D if EOR encountered 
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DESCRIPTION 


Similar to RBIN except RDEC terminates moving when it 
encounters a word terminating with a zero byte- If X3 
is met without finding a D byte-i pointers are advanced with¬ 
out moving any words. 


lilBIN 
ENTRY 
EJ 111 BIN 

A1=FET loc of file to be written 
XS=FliJA of data 

X3=number of words to be written 
DESCRIPTION 

UBIN moves data to the filer's circular buffer and initiates 
a write if it is necessary- 


lilDEC • 

ENTRY 

RJ UDEC 

A1=FET loc 

XB=FUA of data 

X3=number of words to write 

ROUTINES CALLED 

UBIN 

DESCRIPTION 

UDEC writes data by calling UBIN. It makes sure that the 
string written terminates with a □ byte {12 bits>- 


UNC 

ENTRY 

RJ unc 

ROUTINES CALLED 
UBIN 
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DESCRIPTION 

Writes a squeezed card image and its length to CHPSCR 
by calling WBIN. 

RMC 
ENTRY 
RJ RMC 
EXIT 

Xl^D it EOR encountered 

ROUTINES CALLED 

RBIN 

DESCRIPTION 

Read information written on CflPSCR by fiJnC. 


lilRNPL 
ENTRY 
RJ iJRNPL 
ROUTINES CALLED 
WBIN 

DESCRIPTION 

litRNPL writes the text information and the CHB-'s to the NEWPL 
by calling WBIN. It packs the CHB-'s from the CHB table 
before writing them. 


LJUST 
ENTRY 
RJ LJUST 

Xl=name to be justified 
EXIT 

Xb=name blank filled 
X7=name □ filled 
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DESCRIPTION 


LJUST takes the name Input and left justifies it blank 
filling and DD filling it. 


TLUDIR 
ENTRY 
RJ TLUDIR 

Xl=name to search for 
EXIT 


Xl=same as on entry 
XB=D if name not found 
=actual entry found 
AS=address of entry 
X3=index of entry 

DESCRIPTION 

TLUDIR- searches the ident directory for the name input. 


ADDUORD 

ENTRY 

RJ ADDUORD 

Xl=word to be added 

AQ=number of table to be added to 

ROUTINES CALLED 

MANAGER 

DESCRIPTION 

ADDlilORD adds a data word to a dynamic table. 


DUMDIR 
ENTRY 
RJ DUMDIR 
ROUTINES CALLED 
UBIN-, DUMLi MANAGER 
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DESCRIPTION 

DUnDIR opens the NEUPL and dumps the ident and deck list 
to it. It also prints the two lists and sets up the coun¬ 
ters for the card numbers. DUflDIR may be entered only 
once. 


HOVE 
ENTRY 
RJ nOVE 

XI“number of words to be moved 
X5=source address 
X3=destination address 

DESCRIPTION 


HOVE moves blocks of words in storage. The direction of 
the move is checked to avoid over-stores. 


DONE 
ENTRY 
Efl DONE 

ROUTINES CALLED 
DUHL-. PRINT 
DESCRIPTION 

DONE is the normal termination routine. It terminates 
UPDATE •'s filesi lists out common decks and decks written 
to the compile file-* and prints statistics about the UPDATE 
run. 


ABORT 

ENTRY 

El3 ABORT 

ROUTINES CALLED 

CONDEC, DUMDIR 

DESCRIPTION 

ABORT is the abnormal termination routine. It terminates 
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UPDATE •’s filesi prints idents and decks encaunteredi displays 
number of errors foundi and calls the system’*s abort routineT 
ABT. 


CORR 
ENTRY 
Efl CORR 

ROUTINES CALLED 

PRINT, READCD-, CLASSIFY, SCITEH, ADECK, HOVE, DUHIXT, 
CORIDX, TLUDIR, GETLin, ENTDICT, GETCH, ATTACH, RDEC, 
S(aUEEZE, ADDUORD 

DESCRIPTION 


CORR is the section of UPDATE which reads and checks 
correction sets. Cards are checked for illegalities and, 
if legal, build an entry in the table DICT. liihen all input 
has been read, CORR transfers control to ECOR. 


14-147 


March 1969 



SCOPE 


14.20 XXXDflPfl 


General 

XXXOnPfl determines the type of file being dumped by inter¬ 
rogating the parameter in RA+2. Depending on the file type t 
the corresponding label is set in the FET. A retention code 
of one day is set into the label. Two buffers are used 
for dumping the files. A read is issued for one buffer and 
when complete! the name is changed and a write issued and a 
read is issued into the other buffer. 

The first record of each file Cone file per job} is three 
words long and contains the FNT entry for that file. The file 
is dumped until end-of-information is returned from 1»S(2 and 
at that time a file mark is written. When no more FNT entries 
exist! the file is closed Cfrom the PPl and trailers labels 
written. 

Major Subroutines 

1. ENTRNAM 

This routine is called each time a new file is being pro¬ 
cessed- It moves the FNT entry into the I/O buffer and 
sets up a cell which contains the name of the file being 
dumped. 

2. CALLPP 

This routine is called when a file is ready to be processed. 
It sets the cell that the PP is monitoring to zero which 
signals the PP to write an FNT entry. The message ^look¬ 
ing for XXXX'^ is output from this routine. The message 
is displayed whenever the PP does not respond with an 
FNT entry. 

3. READl 

This routine sets up the specified FET for a read op¬ 
eration. It sets up the file name and function code in 
the FETt sets first = in = out and issues a read. 

M, CKREADl 

This routine checks the status of a completed read op¬ 
eration. It checks for an end-of-record or end-of-file 
status and checks if the buffer is full. 

If the status is EOFt a check is made to determine if 
end-of-information is upi if not! the record is written 
with an end-of-record write. If the status is not EOR! 
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the buffer must be full -CIN = LiriIT-l>. If the buffer 
Is not fulln another read is issued with auto-recall 
and when complete the entire subroutine is executed 
again. The only way to exit the routine is for the 
status to be EOFn EOR or buffer full* 

5. lilRITEl 

This routine sets up the specified FET for a write op¬ 
eration. The name of the file is changed to '^flUETAPE^ 
and a write is issued to CIO. 

b. CKtiJRITE 

This routine checks the status of a completed write 
operation- If an unrecovered write parity error has 
occurredn a jump to the routine PARER is made. If the 
buffer is emptyi an exit is madei otherwise another 
write is issued. 

T- PARER 

When an unrecovered write parity error occursn the 
following procedure is taken. 

1. Back up tape to the beginning of the file. 

E. Rewind the disk file. 

3. The message '^tilPE UWRECOVEREOi EOT-, FORCED-, TYPE GO^ 
is issued to the dayfile. 

End-of-tape condition is forced and the tape rewound 
and unloaded. 

S. The message I1TXXE0T-, MTXX NOT READY is displayed. 

6. URITFIL 


This routine is used to write the file mark at the end 
of each file. 


General Flow 


It should be noted that the primary design criteria for DHPtS 
was speed of execution in minimal field length. Therefore-, 
as much read/write overlap as possible was obtained. If 
greater overlap is attempted-, I/O timing considerations 
make the routine unreliable. 

The routine is loaded by loader and the appropriate tape 
label is set into the FET-'s- A request is then issued for 
the tape and the job waits in recall for operator assign¬ 
ment- Upon operator assignment-, the file is open via OPE 
for write operations* XD£3 is then called with a buffer 
address in the lower Ifl bits of the call. A call is made 
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to CALLPP to obtain an FNT file and upon return-, a call is 
made to ENTRNAH to move the file name into the I/O buffer-, 
then a write is issued. A read is immediately issued from the 
disk for the first record of the file. 

Error Conditions 

The diagnostic *ERR0R AT E0F0-, NOTIFY SYSTEMS'' is put out 
if end-of-information is encountered on the first read of 
a file. This condition cannot logically happen and is 
flagged in case it does. E'OFO is a location tag in 
XXXDMPiS. 
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14.21 XXXRESa 


General 


XXRESfl reads the tape a record at a time and writes the 
information to the disk. The first record is saved Cthe FNT 
entry} and when a file mark is encountered on the tape-> the 
FNT address of the file restored is set into a cell that 
is being monitored by XRfl. XRfi picks up the FNT entry and 
clears the cell and XXXRESa continues reading the tape. 

Two buffers are used to provide continuous processing of 
the tape. Uhen end-of-information is returned from the tape 
driver! the message ^RESTORE COUPLETED^ is written to the 
dayfile. 


ria.lor Subroutines 

1. CALLPP 

This routine is entered when a file mark is encountered 
on the tape. A local cell is checked to determine if a 

parity error has occurred-* if the flag is set-* the mes¬ 

sage FILE NAME DELETED FROM (3UEUE-, PARITY ERROR'’ is 
displayed! '’gO® must be entered to continue processing. 

Only '’INPUT'’ type files are deleted because of parity 
errors. If the error flag is not set-i the FNT address 

of the file being restored is set into the location 

monitored by XRi3. 

2. liJRITE 

This routine sets the disc file name into the FET and issues 
a write to CIO. 

3. READ 

This routine sets the tape file name into the FET and 
issues a read to CIO. 

4. SAVINFO 

This routine is called after the first read of every file. 
The first record contains the FNT entry. The FNT entry 
is moved and saved in local storage. The file name is 
masked out of the first word and saved in a cell tagged 
DISCNAfj. A message containing the file name is sent to 
the dayfile. 

5. EOI 


This routine is entered when end-of-information is returned 


14-15L 


mrch 1969 



SCOPE 


■prom "the "tap® driver* The FNT address is processed in 
the same manner as CALLPP and the message ^RESTORE 
COnPLETED'^ is displayed* Minus zero is set into the 
location monitored by the XRfl which signals the PP 
routine to drop the CP and drop the PP* 


General Flow 

Upon initial entry-i the parameter from XR(3 is interrogated 
and the correct tape label is set up on the FNT. A request 
is then issued for the tape* Upon operator assignments a 
call is made to XRO with the address of a four word buffer 
in the lower Ifi bits of the call* A read request is issued 
and on completion a call to SAVINFO is made. Tape reading 
and disk writing continue until end-of-file status is re 
turned from the tape* At that timeT CALLPP is called an 
then the process continues until end-of“information is 
returned from the tape* At that timeT EOI is called to 
terminate the run* 


Error Conditions 

The diagnostic ''TAPE FORMAT ERROR. NOTIFY SYSTEMS'' is senr 
to the dayfile if end-of-file is returned on the second read 
of each file. 
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14.22 TRANSF 

TRANSF, jobname, . 

TRANSF is a central memory program written for job dependency in 
SCOPE 3.2.1. It is called by a TRANSF control card. 

Upon entry, TRANSF expects job names (five characters or less) to 
be placed in central memory words RA+1 (I = 2,...53B) and parameter 
count in word RA+64B by lAJ. It then calls PP routine JDP to process 
all the job names one at a time. 

A TRANSF card without job names is ignored. 
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15,0 COMPASS Debug Aids 

15.1 SNAP 


15.1.1 


Introduction 


SNAP* the snapshot dump routine, is executed in two phases. During ph 
one, the routine SNAP is entered by loader for the purpose of planting traps 
in the object program locations at which SNAPS are to be taken. In order 


to achieve this, LOADER (via DEBUG) provides the following information: 
INDEX2 - The object routines entry point address (transfer address) 

INDBta - F«A of the SNAP routine 
INDB14 “ LWA+1 of the SNAP routine 

INDEX5 - FWA of the LOADER provided snap tables. (SNAP table formats 


are shown In Fig. A) 

SS4P check, the wlidlty of Che p.r««cer. .applied to the cable., and if 
they are acceptahle. .tore. th. content, of the object progr«. location 
being .napped in the table.. SIttP then pl«it. a retain Ja»p to the roatlne 

SNAPPER in the snapped location. 


For each SNAP table in ^dilch there Is an error, the dayflle message SNA 
CARD PABAMETER ERROR, ID - XXXXXXX'* Is issued and the table is ignored. 
The return jump to the routine SNAPPER is formatted as shown below: 

17 _0 

--- 1 

L jpj SNAPPER _ I ADDRE SS J 

Where address la the FHA-1 of the LOADER provided table associated with 
this soap. After all tables have been processed. SNAP enters the object 
routine at the address contained in the index register two. 

Upon encountering. In the object routine, one of the SNAP pUnted return 
juaps, phase two (SNAPPER) Is entered. The purpose of phase two is the 
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15.1.2 


creation of the snapshot dunip(s) In accordance with the specifications 
given in the loader provided Cables, which were generated from Che user's 
SNAP cards. 

Subroutine descriptions 

A. SNAPPER is a closed subroutine, and consists of a driver (main loop) 

( 

and several other subroutines. SNAPPER performs the following functions; 

1. Sets up a header line ^ich appears at the top of each page of the 
dump. 

2. Updates frequency parameters and determines if dumps are to occur. 

3. Sets up, if requested to do so, the following call to a user supplied 
subroutine: 


L RJ User Subroutine 

L+1 Address 1 

L+Z Address 2 

L+3 Normal Return 

Where: Address 1 FWA-1 of Che LOADER provided SNAP tables 

Address 2 “ FWA of the SNAPPER provided cables 
Notes: 1. The user routine must return control to L+3 

2. The user routine need not save registers 

4. Determines mode and sets up a call to the proper subroutine to 
perform the requested dump. 

5. Executes the object routine instructions which were replaced by 
the call to SNAPPER. 

6. Returns control to the object routine. 

B. MNEMC»nC DUMP (MNEmP) 

The mnemonic dump subroutine dumps, the address of, and one 60 bit word 
of data per line of output. The dump is in COMPASS mnemonics and may 
include a maximum of four instructions per line of output. In order to 
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insure a high degree of accuracy the following checks are made: 

1. If Che op code la a thirty bit op code are there 30 bits remaining 
in the data word? 

2. If the op code la zero, are the entire thirty bits of the Instru¬ 
ction zero? 

3. If the op code la 46 (no op.) are the remaining nine bits zero? 

4. If the o|) code la 10, 14, or 47, are the j and k Indicators the same? 

5. If the op code is 01 and the 8ub*op code is not zero, la the Instru¬ 

ction upper? 

If any of the above tests fail a fifteen bit byte of data is dumped in 
octal. 

Data is packed in a temporary buffer as It Is processed. When enough 
data for one line of output has been created, the temporary buffer is 
reformatted and packed in the specified output buffer. After each word 
la dumped, Che data FWft la increased by the Increment and the dump con¬ 
tinues until the FU4 la greater or equal to the LW4, whereupon control 
returns to the oiain loop (SHAFFER). 

IHTEGER DOMP (INTDMP) 

The Integer dump subroutine treats all data as decimal Integers of 60 
bits. It dumps the first words address and up to four data words per 
line of output'. The data to be converted Is -first floated and put in 
double precision floating point fonoat. The log of the number (exponent) 
base 2 is converted to base 10. The number is then scaled and Che 
exponent adjusted. The fractional portion of the number is converted to 
BCD by successive multiplication. The exponent Is Chen used Co deter¬ 
mine the digit count. Data is rounded and packed in a temporary buffer 
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until enough data for a complete line has been processed. The data Is Chen 
reformatted In the specified output buffer. Each number is left adjusted 
in its output columns. The method of conversion is similar to that employ <1 
by the FORTRAN object time routine KDDER. FHA is Incremented and the 
dump continues until LHA Is equaled or exceeded by FUA* 

D. DISPLAY DUMP (DSPDMP) 

The display code dump subroutine considers all data input to be display 
coded characters. DSPDMP dtsops Che address of the first data word of 
each line and eight words of ten characters each for each line of 
output. Checks are made for end of line indicators, and if any are 
found they are replaced by an up and by a down arrow. FWA Is Incre¬ 
mented and the dump continues until LUA is equaled or exceeded by FWA. 

E. FLOATING OR INTEGER DUMP (FOIDMP) 

FOIDMP considers all data to be single precision floating point unless 
Che exponent is zero (bits 48 through 59)« In which case it considers 
It to be a 48 bit Integer, The data is floated If required, and put 
In double precision floating point format. This value Is then converted 
to display code as described in part C above. The FUA and four data 
words per line are output to the specified buffer. Floating point 
values are output In scientific notation with an E indicator if the 
value of Che exponent is less than 100, otherwise the E is omitted. 

Fifteen digits are printed for all floating point values (no suppression 
of trailing zeros). Integer values contain a maximum of fifteen 
digits and are left adjusted in their output fields. FWA is incremented 
and the dump continues until FVZA equals or exceeds LUA. 

F. SINGLE PRECISION FLOATING POINT DUMP (SPFDMP) 

Same as E except no test for integer values is made. 

G. DOUBLE PRECISION FLOATING POINT DUMP (DPFDMP) _ 
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DFFDMP considers all data Input to be In double precision floating point 
fonoatt The FWV and three double precision words of twenty nine digits 
are output for each line. Hie method of conversion Is as described in 
C above. 

Twice the Increment Is added to FHA and the dimp continues until FU^ 
equals or exceeds LHl. 

H. OCTAL DUMP (OCTDMP) 

All data Input la assused to be of octal format. The data FWA and four 
words of twenty characters are dumped for each line of output. Each 
word is broken into four columns of five characters each. Each five 
character column la separated by a blank column. Successive rep- 
itltlous data are not svqipressed. FUA is Incremented, and the dump 
continues until FUA equals or exceeds LHA. 

I. REGISTER DUMP (REGDHP) 

The register dianp routine dunq>s the contents of all twenty four operating 
registers as they appeared upon entry to SNAPPER. It also dumps the 
contents of the location contained In each of the eddress registers A1 
through A7« 

TABLE FORMATS AMD PROCESSING 

SNAPPER uses two types of tables* The Loader provided tables are semi¬ 
permanent, multiple entry tables. The SNAP provided cables are single 

entry dynamic tables. 

A. The loader provided tables are used primarily to pass parameters from 
the SNAP card to the SNAP and SNAPPER subroutines. They will also 
contain any parameters for a user subroutine. Except for the updating 
of the frequency paraateters, SNAPPER does not modify these tables. There 
Is one loader provided table for each SNAP card associated with a 
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given job. Each table entry is a mlniinum of nine words, but may be 
longer due to user routine parameters on the SNAP card. Like all 
loader tables, the SSAP tables are stored In descending order from 
high numbered core to low numbered core (backwards). 

B. The SNAP provided tables provide information to and conanunlcates with 
any user routine requesting entry from SNAP, The SNAP provided table 
is 26 words long and has the following symbolic locations defined as 
entry points; 

1. RBO Is the FWA of an eight word array of the saved index registers. 

2. Is the FWA on an eight word array of the saved address 

registers, 

3. RXO Is the FWA of an eight word array of the saved X registers. 

All registers are stored in ascending order within these arrays. The 
remaining two words of the table are used by SNAP entered user sub¬ 
routines to conmunicate with SNAP as follows: 

1. If bit 59 of word RBCH-24 is set to one, this SNAP will be suppressed. 

2. If bit 59 of location RBO+24 is clear, an 18 bit address, low order, 

will be Interpreted as the address of a 13 word FET which is to 
replace SNACE, as the output buffer for this SNAP. 

3. An 18 bit address low order in lodhtlon RBO+25 will be Interpreted 
as an exit address to which control will be given upon conqiletion of 
the snapshot dump. 

Prior to entering a user routine, SNAPPER sets location RBO+24 to zero 
and location RBO+-25 Is set to the address of the location at which the 
snap is planted plus one (lA+l for the current dump). Data in this 
table is pertinent to the present dump only. 
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Pitch Up (18) 

IDENT (42) 

Unused 

— — -- 

CIA 


Step Size (12) Mode (12) 

iimBm 

FI (15) F2 (15) 

F3 (15) 


Unused 

lA (18) 

unused 

UR (18) 

unused 

FWA (18) 

Ihiused 

LUA (18) 


First User Param 
* 

* * 



a 

Last User Param 


-0 (not present if no user params) 

76 Unused (18) Pitch Down (18) 

Pitch Up (18) 


Fig. A LOADER PROVIDED SNAP TABLE 

Wiere: Pitch Up - the Increment to be SUBTRACTED from the current table 

FHA to reach the next higher table entry. 

Pitch Down - the increment to be ADDED to the current table FWA to 
reach the next lower table entry. 

Note: SNAP always processes tables upward, i.e., from high 

numbered core to low nvnbered core. 

IDENT .“A 7 char Identification for this dump. 

Note: If loader sets this word to zero, SNAP will skip the 

table. This is a device for use by loader to delete 
improper tables without aborting the job. 

CIA “ Bie contents of user location lA prior to planting the 

SNAP call. 
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SNAP COUNT * A fifteen bit count of the nuaber of times SNAPPER has 

been entered due to the call planted at this table*s IA» 
STEP SIZE= The Increment between words to be dumped. This value is 
doubled by SNAPPER for double precision dumps. 

MODE - The dump mode IndlcatorCs). Legal modes are as follows: 
t - octal format 
M > mnemonic format 

S “ single precision floating point format 
F " single precision floating point or Integer format. 

C ^ display code format 
I = sixty bit Integer format 
D “ doi^le precision floating point format 
R * register dump 

The R indicator may be used In combination with the other mode Indicates: s • 

If no mode Is given R & (> are assumed. If, howver, no mode and no FWA 

and LUA are given, only R is assumed. Illegal modes are Ignored. 

A = A two bit overlay/segment flag. If A“2, this SNAP is 

associated with overlays. If A-3,this SNAP is associated 
' with segments. 

' OVERLAY LEVEL* Overlay level to \^lch this SNAP table applies. This vat ue 
is cotq>ared to the value set. in location OVFLAG (an entry 
point In the routine DEBUG) »diich Is the level currently 
loaded. If during overlay processing, these two values do 
not match, the table is skipped. 

FI = Starting SNAP count. Dumping begins \dien the SNAP count is 

equal to Fl. 

F2 « Ending SNAP count. Dumping stops %dien the SNAP count is 

greater than F2, 
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F3 * The frequency Increnent• This value is added to FI to 

dcteimlne when the next dtaup will be executed, 
lA " SlUP address. This is the location at which the user wishes 

to execute a SHfiF dump. The contents of lA are saved prior 
to planting the call to SNAPPER, and are executed in SNAP 
after restoring registers, but prior to returning to the 
object routine. 

UR ■ User subroutine address, nte address of a closed subroutine 

which. If present, will be entered by SNAP after updating 
the frequency paroneters, but prior to any dump. This 
subroutine. If required, must be supplied by a user. 

FHA * First word address of the area idiich is to be dumped. 

Lift ■ Last word address of the area which Is to be dumped. 

Followii^ the above will be any user parameters from the soap card. The 
user parameters are terminated by a word of all ones (minus zero). The word 
of ones is included only if user parameters are present. 

ENTRY POINT RBO 


ENIKY POINT RAO 


ENTRY POINT KXO 


"EJ- 

-IT 

Bl 

UPON ENTRY 

B2 

UPON ENTRY 

B3 

UPON ENTRY 

B4 

UPON ENm_ . 

B5 

UFOl ENTRY 

B6 

UP(W ENTRY 

B7 . 

UP(W ENTRY 

AO 

UP(»I ENTRY 

A1 

UPON ENTRY 

AZ 

UPON ENTRY 

A3 

UPON ENTRY 

A4 

UPON ENTRY 

AS 

UPON ENTRY 

A6 

UPON ENTRY 

A7 

UPON ENTRY 

XO 

UPON ENTRY 

XI 

UPON ENTRY 

X2 

UP(»I ENTRY 

X3 

UPON ENTRY 

X4 

UPCW ENTRY 

X5 

UPON ENTRY 

X6 

UFOK ENTRY 

17 

UPON ENTRY 

ISER COMI. 

«RD. 1 

USER COItl. 

WRD. 2 
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Note: This table Is in ascending order from low numbered to high numbered 


core. 


Fig. B SNAP Provided Table 


15.1.4 FLAGS, EUFFEBS & TABLES 

The following flags are used; 

IFLG * Integer conversion flag, zero is on, non-zero is off. 

Used by; FLTDSP. Set by; INTDMP, CTBD, £e DPFDMP. 

FSFLG ^ Flmting/single or single only fl^. 

+1 ~ single precision floating point format only. 

-1 * single precision or integer dump. 

Used by: CTBD, Set by: FOIDMP & SPFDMP. 

HODIG “ Number of digits to convert to display code. 

Used by: FLTDSP. Set by INTDMP, CTBD, & DPFDMP. 

FHAFET ■> First word address of the FET to be used with this dtnnp, 

normally SNACE. 

Used by: PUTOUT & SCIO. Set by: SNAPPER. 

LINECNT - Minus the number of lines to be printed per page. 

Used by; PUTOUT, Set by; SNAPPER, PUTOUT. 

URDS * Number of data words to convert per line of output, except 

as used by MNEDMP where It Is the number of 15 bit bytes 
processed In the current data word. 

Set and used by all dtmip routines except REGDMP. 

WRDS+1 ■ An overflow word which Is destroyed each time address is 

executed. 

OUTPUT * Used as a working buffer. 

SDTA * Temporary storage used to save various pointers and register 

values prior to entering user subroutines. 
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Th« tabla* baglnnlng at locatioiut MKC, MJCl, and MNC2 are mnemonic op codes 
used by MKEDMP aubroutlnea. Not* that the second and fotnrth entries in the 
table MNC are polntera to the tables MKCl and MNC2 respectively, 

t ' 

USING SNIP 

A. SESTUXCTIONS , 

1, Snaps may be tbken anywhere In a program's Instruction sequence. 
Howeverf certain conditions must be avoided, 

a. Return ju^s to subroutines idilch do not return control to L+1 
can not be snapped, 

b. Instructions which are -progrmn modified cannot be snapped. 

c. If an lA la In a dump range the call to SNAPPER is duoaped, not 
the original Instructions. 

2, If a user supplies an PET, the buffer defined by that PET must be 

at least 27 words greater than one PRU for the device which Is to 
be written on. 

3, Entry to user supplied subroutines Is made only if all conditions 
required for a dusip are met. 

4, It is the user’s subroutine responsibility to modify the retuim 
linkage In order to return to L+3, 

E. USA^ 

1, Larger buffers will tend to decrease SNAP execution times due to 
fewer l/O requests, 

2, Writing SNACE to tape tends to decrease SNAP execution times In an 
active multl'programming environment. 

3, The user subroutine, upon receiving control from SNAP, may modify 
the value of any of the twenty four operating registers by 
n>iaiig 4n g the appropriate SNAP provided table entry, since these 
tables are used to restore the registers upon exit. Furthermore, 
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Che uier may alter frequency, FHIk, LHfk, etc., by careful andlficacion 
of Che loader provided tables. The’ user subroutine may suppress dumps 
by setting bit 59 of user coimiiunicatlon word one to one, or it may 
provide an alternate buffer by placing the FHfc of a U word FET low 
order In the same M>rd. The user subroutine may alter the return 

address from SHAP by placing a new 18 bit return address low order In 

user cooBtunlcatlon word two. 

D. Internal Conventions 

1. nie following register usage is observed: 

Bl is set to one 

B6 Is the FUA to be duttped 

B7 Is Che LHA Co be dimtped 

AO Is Che dmp increment 

Is Che current input data word 

A7 is' the current next position available In the output buffer, 

2. Host of the tables and flags are order dependent and their sequence 
should not be changed. 

E. ^eternal References 

The following external references are made by SNAP. All are entry 
points in the routine DEBDG. 

1. SNACE 

2. STORE 

3. RESTORE 

4. OVFUU: 

5. RBO 


The address of a thirteen word FET which defines the 
buffer SNACE. 

A subroutine Co store all twenty four operating registers. 

A subrotAine Co restore all twenty four operating registers. 
Ihe address of a location containing the overlay level 
nvnber loaded during overlay processing. 

Entry point of an eight word array of the saved index 
registers. 
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RAO 


RXO 


FCNTR 


Entry point of an eight word array of the saved address 
registers « 

Entry point of an eight word array of the saved X 
registers. 

A subroutine used to Increment the page number used for 


SNAP (end TRACE) output. 
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15.2 

15.2.1 


TRACE 

The TRACE routine Is entered through the entry point TRACE from the routine 
DEBUG. TRACE consists of two portions; the trap setting routines^ and the 
execution time evaluation routines. The latter routines evaluate triggers 
to determine when, if any*tracing output should be produced. All output 
coming from TRACE is placed on a file called SN&CE. 

The overall ftmction of the trap setting routines is defined in the following 
steps: 

a) Pick up a trace trigger 

b) Process the user's program within the range specified. In conjunction 
with the trigger, for an instruction which matches the trigger. 

c) When a match is made, set a trap in the user's word which holds the 
Instruction. (Traps are also set at the starting and ending location 
for each range.) 

The above steps continue until all trace triggers and all trace ranges 
have been processed. 

A trap may be set for each instruction, hence a word has a oaxintum of four 
output producing "traps". Actually one trap is set in the user's word. 

The trap points to a cable (ADT) entry. This table is made up of three 
words for each word trapped, 

A trap which is set only because the word is either the start or end of a 
range will not cause output to be produced. These traps keep track of the 
freqt£ncy by which a range is processed. The range is processed once when 
the first instruction of the range has been processed and the last instru¬ 
ction of the range has been processed. 
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TRACE aitlCB to «lth«r SHAP or tho uior, <l«p«ndlitg upon th« contents of 
regie ter B7. 


Ttiere are two execution time teblee Involved with ttie TRACE roiAlne; 
ID Table - produced by DEBUG from the trece cards 
ADT Table- produced by TRACE for each trap 


When a trigger netchee a user Instruction a trap Is placed In the word 


which contains that Instruction. The trap Is fonoatted as iollows: 

Description 

59-30 A RJ to the object time subroutine which will process 

tha data pertaining to thta trap. 

2^ End of range flag 

23 Start of range fleg 

12-0 Pointer to ADT table entry 

The ADT table Is formatted aa follows: 


Word 1 

Ui«r'i replaced word 

2 

IDl 

SU 

BU 

BD 

ED 

3 

ID2 

ID3 

ID4 


where, ED (bite 8-0) 

BD (bite 17-9) 


le the decrement to e word which contains a pointer 
to the ID table for an end of range trigger, 
la the decrement to a word which contains a pointer 


to the ID table for a start of range trigger. 

BU (bits 21-18) contains a flag for each section trapped, i.e,, 

section I is bits 59-45, section 2 is bits 44-30, 
section 3 Is bits 29-15, and section 4 is bits 14-0 
of a word, when a bit is set (=1) that section 
has been trapped and may not be trapped again for 
that word. 
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SU (bits 29-22) contains binary usage flags for each section iised, 
described as follows: 

a) 00 - section has not been trapped 

b) 01 - section has been trapped by a 15 bit 

Instruction 

c) 10 - section has been tapped by a 30 bit 

Instruction 

d) 11 - section Is the last 15 bits of a 30 bit 

1ns truction 

IDl (bits 59-40) Bits 57-40 contain the address of the starting 
word of the ID table (described below) for the 
range which caused section 1 to be Crapped. If 
bit 58 contains a 1, the registers are to be 
dunped when output is produced for this trap, 

If bit 59 contains a the Instruction which 
caused the trap to be set la a jump Instruction. 
ID2 (bits 59-40) Same as tDl, except set when section 2 has been 

trapped. 

103 (bits 39-20, word 3) - Same as IDI, except set idien section 3 

has been trapped. 

104 (bits 19-0, word 3) - Same as IDl,'except set when section 4 

has been trapped. 

The ID table Is formatted as follows: 

Word Bits Description 

1 59-18 The name of the range (ID on TBACE card) 

17-4 The number of words (n) of output specifications for 

this range. 
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0 - l8t part of entry (entry will always be 5'Hi words 
long) 

1 - If registers are to be dumped 

Type of trigger spedfloatIon» described as follows: 

a) 00 - Type TL on TRACE card - bits 17*0 contains the 

address referenced, 

b) 01 - Type TM on TRACE card; 

Bits 59-45 contains boolean mask 
Bits 44-30 contain 1st trigger mask 
Bits 29-15 contain 2nd trigger oiask 

(0 If none) 

Bits 14-0 contain 3rd trigger mask 

(0 If none) 

c) 10 - Type TR on TRACE card; 

Bits 8-3 contain register name in display code 
Bits 2-0 contain register number in binary 

(0 If register Is P) 

d) 11 - Type TH on TRACE card; 

Bits 59-30 contain boolean mask 
Bits 29-0 contain trigger mask 
Start of range flag - 0 If control has not passed 
through the address (XA) In bits 17-0. This bit Is 
reset to zero ^enever this range is processed during 
overlay or segmentation modes. (Change this bit to 1 
only If bit 59 of word 3 equals 1.) 

Count of nuoaber of tinea control has passed through 
the range. The count Is initially zero and Is reset to 
zero each tlaie the range la processed during overlay 
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17-0 

3 59 

17-0 

4 59 
58 

57 

56-51 

50-45 

44-30 

29-15 

14-0 

5 59-0 

6-»n 59-0 


or segmentation modes. (Add 1 to count each time bit 
59 of word 3 Is set to 1; except Initially.) 

Address of start of range (lA). 

End of range flag - 0 If control has not passed through 
thl. (U) .dare... (OhKige to I if bit 59 of «rd 2 equeU 
1; bit is initially set to 1.) 

Address of end of range (lA)* 

1 if this is an overlay job - set by DEBtX}. 

1 if this range is to be processed during segmentation 
mode (if it is set, process the range, reset bit 58 and 
set bit 57.) - set by DEBUG. 

Set when this range has been processed during overlay 
or segmentation modes. (This is used as a flag by DEBUG) 
Used during overlay mode only - Ist overlay level 
Used during overlay mode only - 2nd overlay level 
(These overlay levels are checked against bits ll-O 
of OVFIAG; set by DEBUG,) 

The number which specifies when tracing will begin; Fl 
on the TRACE card. (1 if Fl is omitted) 

The number which specifies when tracing will stop; F2 
on the TRACE card. If F2'i8 zero there is no limit. 

(1 if F2 is omitted) 

The number which specifies how often to trace; F3 on 
the TRACE card. (1 if FS is omitted) 

A trigger specification (described in word 1 above) 

Output specifications, where n = C (bits 17-4 of word 1) 
+5, These specifications are defined as follows: 
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Type .Word 


OL 


OR 


n+X 


n+2 


59-0 


59-0 


2 

1 


Bits 

59 


Description 

I - this Is a 2 word specification, 
58-47 number of specification words 
for this range (if this la the 
Ist word of all output specifi¬ 
cation words) 

number of words to be dumped 
starting address of dump 
0-this Is a I word specification 
register name in display code 
(A, B, or X) 
register number (0-7) 
number of words to be dumped 
Same as word 1 except bit 3-1 (2nd part of entry), 
except bits 17-4 are unused. 

A trigger specification (described in word 1 above) 


5-0 

17-0 

59 

14-9 

8-6 

5-0 


These 2 words will be repeated for each subsequent 
trigger specification. 

Trap Setting Tine Subroutine Descriptions 

Im Initialization 

The subroutine begins by saving all registers which may be needed by 
subsequent routine processing. 


It then determines If the program being processed is In overlay or 
segmentation mode. In both cases only those routines just loaded will 

be processed (this differs from normal loading In that all generated 
routines aren't loaded at once). 
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Then a validity check is made on each range as it la processed. 

The following make a range invalid. 

a) No start of range specified 

b) No end of range specified 

c) The start of range is unsatisfied 

d) The end of range is unsatisfied 

e) The debugging routines are included in the range 

f) No output trigger Is specified 

If the range Is invalid it is ignored and the next range is processed. 

If the range is valid it is processed by one of the following subroutines 

a) CHKAl - processes address reference triggers 

b) MiSK2 - processes mask triggers 

c) CHKRl - processes register triggers 

When processing for a range has been completed, subroutine SETLST is 
executed. This subroutine sets traps for the start and end of the 
range. 

When all ranges have been processed the file SN^CE is opened and all 
interface registers are restored. These registers are as follows: 

a) AO - user's field length ^ 

b) B2 - user's starting address 

c) B3 - starting address of TRACE, SNAP routines 
d> B4 - last address+l of IB^CE, SNAP routines 

e) B5 • start of SN&P tables 

f) B6 - start of TRACE tables (ID tables) 

g) B7 - user's or SNAP routine's starting address 


SETLST 
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The function of this subroutine Is to set e pointer for the stert end 
end address of eadi range. If Che start or end address had already 
been trapped the routine perfoms the following: 

a) fetch the address of the second word of the ADT table from the 
trapped word. 

b) fetch the address of the next evallable word (In IASTENT). 

c) place the difference between (a) and (b) in either BD or ED 
(described In 2.1 above) and 

d) produce the following word: 

Bits 59*42 contain address of the related ID table 

e) increment lASTENT by 1 

If the starting or end address had not been Crapped the following Is 
performed; 

a) produce a four word entry. The first three words are the same as 
a normal ADT Crap entry except word 3 Is eopcy, and word 2 contains 

I 

a 2 in either the BD or ED fields. The fourth word Is produced 
as in (d) above. The trap will contain a SJ TR5. 

If Che start or end address had been Crapped by a previous start or 
end trigger the following is performed: 

a) Determine the address of the last 1 word (d above) entry. 

b) fetch the address of the next available word from lASTENT 

c) Produce the following word: 

Bits 59-42 contain address of the related ID table 
Bits 17*0 contain Che difference between (a) and (b) 

d) Update LASTENT 

This sidirottClne Is only called by the initialization. 

The start of range bit Is set in the trapped word, depending upon 
which end Is being processed. 
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3. INSSET 

This subroutine sets the SU and BU bits In the second word of the 
related ADT table entry (to the user's word being processed). The 
bits reflect those sections of the word which have been trapped. 

4. NXTWRD 

This subroutine fetches the next sequential user's word (within the 
specified range) and determines, by testing the BU field of the 
related ADT entry, its availability as a prospective trapping word. 
If the complete word has been trapped register X6 is set to zero. 
Control is returned to the calling routine, 

5. SETRAP 

This subroutine builds the ADT entry and sets the trap in the user's 
program for words ^rtiich have not already been trapped. The user's 
word (where the trap is to be placed) is placed in the first word. 
Then either IDl, XD2, 1D3, or ID4 is placed In its proper field. 

The field positioning is determined by which section has been trapped 
and the contents to be placed are fotnd in ID. A trap is set in the 
user’s word which Is formatted as described in 2.1 above. Only bits 
59-30 and 17-0 are filled. 

If a trap has already been set only one action is performed; to place 
the contents of ID in one of the ADT table's ID fields. All jixap 
instructions trapped have a RJ TR3 set into the user’s program. 

All non-Jianp Instructions trapped, have a RJ TR2 set into the user's 
program. If a trap contains mixed Instructions (Jump and non-jump) 
a RJ TR4 Is set. 
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6. CHKAl i 

This subroutine processes sll triggers of the 'H* type. If the address 
is unsatisfied the trigger is ignored and control Is returned to the 
initialization subroutine. There are three possible applications of 
this type trigger in a word. The sections possibly usable are 1 and 
2, 2 and 3, and 3 and 4. The sections are tested first for availability. 
If they are available the reference address is matched against the user a 
instruction. If the trigger matches, control is passed to a routine 
which will perform initialization for setting the trap. 

7. IMSK2 

This subroutine processes TM type triggers and is divided into 2 
sections; one which processes 30 bit masks and one which processes 
15 bit masks. 

The first section, which processes 30 bit masks, checks 3 sets of 
sections for availability; 1 and 2, 2 and 3, and 3 and 4. These sections 
are tested for availability from the left. If 2 contiguous sections 
are available the boolean mask is logically ''and"ed to the sections. 

If the trigger mask matches the results of the boolean operation, 
control is passed to a routine which will perform initialization for 
setting the trap. Only 2 traps may be^ set in a word by this section. 

The second section, which processes 15 bit masks, checks all four 
sections for availability. Howver, only the left-most 15 bits of 
an instruction will be checked. Each section is checked for avail¬ 
ability, starting from the left. Wien an available section is found, 
its contents and the boolean mask are '*and"ed together. If the first 
trigger mask matches the results, control is passed to a routine which 
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will perform Initialization for setting a trap* This process is 
completed for all trigger masks present. Four traps may be set by 
this section. 

8. WOK, TOO^ IRE^ FOR 

These four subroutines initialize the setting of 15 bit traps into 
sections 1, 2, 3 and 4, respectively. These subroutines all call 
SETRAP and IKSSET. The trap set by SETRAP will be a KJ TR2. 

9. OAT, TAT, TAF 

These three subroutines initialize for the setting of 30 bit traps into 
sections 1 and 2, 2 and 3, and 3 and 4, respectively. All of these 
subroutines call CKP, SETRAP, and INSSET, 

10. CHKRl 

This subroutine processes TR type triggers. If this is a jump trace 
(register is P) only sections 1 and 2, 2 and 3, and 3 and 4 are checked. 
If 2 contiguous sections are available, the instruction Is checked to 
see if it is a 30 bit instruction. If it is, it is checked to see 
if it la a jump instruction. It is, control is passed to OAT, TAT, 
or XAF, depending upon the position of the instruction in the word. 

If this is not a Jump trace, all four sections are checked separately. 

If a match is found (the result register is compared) control is 
passed to WOK, TOO, TR£, or FOR, depending upon the position of the 
instruction in the word. 

11. CKP 

This subroutine checks for a jump instruction. If a jump instruction 
is found, bit 19 of ID is set to i. If a jump is not found B4 is set 
equal to B5, 
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12, RGKTCH 

This subroutine checks to see If the trigger register matches the 
result register of an instruction» There are four different exits to 
this routine, as follows: 


a) 

15 

bit 

instruction. 

no match - X4*0, 

B3-0 

b) 

30 

bit 

instruction. 

no match - 

B7-0 

c) 

15 

bit 

instruction. 

match 

- X4-0, 

63)^0 

d) 

30 

bit 

instruction. 

match 

- X4^, 

B7^ 


Ebcecution Tine Subroutine Descriptions 

All trap interpretation routines start by storing the user's registers. 

1. TR2 

The function of this subroutine is to evaluate all non-jump trapped 

t 

words. The evaluation of the trapped word is performed as follows: 

a) Fetch the contents of the trap 

Bits 17-0 of the trap contain a pointer to the ADT entry for this 
word. 

b) Interrogate bits 29-22 of the second word of the ADT entry for 
section usage. 

When a trapped section is found the registers are restored, the 
instruction in the section is executed, the registers stored, and 
control la sent to OUTPUT. 

Non-trapped instructions are executed in the same manner as above, 
except there is no output produced. 

If there is a trapped jump instruction in the user's word, the 
word is pre-positioned to the instruction by TR4. Only the trapped 
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non-jump instruction is executed and control is returned to TR4. 

If the start of ran^e and/or end of range flag is set, control is 
passed to TR3. 

2. TR3 

The function of this subroutine is to evaluate all jump type trapped 
words. The evaluation is performed as It is in TI12. 

When a trapped jiamp is found, an address internal to TR3 is placed 
in the address portion of the jump. The registers are then restored 
and the jump instruction is executed. If the jump does not ’’take” 
control falls through and the word is again examined. If the jump does 
**takey control is passed to a saccion in TM. Then control is sent to 
OUTPUT. When control is returned, the actual jump instruction is 
executed, (Note: the trace will not perform correctly if a trace is 
attempted on a RJ which has following parameters.) 

Non-trapped instructions are executed as they are in TR2, If the 
statt of tattge atid/or end of range flag is set, control is passed to XR5. 

If the user's word contains a trapped non-jump instruction, the word 
is pre-positioned to the instruction by TR4. Only the jump instruction 
is executed and control is returned to TR4 (if control returns). 

3. TR4 

The function of this subroutine is to sort out jump and non-jump 
trapped instructions in one word. This routine executes all non- 
trapped instructions. If the instruction is of non-jump type, control 
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Is passed to TR2. When the Instruction Is of the Jmp type, control 
is passed to TR3. 

AH non-trapped Instructions are executed as in TR2, 

If the start of range and/or end of range flag is set, control is 
passed to TRS. 

4, TRS 

When TRS is entered the end and start trace bits (found In trap) are 
interrogated to determine whether this is the start or end of a range 
(it may be both). The following steps are performed for a start of 
range bit set: 

a) The ADT table entry corresponding to the user's trapped word 
is found. Bits 17-9 of the second word of the entry contain 

a relative pointer to a word which contains an absolute pointer to 
the ID table (defined in 2.1) related to a range. 

b) The start of range flag in the ID table is set and the end of 
range flag in the ID table reset if the following conditions are 
met: 

1) The nwnber of times through the start is less than the limit 

2) The end of range flag is set (bit 59 of word 3 in ID table) 

c) Process all ID tables (ranges) which have this word as a starting 
point by following the thread to the end. Bits 17-0 of the word 
^ich contained the previous ID pointer, cont a i n s a relative pointer 
to the next ID pointer. A zero in these bits indicates the end of 
the thread. Each pointer is processed as in (b) above. 

The following steps are performed for an end of range bit (in trapped 
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a) Same as (a) for start except the relative pointer la found in 
bits 8-0. 

b) The end of range flag in the ID table la set, the atart of range 
flag in the ID table la reset, and the frequency count la 
incremented by 1 if the following conditions are met: 

1) The nunber of times (frequency count) through the end word is 

not greater than the limit. 

2) The start of range fUg is set (bit 59 of word 2 In ID table) 

c) All ID tables referring to this word as the last word of its 
range are processed, using the same method as In (c) above. 

OUTPUT 

The range information (in ID table), corresponding to the instruction 
trapped, is obtained by looking in the ADT entry (which the trap points 
to). 

Output is produced if the following conditions are met: 

a) The nxanber of times through the range Is less than the limit 
(F2 on TRACE card). 

b) The nwber of times tho\tgh the range meets the starting parameter 
(FI on TRACE card). 

c) The number of times through the range meets the frequency parameter 
(F3 on TRACE card). 

d) Start of range flag is set. 

The output appears in the following format: 

trace XXX 

OPERAND REGISTERS, 

RESULT REGISTER IS 
Register dump (if any) 
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Output dump(8) 

Tin: opcjrancl registers and their values are placed following the 
corres ponding literal. If there is no t register, the literal "NO 
1ST" will be printed, "K" represents an 18 bit address tdille "N" 
represents a 6 bit constant. The result register and Its value are 
placed following the corresponding literal. The registers used by an 
instruction are found by using the RCTBI table (described in 2,4). 

If a register dump is requested it Is placed Innediately after the 
result register value. The output trigger dump then is output. 

A heading and page number appears at the start of each trap's output. 

6. CLRLINE 

This subroutine is called by OUTPUT during the dump. The function 
of the subroutine is to fill the dump buffer with blanks. 

7. CONVERT 

The function of this subroutine is to convert a binary number from 
binary to display code. Input to this routine is as follows: 

a) X3 contains the binary ntanber 

b) B4 contains the nimtber of digits to convert 

The binary nuaber is expected to be right justified and will be left 
Justified upon output. The first 10 digits are placed in X6 and the 
remaining (If present, always 10) digits In X7. 

8. OUTM 

The function of this subroutine Is to place output into the SNACE 
file's buffer. When the buffer load exceeds 100 words the buffer is 
dumped to SNACE. Register A2 Indicates the starting address of the 
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output and register B4 contains the nwber of words to be transferred. 
The number must be less than lOOg. A 1 In bit position 6 indicates to 
the subroutine that the buffer la to be dumped. 

15.2.4 Internal Table and Buffer Descriptions 

1, RGTBl - used in determining legal register usage and length of instru¬ 
ctions. Only non-Jump instructions (op-code is greater than 07) are 
included in the table. The format of this table is as followm: 


Bits 

'Description 


59-54 

Operation Code (10g-77g) 


53-42 

Unused 


41-36 

j register in instruction 

(first register in output) 

35-30 

Increment in register save 

table (in DEBUG) 

29-24 ■ 

k register in instruction 

output) 

(second register in 

23-18 

Increment in register save 

table 

17-12 

1 register in instruction 

(result register in output) 

11-6 

Increment in register save 

table 

5-0 

Length of instruction 



There are two exceptions which are defined as follow: 

a) When the k register = 04, the field is 18 bits in length and is 
defined as K in the output. 

b) When the j register * llg, there is no J or k register. Instead 
there is a 6 bit register defined as N In the output. 

2. M4SKS - a series of eleven word length 12 bit masks starting with zero, 
progressing to all 7's. The mask table Is used by the subroutine 
CONVERT to Insure only pertinent data is produced. 

A-- 1^-- 
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3. REGDMP - An output buffer filled by the user's register values when 
the user designates a register dump. The buffer is filled from RfiO, 

RAO, and RXO for the B, A, and X register values, respectively. 

4. DHFLIN - A 120 character buffer used when dumping output, according 
to the user's output specification. 

5. HEAD > the heading buffer which is produced each time a trap produces 
output. The page number is stored In HEAD?, 

6. TRTBL - This table Is used by the initialisation routine to determine 
idiich subroutine will evaluate the trap setting triggers. 

7. TRTBl - This table is used by SETRAF and SETLST to determine which 
subroutine will evaluate the trap at execution time. 

8. NOOP ** This is an execution time buffer used by TR2, TR3, TR4, and 

TR5. The instruction to be executed is masked into the NO-OP operations. 

.2.3 Data Descriptions 

1. FLUSY - Zero if entry to TR2 or TR3 was made from TR4. 

2. FLUZY - Zero if entry to TR5 was ajade from TR2, TR3, or TR4. 

3. TR19B - Original Instructions at TR19. IR19 is restored when a new 

ID table is to be processed. 

' ' 4. TR19J - A jtmp around code idilch should not be executed when 2 word ID 
trigger is being processed. '' 

5. FLAGS - Used at trap time to keep track of sections already trapped 
in a word. Bits 15-12 are set as each section is trapped or 
tested. 

6t LASTENT-the next available locatitm for an ADT entry to be placed. 

7. WRDTEMP-at trap tiom, the contents of the user's word that is being 
processed. At execution time it is used temporarily as a 
pointer by TR5. 
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8, TRIGR *■ at trap tijne the contents of the trap setting trigger • 

at execution time used as a pointer to the next ID table 
pointer by TR3. 

9, PRESENT-At trap time the address of the second word In the presently 

used ADT entry. At execution tine it holds the contents of 
the first word of the ADT entry, i.e., the user's original 
Instructions, 

10, TRAPADR-The address of the trap In the user's program. 

11, PRESl - The contents of the second word of the ADT table at execution 

time, 

12, INSTRC -The section being processed during execution time. 

13, PRES2 -The contents of the third word of the ADT table at execution 

time. 

14, 0VFI,G - Non-zero when an overlay or segmentation run is in process. 

15,2.6 TRACE Usage 

1, Restrictions 

a) A RJ which does not return to L+1 cannot be traced. 

b) Wolfds that are program modified cannot be traced. 

2, Efficiency Hints 

a) Keep the ranges as sliort as possible; the initial scan processes 
the complete range. 

b) Do not place the start of range or end of range address in data; 
the TRACE routine places a trap at both locations (which may 
hinder operation). 

c) Assigning SNACE to tape tends to decrease overall running time in 
a multi-processing situation, 

3, External References 
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a) SNACE - The name of the FET lAilch deacrlbes the us^ge of the file 

SNACE. 

b) RESTORE- The routine which replaces the user's register values 

Into the registers. 

c) STORE - The routine which places the user's register values into 

a storage buffer* 

i) RBO - An eight word array which contains the values of the B 
registers, B0-B7* 

e) RAO - An eight word array which contains the values of the A 

registers, A0-A7« 

f) RXO - An eight word array which contains the values of the X 

registers, X0-X7. 

g) OVFLAG - A table produced by DEBUG for usage during overlay and 

segmentation runs. During overlay runs OVFLAG, bit 59*1 
and 11-0 contain the overlay level just loaded. During 
segmentation, runs OVFLAG, bits 59 and 58-1, OVFLAG+2 
contains the lowest possible locatlon-1 which TRACE can 
use while building ADT entries, OVFLAG+5 contains the 
starting location where ADT table entries may be built. 

h) PCNTR - The subroutine which computes what the next page number 

will be. 

1) ZSQUIZH- The subroutine entry point which provides more room 

during segmentation for ADT table entries in the event 
OVFIAG4-2 is reached. 

4. Error Messages 

Errors a, b, and c are produced by the initialization subroutine and 
^irltten on SNACE* Error d is produced by OUTPUT and is also written 
on SNACE. 
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a) In the event that there la an error on the TRACE card» the following', 
message Is Issued: 

ERROR ON TRACE XXXXXXX CARD 
^ere XXXXXXX Is the ID name on the 1RACE card. 

b) In the event that the ADT tables which TRACE builds overlap with 
the user's program the following message is Issued: 

TRACE TABLES AND USERS PROG OVERLAP 
This error causes the Job to abort. 

c) If a trace range is within the debugging routines the following 
message is produced: 

SORRY, YOU MAY NOT DEBUG THE DEBUG ROUTINES 
All of these errors cause the TRACE card data to be ignored. 

d) If an output spaclficatlon address in unsatisfied the output for 
that speolflOAtlon is ignored. The message produced is as 
follows: 

ADDRESS XXXXXXX IS IRIDEFIMED 
where XXXXXXX is the unsatisfied name. 
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15.3 DEBUG 

DEBUG Is a general-purpose program which Is used for many phases of a 
debugging run. All of the other debugging programs link to DEBUG. It 
consists of several major routines which are called at various times 
during a debugging run by LOADER, SNAP, TRACE, or OVERLOG. 

A detailed description follows each of the following routines: 

1) TSCARD - Process parameters on SNAP and TRACE cards and build cables. 

2) SETADR - Prepare for entry to SHAF or TRACE, 


3) 

A) 

5) 

6 ) 

7) 

8 ) 


WRDEBUG - Write DEBUG FILE. 

TSSEGUP - Save TRACE/SNAP tables for segmentation Job. 
ZZGETFL - Modify field length. 

PCNTR - Page counter for TRACE and SNAP output. 

STORE - Save registers during execution. 

RESTORE - Restore registers during execution. 


IS.3.1 TSCARD 

This routine is called by LOADER as each SNAP or TRACE card Is processed. 
The parameters on Che card are interpreted and SNAP or TRACE tables are 
built accordingly. ^ 


The following diagram shows the layout of the loader tables and the TRACE 
and SNAP tables after both TRACE and SNAP cards have been processed by 
TSCARD. In this example, there were two'TRACE cards and one SNAP card. 
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RA+FL 

FWALOOR 


TBLNEXT 

(a) and <b) are thread indices to the next Loader table. (See LQAfiER 
IMS Cor description of loader tables.) 

All TRACE and SNAP cables are enclosed with pointer words as sho%m in the 
diagram. Fd is a thread index to the next lower table, while Pu is a 
thread index to the next higher table. All TRACE tables must be together 
in one group, as shown. The same is true for SNAP tables. For this reason 
all TRACE cards and all SNAP cards must be contiguous. 


LOADER 

TPAf!R 

-1- 

1 1 

1 l^a- 

TRACE 

Loader Tables 


_1_ 

DEHIK^ 


DEBUG 

Loader Tables 


n iPd 

TRACE 

Table 


Pu_l£d_^ 

TRACE Table 

IBIHH 

Pu 

0 

SNAP 


-1 

1 1 b- _ 

SNAP 

Loader Tables 


[ 0 td 

SNAP 

Table 


_PS4_LQ_ 
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Reference should be made to the TRACE or SNAP description for the format 
of the respective table. However, there is one difference to be noted 
at this time; Any table words which ultlnuitcly contain an 
completed by the routine SETADR after the user's programs have been 
loaded. The addresses of the entry points or common names are not known 
until that time. TSCARD sets up these table words as follows; 


---la 17 n 

1_ 

NAME 


INCR 



If NAME refers to a COMMON block, bit 59 will be set. If the word 
refers to blank COMMON, then bit 59 will be set and bits 18-58 will be 

^ero. INCR may be positive or negative. 

The following sequence of events takes place in TSCARD: 

1. The number of parameters on the TRACE/SNAP card is obtained from RA+64. 
If there are no parameters, the message "ERROR ON TRACE OR SNAP CARD" 

Is put on the dayfile and the j6b aborted. At this time it should be 
noted that on all other parameter format errors, control goes to the 
location TSl, This causes the above message to be issued, but the 
job is not aborted. Instead, the TRACE or SNAP to which the erroneous 
card applies will be Ignored. This is done by zeroing out the ID 
word of the table. 

2. It is now determined whether or not this card is a continuation card. 

n order to be a continuation card, the following conditions must 
exist; 

a) The first parameter must be ID. 

b) The ID name must appear in a previous table of the same type. 

B6 Is then set to the address of the pointer word (upper 6 bits = 76 
top of the table being processed. B6 will remain this 
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vaUio throughout the execution of TSCARD. If a continuation card, 
the parameters will be stored in fields in an already existing table. 
Otherwise, a new table is established by setting up pointer words so 
as to define limits of a minimum size TRACE or SNAP table. TBLNEXT 
(bits 36-53 of ilA+66) is reduced accordingly* 

It should be noted that any TRACE (SNAP) table may have to increase 
in size, even though there maybe other TRACE (SNAP) tables below it. 

This is because of the possibility of continuation TRACE (SNAP) cards 
appearing which contain parameters requiring a table to increase 
in size (Example: A continuation TRACE card containing any output 
specifications), 

3* TRACE card parameters are checked for the following errors; 

a) ID 

1) No subparam following ID (ID name). 

2) First character of subparam not alphabetic. 

3) Subparam more than seven characters* 

b) FI, F2, or P3 

1) No subparam (frequency parameter value). 

2) Subparam not numeric, 

3) Subparam more than five octal digits. 

c) ZA, LA 

1) No Subparam (entry or common name). 

2) First subparam not alphanumeric. 

3) No second subparam if a negative increment is required. 

4) Second subparam (if present) not numeric. 

5) Second subparam (if present) more than 6 octal digits. 

6) The same parameter has occurred before. 
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d) TM 
1 ) 
2 ) 

3) 

4) 

e) TR 

U 

2 ) 

f) TL 
1 ) 
2 ) 
3) 
4> 

g) OR 
X) 
2 ) 
3) 

h> OL 
1 ) 
2 ) 

3) 

4) 


No subparams. 

First subparaa (natch key) not numeric and not equal to five 
or 10 octal digits. 

Succeeding subparams (lusks) not numeric. 

Succeeding subparams more than five digits if first subparam 
is 5 digits. 

No subparam (register). 

Subparam not a register designator (A0-A7, B0-B7, X0-X7, P). 

No subparam (entry or comtion name). 

First subparam not alphanumeric (unless TLB). 

No second subparam if a negative increment is required. 

Second subparam (or first if TLB) not numeric or more Chan 
6 octal digits. 

Two subparams not present. 

First subparam is not a register designator (A0-A7, B0-B7, X0-X7). 
Second subparam is not numeric* or is more than two octal digits. 

Ac least two subparams not present. 

First subparam not alphanimieric (unless OLB) 

Second subparam (first of OLB) not a numeric increment of six 
or less octal digits if an increment is required). 

Third subparam (word count) not present if an increment 
(second subparam)was required. 
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5) Word count subparam not numeric or has more than two octal 
digits. 

4, SNAP card parameters are checked for the following errors: 

a) ID, FI, F2, and F3 are checked in the same manner as the corres¬ 
ponding TRACE parameters. 

b) INT 

1) No subparam (dump interval). 

2) Subparam not numeric or consists of more than four octal digits. 

3) Subparam has a value of zero. 

c) F 

1) No subparam (dump format). 

2) Subparam not alphanumeric or consists of more than two characters. 

d) lA, FMA, LWA 

1) lAB 

2) FWABl or LWABl 

3) No subparams 

4) Any alphanumeric subparams more Chan 7 characters. 

5) No negative increment subparam if one is required. Must 
be numeric and six or less digits* 

6) The same parameter has occurred before. 

e) UR 

1) No subparam (user entry point name). 

2) The UR parameter has occurred previously. 

5. After all of the parameters have been processed on a SNAP or TRACE 

card, TSCARD exits to LOADER. LOADER then drops the central processor 
in order that the SCOPE operating,system will advance the job to the 
next control card. 
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If any of the format errors described above occur, the ID word ot 

the appropriate table Is cleared^ and this same exit is taken immedlcj ll' 1 y. 

6< The following subroutines are used by TSCARD: 

a) GETPARAM - The next parameter is picked up from the parameter 

area beginning at RA+2* If, on entry, BOO, and no 
parameters remain, the error exit (TSl) ts taken* 

b) CKA - The parameter In XI is checked to see if it is alphanumeric 

and If It is not more than seven characters Long. If 
these conditions are not met, the error exit (TSL) Is 
taken* 

c) Cl^ • ^e parameter In XI Is converted from display code 

to octal* If any non^octal digits are encountered 
and if Bl=0, the error exit (TSl) Is taken* 

d) LOWER « If a continuation card makes it necessary to increase 

the size of the table being processed, this routine Is 
called in order to move down all of the tables below 
the one being processed* The routines TBLLWER and 
UPPS are called by this routine* 

e) TBLLOWER * This routine is called to decrement TBLHEXT (bits 36^53 

of RA+b6) whenever it is necessary to expand the TRACE 
or SNAP tables downward in core* If TBLNEXT and CORNEXT 
meets, there Is no more available core* The message 
«TRACE OR SNAP TABLES OUT OF COR£^» is Issued to the 
dayflle and the job Is aborted* 

f) UPPS * Whenever a table has to be enlarged, this routine is 

called in order to Increase the thread indices (Pu and 
Pd) so as to correctly reflect the new length of the 
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n,|., routine 13 called whenever a TRACE output spec- 
inr.iLloti pHrnmcttr J» procenaed. All additional 
trigger specifications (if any) are moved down. This 
IS necessary because both the number of words of output 
specifications and the number of words of additional 
trigger specifications are variable, and the trigger 
specifications reside at the end of the table. 

Before this routine is called, the routine LOWER 
is called to acconmodate the enlargement of this 
table* 


15.3.2 SETADR 

This routine performs all final Initialisation Just prior to eoteriog SNAP 
or TRACE. It Is called by LOADER at the point In time «hen the user's 
entry would be taken 1£ this were not a TRACE or SNAP run. It Is also 
called by LOADER after a aegment user call has been processed. On overlay 
runs, it is called by OVERLOG prior to returning to the user. 

SETADR does the following: 

1) The user entry address, which is passed to SETADR in B7, is 

2) The address of the top of the loader tables is established. For 
normal and segment runs, the address is found in RA-rt7 (FWALODR). 

For overlay runs, it is found in 0VFLAG44. (See section 3.10.) 

3) The TRACE and SNAP flags In RA-f67 are checked to determine whether 
SNAP, TRACE, or both are requested. The routine FINDP is called to 

fetch the entry address of SNAP and/or TRACE. 

4) The loader cables are searched for the TRACE/SNAP tables. When the 
TRACE tables are found, TSACEF la called to search the loader tables 
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for the entry point and common block names in the TRACE tables. Tho 
addresses are set In the corresponding words In the TRACE tables* 
SNAPF does the same processing for SKAF tables* 

5) The addresses of the upper end of the TRACE and SNAP tables are saved 
in locations TTRACE and TSNAP, respectively* These will be passed 

to SNAP and TRACE. 

6) A scan of the loader tables la made to determine the upper and lower 
limits of the core used by the routines TRACE, SNAP, and DEBUG* 

The upper limit Is stored at TSUP, and the lower limit, at TSDOWN, 
These values are also passed to SNAP and TRACE. 

7) The special dump bits In RA+66 are checked, and If set, URDEBUG Is 
called to write the DEBUG file so thatl^ may produce a labeled and 
change dump* If this is an overlay run, WRDEBUG Is not called, 
because It was already called from OVERLOG* 

8) If this is an overlay run, unneeded field length is now released by 
calling ZEGETFL for a field length equal to that of the original + 
FLINCR (see OVERLOG description). 

9) The index registers are now set up as follows for the entry to 
TRACE or SNAP: 

a* B7 — The address to which TRACE will pass control. This is 
either the user entry , or the entry address of SNAP If 
both TRACE and SNAP are being used* 
b. B6 = The address of the top of the TRACE tables, 
c* B5 = The address of the top of the SNAP tables. 

d. BA = The 1#A+1 of the core occupied by the debugging routines. 

e. B3 = The FWA of the core occupied by the debugging routines. 
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f. B2 = The address to which SNAP will pass control. This is 
always the user entry. 

AU The Held length. 

The fbllowing subroutinfis are used by SEIADR: 

a. SNAPF - This routine is called to complete the processing on 

each SNAP table. OVSEGTBL is first called to determine 
Aether or not this table is to be processed by SNAP 
at this time. If, upon return from OVSEGTBL, B3=0, 
SNAPF exits without processing the table. Otherwise, 
for each Cable word with an address to be set, the 
routine TRAGEFF is called with B^ the address of the 
word to process. 

b* TRACEF - This routine performs the same process on TRACE tables 

as performed on SNAP tables by SNAPF. 
c* OVSEGTBL - This routine determines whether a TRACE or SNAP table 

Is to be processed at this time. B3 Is set to zero if 
the table is not to be processed. The following steps 
are taken. 

1. B3 is sec to zero If the ID word is zero. 

2. If a normal run, the table may be processed. 

3. Since it is an overlay or segment run, bit 59 is 
now set in the overlay/segment control word. 

4. If this is a segment run, step 8 is taken. 

5. The overlay level is fetched from the overlay/ 
segment control word (word 4 of table). If the 
level is not 0,1 (the preset value), then the 
table has already been processed. Since tables 
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d, TRACEFF 


e, FINDC 


pertaining to overlays are processed only oncot exit 
is made with 

6. A Call is made to either FINDP or FINDC (whichever is 
appropriate) to attempt to locate the address for the 
lA field in the table« If the address is not found, 
then the overlay pertaining to this table is not yet 
loaded^ and hence this table is not ready to be pro¬ 
cessed* If lA is an absolute address, then this step 
is tripped. 

7. A check Is made to see if the above address lies with¬ 
in the limits of the last overlay load* If so. It is 
time to process this table. An exit is made with B3 
non^zero* 

8* Tables pertaining to segment runs may be processed more 
than once. As a result, it is necessary to keep two 
copies of each table in core for segment runs- The upper 
copy is never changed from Its original form as set by 
TSCARD. Steps (6) and (7) are taken using the upper copy 
of the table. If It Is determined that the table should 
be processed, the upper copy is moved down over the lower 
copy, thus restoring the names of entry points and common 
blocks. 

"This routine is called by TRACEF and SNAPF with BA-the address 
of name whose address is to be found* If the name is a common 
block, FINDC is called. If the word refers to blank conmon, 
then the address of blank conmon is obtained from FWALODR-2. 
Otherwise, FINDP is called. 

" This routine searches the loader tables for a labelled conmon 
block name that matches the name in XI- If found, the address 
is returned In XI. Otherwise, XI is returned O. 
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f. FINDP - This routine seerches the loader tables for an entry point 
that matches the name In Xl. The address is returned in 
XI, if a match Is found. Otherwise, XI Is returned 0. 

r>.3,3 WRDEBUG 

This is the routine which does the writing of the DEBUG file. Depending 
on the circumstances, It may be called from LOADER, OVERLOG, or SETADR 
(in DEBUG). The following events take place: 

1. A no call is issued to rewind the file DEBUG- 

2. The upper and lower limits of the LOADER tables are determined. U 
this is an overlay run, these limits are obtained from the OVFLAG 
area (see section 3-10); otherwise. FWALODR (bits 0-17 of RA+67) will 
be the upper limit and TBLNEXT (bits 36-53 of RA+66> will be the lower 

limit. 

3. The loader tables are scanned for coianon block declarations within the 
tables for each program. Within each program, such references to 
coiTinon blocks are sorted so that the lowest addresses will appear first. 
This does not affect any loader processing, and It simplifies the pro- 

cessing of common names for DMP. 

4. A call Is made to the routine TURN. This routine completely reverses 
the order of the loader tables. This Is done so that it will be more 
convenient for DMP to read the loader tables. With the upper end of 
the tables at the beginning of the DEBUG file, DMP will be able to 
pick up the first thread index, even If all of the tables are not 
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read on the first read. 

5. The CIO parameters are set up as follows and the loader tables are 
written to the DEBUG file: 


FIRST 


TBLNEXT 

IN 

= 

FUALOOR+1 

OUT 


TBLNEXT 

LIMIT 

= 

FVALOOR+2 


6. A second call Is made to TUBN so as to restore the loader tables to 
their proper order. 

7. If no change dump is requested^ the exit to the calling program is 
now taken. 

3. The field length is increased by lOOg words. This is done because 

it is necessary to write the entire original field length to the DEBUG 
file^ and the FET may not be within the circular buffer. 

9. The CIO buffer parameters are set up as follows^ and, as a result, 
the entire (original) field length is written to the DEBUG file. 

The FET Is origined at the original field length (AO) +2* 


FIRST 

= 

0 

IN 

= 

OU) field length 

OUT 

= 

0 

LIMIT 

= 

Old field length +1 


10* The field length is reduced to its original value by calling ZZGETFL* 

1 11. WRDEBUG exits to the calling program (LOADER, OVERLOG, or SETADR). 

1 

15.3.4 TSSEGUP 

This routine Is called by LOADER for segmentation jobs which use TRACE 
and/or SNAP- Since it is called before the loading of SEGZERO, the 
TRACE/SNAP tables are still in core. Also, it is the copy of DEBUG that 
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was in core when the TRACE/SNAP cards were processed in which TSSECUP 
is executed. As a result^ TSSEGUP does not set any pointers in the 
OVFLAG area, since DEBUG will be reloaded as part of SEG2ER0. 

The purpose of TSSEGUP is to move the TRACE/SNAP tables so they will be 
preserved as segments are loaded* This is done by increasing the field 
length by the amount defined by the symbol UPFL (2000g in the release 
version of DEBUG). The TRACE/SNAF tables are then found and are moved 
up in core. The core allocation of the newly acquired field length will 
appear as follows: 


RA+FL+UPFL 

RA'+f’L+3+2a4h 

RA+FL+3-^a4h 

RA4fX+3+a 

PA+FL+3 

Original RA+FL 



The out-of-bounds jump is placed at the original RA4-FL because the 
loader fills references to unsatisfied externals with this address* 

A jump to this location will still result In an out-of-bounds jump* 

(a) equals the length of one copy of the first type of table (TRACE in 
this case). 

(b) equals the length of one copy of the second type of table, (b) = 0 
if there is only one type* Either the TRACE or the SNAP tables may 
appear first, depending on the order of the TRACE and SNAP control 
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15.3.6 


.3.7 


! 


The reason two copies of each table are needed is explained in the 
description of OVSEGTBL. 

ZZGETFL 

This routine is called in order that the field length be changed. On 
entry, X6 contains the desired field length. If the value in X6 
is equal to the current field length, no call to HEM is made. 

PCNTR 

This routine keeps track of a page number in display code which is preset 
to zero. When the routine is entered the page number is incremented and ' 
returned in X6. In this way intermixed TRA.CE and SNA? outputs both 
use the same counter for numbering pages. 

STORE 

This routine is used by TRACE and SNA? to save the user's registers. 

All 23 registers are saved. The process involves first saving B7 by 
testing each of the 18 bits of B7 in the sign position, and executing a 
RJ * for each bit not set. When this process is completed, an array 
will exist which will contain one's in the low^order bit position of each 
word in which the RJ was not performed. Thus B7 has been saved without 
changing the contents of any other registers. 

The remainder of the registers are saved without any difficulty, the 
contents of B7 are then determined, and the RJ array is reinitialized 
for the next time through STORE. 


Aug 1968 


15-49 



SCOPE 3 


15.3.8 RESTORE 

This routine is used by TRACE and SNAP to restore the user's registers 
prior to returning to the user. All 23 registers are restored. The 
technique is as follows: 

1. All registers are restored except Al, AO, XO, and B1-B7. 

2* AO Is set to -0. 

3. XI (restored at this time) is unjiacked into BI-B6 with the sign of 
XI in B7. 

4. XO and A1 are restored. 

5. XI is repacked from the registers in (3) above. 

6. B1-B7 and, last of all, AO are restored by passing through an array 
which was set up in STORE, The array is of the following fonaat: 

SBl ACHK 

* 

e 

e 

SAO AO+K 

K is the saved value of the respective register. Note that AO was 
set to -0 in step 2 so that values of -0 would be correctly restored. 
Also, note that AO is the very last register restored. 

15.3,9 Flags* Constants, Temporaries, and Buffers 
Bits used in loader comunicatlon area: 

RA+66 (DEBUG control bits) 

Bit 28—1 if labelled dump requested. 

Bit 29=1 if change dump requested. 

Bit 30=1 if TRACE is to be used with overlay or segment job. 

Bit 31=1 If SNAP is to be used with overlay or segment job. 
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RA467 (SNAP/TRACE control bits) 

Bits 32-33 are non-zero if TRACE run. 

Bits 34-35 are non-zero If SNAP run. 

OVFLAG - This Is the start of a 6-word array used for overlay and 

segment runs, OVFLAG is an entry point to DEBUG, and it 
Is referenced by SNAP, TRACE, OVERLOG, and LOADER. For 
overlay runs, the array has the following format: 

OVFLAG: Bit 59=1, bits 0-11 = overlay level last loaded. 
+1: Original field length. 

+2: LWA of TRACE and/or SNAP tables. 

+3: LWA of SNAP and/or TRACE tables. (=0 If TRACE 

and SNAP are not both being used.) 

+4 LWA of loader tables for overlay last loaded. 

+5 Unused. 

For segment runs, the array has the following format: 
OVFLAG: Bit 58=1, bit 59=1. 

+1: Original field length. 

+2: LWA of all TRACE and SNAP tables. 

+3: Unused. 

44: Unused. 

4-St Current pointer for TRACE ADT tables. (On non¬ 

segment jobs, TBLNEXT is used for this pointer.) 
SEGF - This is a first-time flag used by SETADR In performing 

Initialization of 0VFLAG4-1, OVFLAG+5, and FL during seg¬ 
mentation runs. It is preset to one. 

PAGE - Current page number in display code. 

'WDFET - 5-word area used by WRDEBUG for FET when writing loader 
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UPFL 


2ZFLINCR 


FL 

RBO 


- Amount the field length is increased for segmentation 
jobs using SNAP or TRACE# 

- The amount the field length is increased for overlay jobs 
is stored here so SBTADR may have access to it. The 
value is defined by the symbol FLINCR in OVERLOG. 

- Current field length kept by ZZGETFL. 

- Start of register storage area used by STORE and RESTORE. 
Locations RBO, RAO, and RXO in this area are entry points 
for the convenience of SNAP and TRACE. 


TSPARAM - Number of parameters processed by TSCARD. 

•pSP _ Pointer to start of table currently being built by 

TSCARD, Used only until this value is stored in B6. 
pg2 - Number of words in tables lower than the table currently 

being built by TSCARD. Used by LCWER to determine how 


many words to move# 

TSCCftlT - Non-zero if TSCARD is processing a continuation TRACE 

or SNAP card. 

1S?h - Last named entry name on SNAP card currently being 

processed by TSCARD. Implied entry names for PWA and 
LWA parameters are derived from this location. 

Parts of the code in DEBUG are dependent upon the order of the following 
locations described (TSUSER-HDEBUG), Therefore, their order should not 
be changed. 

TSUSER - User entry address. SETADR exits with this in B2 (and 

in B7 if TRACE and SNAP are not both used). 

FTRACE - Set to 1 by SETADR if this Is a TRACE run. 
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FSNAP 

FTS 

ETEACE 

ESNAF 

TTRACE 

TSNAP 

TSUP 

TSDOIM 

HTEACE 

HSNAP 

HDEBUG 

SNACE 


- Set to 1 by SEXADR 1;^ this Is a SNAP run. 

- Used to temporarily hold the sum of FTRACE and FSNAP. 

- Entry address of TRACE, 

- Entry address of SNAP. SEXADR exits with this In B7 
If this Is both a TRACE and SNAP run. 

- Address of top of TRACE tables. SEXADR exits with this 
In B6. 

• Address of top of SNAP tables. SEXADR exits with this 
In B5. 

- LUA+1 of debugging routines, SEXADR exits with this in 
B4. 

- FHA of debugging routines, SEXADR exits with this in B3. 

- TRACE in left-justified display code. 

- SNAP in left-justified display code. 

- DEBUG In left-justified display code. 

- FET and buffer for TRACE and SNAP output. SNACE Is an 
entry point and Is the first word of a 13-word FET for 
the file SNACE. The buffer liimediately follows the FET. 
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OVERLOG 

When the debugging aids are to be used with overlay jobs, OVERLOG replaces 
OVERLOD in the 0,0 overlay. The following is done by OVERU)G: 

1. After the 0,0 overlay has been loaded, ah immediate entry to OVERLCX; Is 
made. During non-debug runs, OVERLOD does not get control at this time. 
OVERLOG gets control because it has a transfer symbol on its END card. 

Upon this initial entry, a search is made for TRACE or SNAP tables. It 
la required that any TRACE or SNAP cards must appear inmediately before 
the control card which begins loading the overlay file. Thus, the 
tables for any TRACE/SNAP cards will still be in core. As soon as any 
TRACE or SNAP tables are found, the field length is increased. This is 
done by calling the routine ZZGETFL, which is in the program DEBUG. 

The amount the field length is increased is governed by the symbol 
FLINCR. The TRACE/SNAP tables are then moved to an area just above the 
original field length, in order that they will not be lost vdien other 
overlays are loaded. 

Processing continues at step 3. 

2. When OVERLOG is entered to process user calls to load additional 
overlays, a routine called OVERLOD (within OVERLOG) is called to perform 
the usual OVERLOD function of calling LDR to load the requested overlay. 

3. A check is now made to see if SNAP, TRACE, or a labeled dump has been 
requested. If so, the loader tables are read from the overlay file, 
and are placed above the TRACE/SNAF tables. If any. 

4. If a labelled dump was requested, a call is made to the routine WRDEBUG 
(in DEBUG program) to write the loader tables to the file DEBUG, 

5. If TRACE or SNAP was not requested, OVERLOG now exits to the user. 
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OChervlse, FUil/IDR (bits 0*17 of RA467) Is now changed to indicate 
that the loader tables are at a higher location in core, and the final 
exit is made to SEXADR (in DEBUG program). SEXADR will complete the 
processing of the TRACE/SK&P tables and will call TRACE or SNAP. 


The following syndMls and locations are of interest: 

USERADR • This is at OVERLOG*!. The user's return address is set here 
after OVERLOD is called. Also LOADER stores the initial user 
entry in this location. 

OVLFILE * This is at 0VERL0G*2. As each orerlay is loaded, OVERLOG stores 
the overlay file name here. It is also initially set by 
LOADER after loading the 0,0 overlay. 

H - This will equal 0,1, or 2, depending on whether the user has 

requested no TRACE or SNAP, TRACE alone or SNAP alone, or 
both TRACE and SNAP, respectively. 

FL * The current value of the field length is stored here. 

FLINCR * This is an EQU lAich defines the aiiio:uit the field length is 

increased whenever an Increase has to be made. The initial 
release of OVERLOG has FLINCR - 400g. 

The following shows the format of high core: 

I 


f 
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End of Current FL 


End of original FE 


RA 


Loader tables 
of the overlay 
currently loaded 


SNAP tables (if any) 


TRACE tables (if any) 
Jump out of bounds_ 

Original field length 


The Jump out of bounds is Inserted at the top of the original field length 
because the LOADER fills unsatisfied externals with out-of-bounds Jumps 
which are Jumps to this location. 

If there are no TRACE or SNAP tables (N^O), the loader tables will be read 
Immediately above the out-of-bounds Jump. If both SNAP and TRACE tables are 
present, their order will depend on the order in >dilch the TRACE and SNAP 
cards appeared, and is Immaterial. 
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When control is returned to the user, the field length will be equal to 
the original field length + FLINCR. It will be set back to this value by 
SETADR if a larger amount was needed to hold the loader tables. 
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ERROR MESSAGES 

The following is a list of all error messages issued by the debugging 
routines, the routine from which the message appears, and a reference 
to the description of the message: 

1) SNAP CARD PARAMETER ERROR, ID - XXXmX 

(SNAP, section 15.1.1) 

2) ERROR ON TRACE XXXXXXX CARD 

(TRACE, section 15.2.6) 

3) TRACE TABLES AND USERS PROG OVERLAP 

(TRACE, section 15.2.6) 

4) SORRY, YOU MAY NOT DEBUG THE DEBUG ROUTINES 

(TRACE, section 15.2.6) 

5) ADDRESS XXXXXXX IS UNDEFINED 

(TRACE, section 15.2.6 ) 

6) ERROR ON TRACE OR SNAP CARD 

(DEBUG, section 15.3.1) 

7) TRACE OR SNAP TABLES OUT OF CORE 

(DEBUG, section 15.3.1) 

8) DEBUG CARD OUT OF ORDER 

( 2TS) 

9) TRACE OR SNAP CARDS NOT CONTIGUOUS 

(LOD) 
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16.0 UNIT RECORD I/O 

16.1 Janus I/O Package 


16.1.1 IIQ General 

IIQ is a PP program, always loaded at lOOOB. It is called when "n.JANUS." 
or "AUTO." is typed at the console, to set up a control point that reads 
jobs through from one to four card readers, prints output files through 
from one to twelve printers, punches output files through from one to three 
card punches, and may call user-provided programs IPL and IFM to mqkp plot 
and film units (up to four in all) handle output files. 

Card readers, printers, and punches are driven by another PF program called 
IIR, which is called by IIQ. A third program, IIS, is also called by IIQ 
when it is setting up the control point; US merely copies a "library" of 
overlays for UR into the field length. Thereafter, US drops itself and 

is never called again« 

After everything else has been set up, and US has done its work, IIQ calls 
IIR for the first time, requests itself ClIQ) with a 2-second delay, and 
drops itself. Thereafter, IIQ recalls itself in this way about every 2 
seconds. Each time it comes up, it does four things; (1) Calls IIR if it 
is not active at the control point. (2) Picks up type-ins which DSD may 
have left in the control point area, translates them, and distributes them 
to the FET^s of the appropriate files, where HR (and IPL and IFM if they 
exist) can find them conveniently. (3) Expands or contracts the field length 
if desirable and possible* (4) Galls IPL and/or IFM if necessary* 


Entry Information 

The input register initially contains 
VFD 18/OHlIQ,3/0,3/n,36/0 

where n is the control point number- Called by this, IIQ requests field length 
and drops itself after requesting its own return with two seconds delay. If 
the field length is zero, IIQ requests a minimum lOOB words and makes the 
future request to itself identical with the above* Otherwise, HQ calculates 
the full initial storage requirement for JANUS and requests it, and provides 
that the next IIQ request will be: 

VFD 18/0HlIQ,3/0,3/n,24/O,12/f 

where f Is the required field length divided by lOOB. Until this field length 
is found to have been granted, IIQ keeps requesting storage and recalling it¬ 
self in this way. Once the field length is correct, all later calls to IIQ 
have the form: 
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VFD 18/OHIIQ,3/0,3/n,6/a,6/a+b,6/a+b+c,6/a+b+c+d,12/f 

where a is the number of card readers in the EST but not more than 4, 
b is the number of card punches but not more than 3, c is the number 
of line printers but not more than 12, and d is the number of film, 
plot, and hard-copy units but not more than 4. 

Whenever IIQ alters the field length, it changes the value of f in the 
call to itself accordingly. 


Exit Infonnation 


The only program to which IIQ passes information at 
minating Itself is Itself, via its delayed PP call, 
forms of the call and the subsequent input register 
above. 


the moment of ter- 
The different 
contents are given 


Other Programs Galled 

IIS is called to another PP twice, during initialization: (i) with 
a call of VFD 18/OHlIS,3/0,3/n,36/0 where n is the control point number. 
This call is made the first time IIQ recalls itself and finds that the 
field length is non-zero. IIS calculates the total length of the over¬ 
lays that it will later store in central memory within the control 
point's field length, and leaves it in bits 0-11 of fiA+17B. This en¬ 
ables IIQ to calculate the initial JANUS storage requirement. 

(2) when initial storage has been obtained, IIQ calls US with a callJ 

VFD 18/OHlIS,3/0,3/n,24/0,12/v 

where n is the control point number and v is 16(a-!-b+c+d+l); a, b, c, 
and d being equipment counts as above under "Entry Information". V 
is so defined because 20B words (16) are left unused for the moment 
at the beginning of the field length; then 20B words per equipment are 
set aside for an FET; beginning at the next word, KA+v, IIS will store 
the overlays (for HR) which it copies out of Itself. 

HR is called to another PP just before IIQ drops itself, except during 
initialization, and unless HR is known to be already active. The call 
has the forms 

VFD 18/OHHR,3/0,3/n,6/a,6/a+b,6/a+b+c,6/a+b+c+d, l2/w 

where n is the control point number, a, b, c, and d are equipment counts 
as above, and w=v+q+200B*a, rounded up if necessary to a multiple of 
lOOB. As explained above, RA+v is the address at which IIS begins to 
store overlays; q is the total length of these overlays, stored by IIS 
in bits 0-11 of RA+17B. Beginning at RA+v+q, one area of 200B words 
is allowed for each card reader to be driven by JANUS, and after the 
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end of the last such area 5 the file buffers of BUFLG words each begin. 

Thus w is the relative address of buffer number 0. The storage that IIQ 
initially requests is w+3*BUFLG words^ allowing three buffers to start 
with, (This is eiqjanded when necessary to provide tnore buffers, if 
possible; and is contracted when IIQ finds that one or more buffers at 
the end of the series are unused; but contraction does not go beyond the 
point that would leave one buffer free. For each buffer, HE will check 
about every thirty seconds to see whether it is the highest-address buffer 
in use, and if so will free it and begin using a lower-address buffer if any 
is available.) The 200B-word area allowed for each card reader is used by HE 
as a buffer to accumulate error messages concerning input files read through 
that reader* If such messages are generated during the reading of a job, they 
are written out by HR on a file that will become the OUTPUT file for the 
job, when it eventually begins to be executed. 

Narrative 


At BRW, IIQ begins by setting constants 1, 3, and 5; reading its input 
register, setting D.CPAD, filling the control point niimber into the future 
calls to IIS, Hr, IPL and IFM, setting the control point job name word to 
JANUS, and reading the control point status word. The error flag may be zero, 
F.ERPF, or something else. If neither zero nor F.ERPP, it has been set by an 
^^n.DEDP.^^ or ^^n.KlLL.^ type-in. HQ should not initiate new file activity 
or request more memory, so we aero the switch instructions at BRWD and KAL, 

But otherwise IIQ has to proceed normally to handle type-ins and displays for 
the files that are to be completed before JMUS drops; so we go to BRWA to 
begin. If the error flag is F-ERPP, this means that JANUS was in the condition 
just described, but IIR has completed all the files and altered the error flag 
to F.ERPP before dropping itself; hence IIQ may now drop itself, thus dropping 
JANUS. If the error flag is zero, we go straight to BRWA. At BRWA, D.RA and 
D-FL are set. If the field length is 0, initialization is in the very first 
stage, and we go to RQT. To find the total initial storage requirement, call 
llS to find the size of the overlay library; but IIS will store this at 
RA+17B; so 100 words of field length are requested at RQT; after which, at PPREC, 
HQ recalls itself with a 2-second delay, using its input register to supply 
the future call, and then drops. When IIQ next comes up, if the field length 
is not 0 , it is compared with bits 0-11 of the input register; if this byte is 
different, go to RQS; if the byte is 0 we are at the stage when lOOB words of 
FL have just been obtained. 

At RQS, If bits 0-11 of the input register are non-zero, they are the required 
field length/100B, which we have not yet obtained, and we go to RQSM to request 
it again. But if they are zero we have just obtained lOOB words of FL, and 
call IIS for the first time. Subroutine CALLUS calls IIS and waits until US 
has dropped itself* As bits 0-11 of the call to IIS are 0 this time, IIS will 
not store the overlay library in the field length, but merely calculate its 
length, and store the library length at RA+17B. Field length Is going to be 
allocated thus; the first 20B words for utilities; 
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then 20B words for an FET for each device to be driven by JANUS; then 
the overlays; then from 0 to 77B words of waste, to make the next al¬ 
location begin at an even multiple of lOOB; then 200B words for each 
card reader to be driven by JANUS, to accumulate messages; and finally 
3*BUPLG words to provide three buffers- The number of buffers may be 
varied automatically between 1 and the number of devices being driven; 
but the allocation below the beginning of the first buffer (number 0) 
remains unchanged. So now subroutine CDEV is called to count the 
numbers of relevant devices in the EST; then the length of the over¬ 
lay library is fetched from RA+ITB; then the full initial storage re¬ 
quest is set up; the wanted field length/lOOB is copied to bits 0-11 
of the input register; the storage request is issued, and control goes 
to PPREC to set up a recall and drop the PP. 

IIQ comes to BBWB when it finds, on being called, that it has the cor¬ 
rect field length. Now, if bits 12-23 of the input register = 0, this 
is the first time HQ has been so called, and more initialization must 
be done; otherwise branch to BRWC to begin the ever-repeated part of 
the program. If it does not go to BSWC, it calls subroutine CDEV to 
count the relevant devices; then puts the number of card readers in 
bits 30-35 of the input register, the number of card readers plus card 
punches in bits 24-29, the number of readers plus punches plus printers 
in bits 18-23, and the number of readers plus punches plus printers plus 
film and plot units in bits 12-17. Call these numbers p, q, r, and s. 
Then s is the total number of devices JANUS may be handling, and s FEX’s, 
numbered 1 through s, are needed. Card readers will use FET's 1 through 
p; punches will use FET's p+1 through q; printers will use FET's q+1 
through r, and film and plot units will use FET's r+l through s. The 
starting address of any FET is found by multiplying its number by 20B, 
l.e. LDD D.RA; SHN 2; ADD PS; SHN 4 (where PS contains the FET number) 

- a frequently occuring sequence, gives the starting address of the PET 
currently being treated. Just after BRWC, bits 12-35 of the input 
register are copied into the same position of the call to HR, so that 
it will have available the range of FET numbers for each type of equip¬ 
ment. Next control point locations 60B through 150B are zeroed; then 
bits 48-59 of control point +111B are set = 1. (See below under sub¬ 
routines FETCH and PUT. That byte must only have values 1, referring 
to IIQ, and 3, referring to HR. If left 0, the interlock scheme de¬ 
scribed in those subroutines would lock out both programs forever.) 

Next find the last ^l address of the last FET - 20B*(s+l), as s is de¬ 
fined above. This is the beginning of the area in which IIS will store 
overlays, so it is stored in bits 0-11 of the call to that program. 

Then (at BEWBB) zero out all the FET areas, and call HS. 

Now a word is set up at control point +77B, which will be constantly 
used by HQ and HR in assigning and releasing buffers. Bits 48-59 
are set to the current value of the seconds clock, +15. At KC, further 
down in IIQ, the current value of the clock is compared with this 
number, and if the time in CP+77B has been reached, IIQ attempts to 
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reduce field length. In other words, this attempt Is made about every 
15 seconds. Bits 36-47 are set to 3, which is the number of buffers, 
free or assigned, now in the field length. Bits 24-35 are set to 0, 
the highest number of buffers that have been in use at any one time 
since the last (of course at this moment there really was no last) time 
IIQ tried to reduce field length. Bits 12-23 are set to 0, the number 
of buffers currently assigned. Bits 0-11 are left 0, and they will 
always remain so. The five words at CIH-IOOB through CP-t-104B are con¬ 
sidered as 25 bytes, of which 1-23 will record assignment of buffers 
1-23 (23 is the maximum number of devices JANUS can handle) and bytes 
24-25 are never used. These words are already 0, indicating that no 
buffers are assigned at the moment. 

As these registers und counters in CF+77B through 104B are used by both 
IIQ and HR, it is necessary to provide an interlock. Both programs 
have a subroutine called FETCH, which satisfies the interlock and 
copies CP-h77B into five bytes beginning at KEY, and GP+IOOB through 
104B into 25 bytes beginning at BUFAS- Only after FETCH is called may 
they be altered. Subroutine PUT must be called, whether or not they 
have been altered, to update KEY+2 (the maximum number of buffers re¬ 
cently in use) if KEY'f3 now contains a higher number; to replace them 
in the control point area> and to release the interlock. 

The final point of the initialization is to set bit 12 of CPfl53B to 
1 , which identifies the control point as an ^^OUTPUT^^ one (this is also 
done by lOT in setting up ordinary ^^OUTPUT"), and to copy the input 
register into CP+75B, whose only function is to provide a further 
identification of the control point as JANUS- 

Now control reaches BRWC to begin the non-initialization part of IIQ, 
First the address of the first buffer, number 0, is found. Reading 
RA+17B into D.Zl through D,Z5 gives the length of the overlay library 
in D,Z5- Bits 12-17 of the input register give the total number of 
FET*s; 1 is added to this representing the first 20B words of field 
length, preceding the first FET| the sum is multiplied by 20B to give 
the end -fl address of the last FET; the overlay length is added; the 
total is rounded up if necessary to a multiple of lOOB, and the result 
of dividing it by lOOB is saved in D,Z1, From bits 30-35 of the input 
register is obtained the number of card reader FET^s; double it, add 
it to D.Zl, and multiply the result by lOOB. This gives the starting 
address of buffer 0, which is Inserted in bits 0-11 of the call to HR, 
Bits 12-35 of the IIQ input register are, in the process, copied into 
the same position of the HR call. The start of buffer 0 Is calculated 
as above because the overlay library follows the last FET; then 0 to 
63 CM cells are wasted, up to the next address divisible by lOOB; then 
200B words are allowed for each card reader FET to accumulate error 
messages generated while reading a job through the card reader; and 
immediately after the last of these begins the first buffer* 
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Now call subroutines CONSOLE and STATUS. They are called hare, just 
as IIQ begins its nornial work, and they will be called again just be¬ 
fore it drops itself. CONSOLE takes operator type-ins that DSD tBay 
have put into CIM-60B, translates them, and passes them to the relevant 
FET's. STATUS looks at words lOB through 15B of each active FET, and 
if they appear to contain a display message, copies them into one of 
the 6-word areas between CPfBOB and CP+57B, so that they appear in the 
B-display. As the action of these subroutines is logically separate 
from the rest of IIQ, any further description is left to the section 
under "Subroutine s". 

Now IIQ looks for requests from IFM or IPL to terminate a file. If one 
is found, it is assumed that IFM or IPL has already finished its actual 
output, and may have dropped its PP, but it should have set bits 48-59 
of the first word of the FET to 7777B as a signal to IIQ to drop the 
equipment from the control point, release the buffer, zero the FNT entry 
and the FET, and release the disk space occupied by the file. 

If bits 18-23 of the input register are r and bits 12-17 are s, then 
r+1 is the number of the first FET for film or plot, and s is the number 
of the last one. If r=s, there are none, and control passes to KA. 
Otherwise bits 48-59 of the first word of each FET numbered rbl through 
s inclusive are tested; if they = 7777B, the following steps are carried 
out; CD Find the buffer number. The FIRST pointer in the FET gives 
is starting address; subtract from this the address of buffer 0, and 
divide the result by 40DB, lOOOB or 2000B (the length of a buffer). To 
release this buffer, call subroutine FETCH; zero BUFAS+n (the buffer 
number); reduce KEY+S (the count of buffers now assigned) by 1; and 
call subroutine PUT. (2) The FNT address is in bits 0-11 of the sixth 
word of the FET (this is true only of FET's for IPL and IFM); read the 
FNT entry, set up a stack request to release its disk space, and call 
resident subroutine R.EREQS to issue the request. (3) Zero the FNT 
entry. (4) Zero the FET. (5) In the copy of the FET still present 
beginning at MESS, get the unit EST ordinal from bits 48-59 of the 15th 
CM word; release the equipment from the control point. 

When any termination requests from IPL or IFM have been dealt with, 

IIQ comes to KA to deal with the possibility of expanding and contracting 
the field length. First it calls subroutine FETCH, as buffers may be 
assigned or buffer counts altered. 

Now at KAFA, an attempt is made to satisfy requests for additional buf¬ 
fers. Control point +73B contains 1 in bits 48-59 if UR has requested 
a new buffer (it can assign itself buffers, thanks to the interlock, 
but cannot expand storage if there is no free buffer). The same byte 
will be set to 2 by IIQ if it pre-assigns a buffer to IIR, in which 
case bites 0-11 of the same word will be set to the buffer number. If 
IIR accepts the buffer, it sets bits 48-59 of CIH-73B back to 0. The 
word at CP+74B is used in the same way by IIQ to request a new buffer 
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from itself for use by IPL or IFM. This roundabout self-request is 
used because the need is seen in a different part of IIQ, and it is 
simpler to communicate It to the satisfaction part of IIQ in such a 
way that the HR-satisfying routine can handle it as well. First these 
two cells in the control point are checked, and a count Is made (in 
D.BA+4) of how many requests they contain. The answer could be 0, 1, 
or 2. If 0, go to KAC; otherwise try to satisfy the 1 or 2 requests 
using existing field length, and then go to KAC leaving the number of 
still-unsatisfied requests in D.BA+4. (KEY+l)-(KEY+3) is the 
number of unused available buffers. If this is 0, the only possibility 
is to go to KAC; otherwise, go once or twice through the loop between 
KAB and KAF. If a request can be satisfied by buffer number n, 
replace the request word at CP+73B or 74B by VFD 12/2,36/0,12/n; set 
BUFAS+n to lOOOB for a request from IIR or 2000B for a request from 
IIQ; and add 1 to KEY+3, the count of currently-assigned buffers. 

(The values lOOOB and 2000B have no meaning except for being 
non-zero. A byte in the BUFAS area is normally set to the FET number 
when a buffer is assigned to the FET, but again, this number has no 
significance except for being non-zero.) 

If there are no requests, or when as many requests as possible have 
been filled from existing field length, we come to KAC with the 
number of unfulfilled requests in D.BA+4. If this is 0, expanding 
storage has been taken care of and we go to KC to work on the 
possibility of shrinking storage. Also, if IIQ found the error flag 
set when it was called, instruction BRWD has been set to a no-op, 
and we go to KG without trying to expand storage. Otherwise, we convert 
the number of wanted buffers to their length, and see from CMR cell T.UAS 
whether so much free storage exists. If not, pass on to KC. If so, 
request the storage, pause, and see if granted. If not granted, return to 
KAK to recheck T.UAS and repeat the cycle. If granted, adjust D.FL and also 
the field length in bits 0-11 of the input register (because those bits are 
conq>ared with the field length every time IIQ is recalled) and then 
call FETCH to enable buffer assignments and counts to be altered. To KEY+1, 
the count of buffers in the whole field length, add the increase in the 
field length divided by 4, lOB, or 20B, a buffer length/lOOB. Then read 
the clock and reset KEY to the current time in seconds +15j this is done 
whenever field length is increased, and whenever the possibility of 
shrinking field length is considered or implemented, and it serves as an 
interval timer for considering that possibility. Then return to KAFA to 
pick up the requests again and try to satisfy them with the new field 
length. 
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KC is reached when everything necessary or possible has been done about 
satisfying requests for additional buffers. Now it may be time to think 
about shrinking storage; if not, branch straight to BRWD. The word at 
control point +77B is read (the Interlock has not been secured through 
subroutine FETCH, but no matter, as lIQ is not altering anything in 
CP+77B through 104B, just reading the timer in one of them.) If the 
interval timer is above 3777B, while the seconds clock is below lOOB, 
presume that the clock has passed the timer and go to KCC. (Note that both 
are 12-bit counters.) Or if the clock is above the timer, go to KCC, other¬ 
wise to BRWD. At KCC, call FETCH as the number of buffers may be changed. 
Compare the number of buffers in the field length with the highest number 
in use at any one time in the last 15 seconds (since the last time this 
was done.) If two or more buffers have gone unused it may be possible 
to shrink field length; otherwise go to KD2. Now in BUFAS through BUFAS+n-1 
there is a register of assigned and free buffers; scan it backwards from 
BUFAS+n-1 towards BUFAS until an assigned buffer is found, or until bytes 
indicating all but one of the free buffers have been scanned. This gives 
the number of buffers that can be dropped. If 0, go to KCE - it would 
appear that the program could just as well go straight to KD2 here. If 
non-zero, multiply the number by BUFLG/IOOB to get the amount to reduce 
field length, set up a request, and keep requesting until the field length 
is changed, when it is safe to assume the request was exactly fulfilled. 
Then at KCE pause, adjust D.FL and bit 0-11 of the input register, which 
must always be equal to it, subtract the number of buffers dropped from 
KEY+1, the counter of buffers in the whole field length, and pass to KDZ. 

We reach KDZ whenever the time has arrived to try to shrink storage, and 
any possible shrinkage has been accomplished. We set KEY+2, the counter of 
the largest number of buffers recently in use, equal to KEY+3, the counter 
of buffers currently in use, as we are beginning a new 15-second interval. 
Then read the seconds clock and set the interval timer in KEY to 15 seconds 
after the current time (mod 4096). Then call PUT, and pass on to BRWD. 

We come to BRWD when finished with expanding or shrinking storage. It is 
possible that IIQ will now find itself a buffer short, in attempting to 
set up a file for IFM or IPL; but in that case it will not re-open the 
field length question, but store a request to itself in control point+74B, 
to be worked on two seconds later the next time IIQ recalls Itself. If IIQ 
found an error flag when it was called, the switch at BRWD has been set to 
skip the possibility of finding new film or plot files, and branch straight 
to FNT7. Otherwise, between BRWD and BRWDC, scan the EST for any free film, 
plot, or hard copy equipment (codes FM, PL, and HC) that are not off. If 
there is none, go straight to FNT6, as there is no possibility of dealing 
with any new files for such units. If any such unit is found, go to BRWDC, 
and scan the FNT for entries at control point 0, not locked out, on alloca- 
table devices, not assigned to EXPORT-IMPORT or RESPOND,with disposition 
codes between 20B and 37B. Having exhausted the FNT, we come to FNT5 with, 
in FM, the address of the highest-priorlty FNT entry whose disposition code 
is between 20B and 23B (film), or 0 in FM if there is none such; in HC, the 
address of the highest-priority FNT entry whose disposition 
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code is between 24B and 27B (hard copy)^ or 0 in HC 1£ there Is none 
such; and in PL the address of the highest-prlority FNT entry whose 
disposition code is between 30B and 37B (plot), or 0 in PL if there 
is none such- Now call subroutine FNTH with each of these addresses* 
If there are files for IIQ, it will claim them by changing their 
control point numbers, and the FNT pseudo-channel can now be dropped, 
which was requested just before starting the scan of the FNT* Next 
call subroutine FNT8 three times, to bring together if possible (1) 
a film unit, film disposition file, FET, buffer, and PP with program 
IFM; (2) a plot unit, plot disposition file, FET, buffer, and PP with 
program IPL; and (3) a hard-copy unit, hard-copy disposition file, 

FET, buffer, and PP with program IFM- Then pass to FNT6. 

Control comes to FNT6 when film and plot possibilities have been 
dealt with, or it has found that there are no such units in the EST 
anyway. Bits 48-59 of control point +76B are initially 0; IIQ sets 
them non-zero just before calling HR to another PP, and HR sets 
them back to zero just before dropping itself. So now this byte 
is checked; if non-zero, HR is already active and control goes 
straight to FNT7 to drop IIQ after a final passage through subroutines 
CONSOLE and STATUS- Otherwise, HR is not active; it will be called 
in a minute (HR must come up every so often, as no other program 
can check the card reader(s) to see if the operator is trying to 
feed it/them). But first, if a buffer has been preassigned to HR 
on its request, and HR has not accepted it, and HR is not active, 
the buffer should be de-pre-assigned. (HR could request an ad¬ 
ditional buffer and then satisfy its need when a file terminated, 
without ever picking up the additional buffer. A bit later, IIR 
might drop, and if all equipments remained inactive for a long time 
HR would still never pick up the additional buffer. If it happened 
to be the highest-addressed buffer In the field length, this might 
prevent IIQ from shrinking field length, even though in fact nothing 
at all was being done by JANUS*) So FETCH is called, and CP+73B 
read. If bits 48-59 do not ~ 2, there is no pre-assignment to HR 
and control can pass on to FNT6A* If there is a praasslgnment, the 
number of the buffer (n) is in bits O-II, so zero BUFAS+n to cancel 
the assignment, zero CP4-73B, and reduce by 1 the count of buffers 
assigned In KEY+3. Then, at FNT6A, call PUT; set bits 48-59 of CFf76B 
non-zero, to show that HR is active, and call HR. 

Finally? at FNT7, subroutines CONSOLE and STATUS are called again to 
deal with operator type-ins and equipment messages, and then at 
PPREC IIQ is dropped with a 2-second recall. 


Subroutines 

raiH 

This brings a file to our control point from control point 0. It 
is entered with the address of the FNT entry in the A-register; how¬ 
ever, if this address is 0, FNTH does nothing. 
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Entry Information 

The FNT address, or 0, in the A-register# 

Exit Information 
None- 

Subroutines Called 
None. 


Registers Destroyed 
D-Zl, D-TO through D-T4 

FNT8 


Calling Sequence: RJM FNT8 

VFD 12/a,12/b,12/c 

This subroutine may assign a film or plot disposition file to a PP 
and an equipment, an FET and a buffer- ”a'’ in calling sequence is the 
address of a direct cell (FF+2 or FF+3) that contains 0 if no file, 
or the address of the FNT entry of the file, ^^b” is display code M 
or PLj for requesting an equipment of one type or the other. is 

the address of a call to IM or IPL, which is followed by the word 
”FILM” or ”PL0T” to be used in giving a new name to the file. 

First the exit address is set in FNT8X; then the cell the first para* 
meter points to is checked. If the cell contains zero, exit imme¬ 
diately. Otherwise, get r and s from bits 18-23 and 12-17 of the input 
register; irM is the number of the first film/plot FET, and s is the 
number of the last. If r=s, there are no such FET^s, and control goes 
to FNT8Y to release the file from our control point and exit FNT8. 
Otheirwise scan the series of FET^s for a free one,as defined by bits 
48-59 of its first word being 0. If none is free, go to FNT8Y as 
above. 

If an FET is free, come to FNT8B with its number in D.BA+2. Take ^^FM” 
or ^*PL^^ out of the calling sequence, set up a request for an equipment 
of that type, and issue the request. If the equipment is not obtained, 
go to FNT8Y as above- Otherwise, save its EST ordinal in D-ba-HS- 
Gail FETCH, as a buffer must now be assigned to the file. Also read 
the word at control point -1-74B. If bits 48-59 of this word = 2, the 
routine has pre-assigned a buffer to itself on a previous recall of 
IIQ, and its number is in bits 0-11 of the same word. So zero that 
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word in central memory^ and then go to FNT 8 E with the buffer nianber 
in D.Z7. If such a preassignment is not indicated in CP-t-74B, begin 
looking for a free buffer at FNT 8 H* If the count of buffers in the 
field length is not greater than the count of buffers in use now, 
there is no free buffer, so set up a request for a new one (set bits 
48-59 of CP+74^1; this will be picked up by IIQ the next time it re¬ 
calls itself, at KAFA in the main program) 5 call PUT to release the 
buffer assignment registers; release the film or plot equipment, and 
branch to FNT 8 Y as above. But if the counts show there is a free 
buffer, go to MT 8 K to search BUFAS and following to find it. On 
finding it, add 1 to KEY+3, the count of buffers now in use, and pass 
to FNT 8 E with the buffer number in D.Z7. 

At FNT 8 E, claim the buffer by putting the FET number in its BUFAS 
slot (if the buffer was pre-assigned, this number will replace not 
zero, but 2000B| however, only zero and non-zero actually signify). 

Now an FET is set up in the PP memory beginning at KYFET* From the 
buffer number in D.Z7, and the starting address of buffer zero, the 
starting address of the new buffer is calculated, and hence set up 
the four FET pointers. From the third parameter in the call to FNTS, 
the address of the call to IPL or IFM is found, and into this call 
is inserted the EST ordinal of the equipment, in bits 24-35, the 
disposition code of the file, in bits 12-23, the starting address of 
the FET, 20B times the FET number, in bits 0-11 of the call. Next 
a new name is given to the file, both in the FNT entry and in the 
FET. This is necessary because the present name of the file is the 
same as the name of the job that generated it; if the job generated 
one film and one plot file, they now have the same name, and if IM 
and IPL each call CIO to read one of the files, its name in the FET 
will not be a sufficient identification- So take the word **FILM” 
or ”PL0T^* from the area iimaediately after the call to IFM or IPL, 
add after it a letter corresponding to the number of the assigned 
FET (A-1, ^2 etc.) and put the resulting unique name into the first 

word of the FET and the FNT entry. (The name is unique as far as 

this control point is concerned, which is enough.) The previous 
file name (job name) is saved in bits 18-59 of the sixth word of the 

FET; the address of its FNT entry is stored in bits 0-11 of the same 

word. The status in the FET and FNT is set to 3, rather than to 
53B, for rewound, which would seem the logical value. This is be¬ 
cause the file may at some point be rewound and reprocessed by IPL 
or IFM, and IPL or IFM should be able to distinguish easily between 
the status immediately after such a rewind, and the initial status, 
marked here by 3. The EST ordinal of the device is stored in bits 
48-59 of the 15th word of the FET. The rest of that word is initially 
zero; IIQ uses bits 48-59 to recognize that this is the FET to which 
an operator type-in naming that device is to be directed,and IIQ puts 
a number corresponding to the type-in into bits 36-47, which should 
be zeroed by IFM or IPL when it accepts the message. 

The display code letters or followed by the EST 

ordinal as a 2 -digit octal niimber in display code, are put into bits 
36-59 of the 8 th word of the FET. Two blanks are put into bits 
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24-35 of the same word. The former name of the file has already been 
saved, as well as in the sixth word of the FNT, in bits 0-23 of the 
9th word and bits 24-59 of the tenth word; bits 24-41 of the latter 
are now zeroed to get rid of whatever was originally in bits 0-18 
of the first word of the FNT entry. The rest of the 10th through 14th 
words of the FET are initially zero. This makes the six words between 
the 9th and 14th words into, for example: FM26 JOBOOIA with 23% bytes 
of zeros after the job name. As soon as the FET model is written to 
its destined space in central memory, these six words will become a 
line in the J-display by DSD. The first full byte after the job name 
(bits 24-35 of the 10th word of the FET) will be periodically checked 
by ilQ, in subroutine STATUS, and if they are non-zero it will be 
assumed that the whole six words now form a display message, which 
will be copied to the control point area so as to form a line in the 
control point B-display. Thus IFM or IPL can send a message to the 
operator by putting it into bits 0-35 of the 10th word and all of 
the 11th through 14th words, being sure to make bits 24-35 of the 
10th word non-zero. To drop the message from the control point B - 
display, IFM or IPL need only zero bits 24-35 of the 10th word, but 
obviously the rest of this area of the FET should be zeroed as well 
for simplicity. 

Finally the 16-word FET is copied into its area in central memory, 
and subroutine GALL is called to issue the call for IPL or IFM. Then 
subroutine FNT8 exits. The FET looks like this: 

VFD 24/0HFILM,6/n,30/3 (or 24/OHPLOT etc.) 

VFD 12/0,12/0400B,36/a,60/a,60/a,60/a+BUFLG 

VFD 42/jobname,6/0,12/b 

VFD 60/0,60/0 

VFD 12/0HFM,12/dd,12/5555B,42/jobname,42/0 (or 12/OHPL etc.) 

VFD 60/0,60/0,60/0,60/0 
VFD 12/e,48/0,60/0 

where n Is the FET number, a is the address of the start of the buffer, 
"jobname" is the name of the job that generated the file (necessarily 
7 characters), b is the address of the FNT entry for the file, dd is 
the EST ordinal of the device, as two octal digits in display code, 
and e is the same number as a binary integer. The call to IPL or IFM 
is: 


VFD 18/OHlPL,3/0,3/c,12/e,12/g,l2/f (or 18/OHlFM etc.) 

where c is the control point number, e is the EST ordinal of the 
device as a binary integer, f is the address of the start of the FET, 
and g is the disposition code of the file. 
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Subroutine s Called 

GALL, FETCH, PUT, R*PROCES 


Registers Destroyed 

D - BA through D*BA'b4j D-TO through D*T4, D*Z1, D*Z2, D*Z3, D-Z7 direct lyj 
D*Z4 and D-Z5 by FETCH. 

GDEV 


This scans the EST and counts the number of card readers, up to a 
maximum of 4; punches, up to a maximuni of 3; printers, up to a maximum 
of 12; and film, plot and hard-copy units, up to a maximum of 4 in all, 
and leaves the respective totals in D^Zl, D*Z2, D.Z3, and D-Z4. Units 
are counted whether assigned at present or not and whether on or off. 


Entry Information 


None - 


Exit Information 


The counts in D-Zl through D.Z4- 


Subroutines Called 
None* 


Registers Destroyed 

D.Z5, D*T0 through D*T4, D.BA through D.BAM. 
CONSOLE 


This transfers and translates operator type-ins from the control point 

area where they are put by DSD to the proper FET's, where they can be 

obeyed by IIR, IFM and IPL* 

The nine words in control point +60B through control point +70B are used 
as a first-in, first-out stack for type-ins. DSD inserts a type-in at 
CP+60B if this word is zero; if not, it refuses the type-in and conn^nts: 
"TRYLATER". A type-in has the form /END07. where '’EJJD” is the particular 
command, and 07 is the octal EST ordinal of the device, which identifies 
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the file now being processed on that device. DSD will have cut off the 
»/n and put the "END06” into CP+60B, left-justified with zero fill. (The 
slash is used to identify type-ins for JANUS, so that DSD need not contain 
a list of the allowed commands, though at present it does contain one.) 

CONSOLE first reads the nine-word area into the 45 bytes beginning at MESS. 
Now if the ninth word of the area does not begin with a zero byte, i.e. is 
not eiBpty, the stack is full and a new type-in could not be accepted, so 
we go straight to CONSOLP, If the first word, corresponding to CP+60B, is 
zero, there is no new type-in to be accepted, and we go straight to 
CONSOLP. Otherwise, CP+60B, the new type-in, is copied to the first pnip ty 
slot at the end of the stack In MESS+5 ff., and then we zero CP+60B to 
show that the type-in has been accepted. This brings us to CONSOLP, 

At CONSOLP, where we arrive whether or not a new type-in has just been 
accepted and put at the end of the stack, a check is made of the word at 
the head of the stack In MESS+5 through MESS+9. If MESS+5 contains zero, 
the stack is empty, and we exit from CONSOLE without copying the stack 
back to the control point. (This is not necessary because the stack must 
have been empty before we read it from the control point and a new type- 
in must not have been added to it.) Otherwise try to match the word with 

the list of messages beginning at OMES. To be acceptable, the type-in in 

MESS+5 through MESS+9 must match one of the messages character-by-character 
from the left until an en^ty character in the model is reached. :At CP, 
the 10 characters of the type-in are spread out into BUFAS through BUFAS+9, 
to make the comparison easier. At CONSOLE, PL is set to point to the begin¬ 
ning of the next word in table OMES; if it points to a zero byte, the table 

has been exhausted without finding a match and we branch to CONSOLQ, as 
if we had found a match and passed on the message. Otherwise, PL is copied 
to HC, FM is set to point to BUFAS, the beginning of the spread-out 
type-In, and the con^arisen is begun. 

Each comparison then begins at CONSOLC. When the first zero character in the 
model is found, we go to CPA. Otherwise, if a mismatch is found, we go to 
CONSOLE to try the next entry in table OMES. At CPA, we see if the type-in 
is "/ABORT.*' If so, put out a dayfile message; then drop the PP in such a 
way as to set the error flag to F.ESPP. IIQ will not be recalled, and as 
soon as HR sees that flag, it will drop itself and so drop JANUS. Otherwise, 
go to CPR and pick up the next character, after the word. This must be the 
first of one or two octal digits giving the EST ordinal of the device, 
identifying the file involved. If not an octal digit, go back to CONSOLE 
to try the next entry in table OMES. (This allows for the unlikely possibi¬ 
lity that the table contains two words of which the later one is an overhang 
of the earlier one, such as BS and BSP.) If this character is an octal digit, 
the next character of the type-In must be another octal digit, or a period, 
comma, or blank; otherwise there has certainly been a bad type-in and 
control 
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goes to CONSOLQ* Now set D-Z5 to contain the binary form of the octal 
number. Now initialize D.Z7 at 0; if there are any more parameters 
in the type-in, they will be stored in it. At present, this is only 
possible for the BS type-in (backspace). 

/BS07 is equivalent to /BS07,1,1. 

/BS07,10. is equivalent to /BS07,10,1. 

/BS07,,A. is equivalent to /BS07,1,A. 

In general^ the first parameter after BS07 is a decimal integer (inter¬ 
preted modulo 64, with 0 considered to mean 1) giving the number of 
pages to be backspaced. The default value is 1 page. The second 
parameter is the character, which must be a letter or digit, that is 
to be regarded as the format character defining the beginning of a 
new page; the default value is display code 1, which is the character 
normally used for this purpose. 

Now the next character after the equipment EST ordinal is picked up. 

If this is not a comma, there are no more parameters and control goes 
to CPB. Otherwise, beginning at CPD, pick up the characters after 
the comma and accumulate them as decimal digits into a binary total 
in bits 6-11 of D.Z7. As soon as a comma Is reached, control goes 
to CPC to get the page format character. Or if any character that 
is neither a decimal digit nor a comma is met, it goes straight to 
CPB assuming there is no format character. At CPC the character 
that follows the comma after the page count is picked up. If it is 
not a letter or digit, go to CPB; otherwise store it in bits 0-5 of 
D.Z7 and arrive at CPB. At CPB, PL still points to the start of the 
entry in table OMES that was matched. The fifth byte of that entry, 
the number corresponding to the word of the type-in, is now stored 
in D.Z6. Now get the total number of FET^s (active or not) from 
bits 12-17 of the input register, and look at the 15th word of each 
FET to see if its bits 48-59 match D.Z5. If no match, go to CONSOLQ. 

If there is a match, go to CONSOLH to see if bits 36-47 of the same 
15th word are zero. If so, go to CONSOLW to insert the message there. 
If not, go to GONSOLY. HR, IPL^ or im, in charge of that FET, 
has not yet accepted the last message that was left there. However, 
if the new message is /REW, it is allowed to override any waiting 
one and we go to CONSOLW after all. A stack of up to 8 type-ins is 
waiting in MESS-fS through MESS+44, and the first one is a hang-up. 

So zero MESS+45 through MESS+49, representing a 9th slot; then find 
the first empty slot beginning at MESS+IO; then copy MESS+5 through 
MESS-b9 into the empty slot; then write MESS+10 through MESS+49 back to 
control point +6IB through control point +70B and exit from CONSOLE* 

No attempt is made to process the next type-in in the stack, as this 
might bring us back to the hang-up, and IIQ must be kept in motion. 

At CONSOLW, the message number is inserted in bits 36-47 of the 15th 
word of the proper FET, and control comes to CONSOLQ. 
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At CONSOLQ a translated type-in has been passed successfully to 
its FETj or a type-in has been abandoned because the toessage is not 
in table OMES or because the unit it named is not names by any of our 
FET's. The first word in the stack (MESS+5 through MESS+9, corrres- 
ponding to CP+61B) has been disposed of; the stack is now shifted 
down by zeroing MESS+45 through MESS+49 and copying MESS+10 through 
Mps+49 into CIM-61B through GP+70B, Then control returns to the be¬ 
ginning of subroutine CONSOLE to accept a new type-ln, if any, and 
process the next item in the stack, if any. The fact that this is 
repeated will not delay IIQ unduly, for obviously, as long as a 
message is not blocked by an earlier one in the same FET (in which 
case control goes to CONSOLY), the stack is disposed of much faster 
than the operator can add to it by typing in. 

Strictly speaking, the nine-word stack begins at CPh61B, runs to 
CP+70B, and ends with CP+60B, corresponding to MESS+5 through MESS+44 
and ending at MESS through MESS+4. When read is performed from the CP 
area into the MESS area, the last item (CP+60B) is read again, unless 
the stack is full, into the first free slot in the range MESS+5 to 
9 through MESS+40 to 44. The message at the head of this having been 
dealt with, MESS+45 through MESS+49 are zeroed, and the first to eighth 
Items in the stack are considered to be MESS+10 through 49, which are 
replaced in CP+61B through CP+70B. At CONSOLY, the stack is rotated 
one place forward, end-around, rather than the eighth item being 
shifted forward and zeroed, before replacing MESS+10 throueh 49 in 
GP+61B through CP+70B. 


Entry And Exit Information 

None relevant to other parts of IIQ. 

Subroutines Called 
None. 


Registers Destroyed 
D.Zl through D.T4 


STATUS 


This copies display messages from the 9th through 14th words of up 
to 4 FET's into the four areas at control point +30B through 35B, CPt36B 
through 43B, cm4B through 5IB, and CPf52B through 57B. These areas 
are treated by DSD as the four variable lines of control point B-dispLay, 
because bit 12 of the control point +153B is 1. 
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In an inactive FET, all the words are zero, and STATUS will do nothing 
about them. In an active FET, the 9th through 14th words are treated 
as 30 bytes, in which the first contains "CR”, "CP", "LP", "FM", or 
"PL", depending on the type of equipment working on the file; the 
second contains the EST ordinal of the equipment, as a two-digit octal 
number in display code; the third contains two blanks; and the fourth 
through seventh contain the name of the job that generated the file. 

If the eighth byte is 0, it is assumed that the rest of the 23-byte 
area following the job name is also empty. Then DSD will display the 
first seven bytes as a line in the J-display, but nothing will be 
copied to the B-display. If the eighth byte is not zero, it is assumed 
that there is a message beginning with the eighth byte and running to 
the first zero byte, or to the 30th byte if there is no zero byte. 

Then DSD makes everything up to the end of the message into the line 
in the J-display, and subroutine STATUS makes it into a line in the B - 
display (unless four lines have already been put there, filling it). 

First set D.21 to 30B, and D.22 to 60B, indicating that the available 
space for the B-display runs from CP+30B to CP+57B. Set D.Z4 to 30B, 
indicating that the message area of the first FET begins at RA+30B. 

From bits 12-17 of the input register, get the number of FET's, and 
store it in D.Z3, Then work through the FET areas, copying the 8th 
to 14th words of each into MESS through MESS+29. If MESS+7 is 0, 
pass over an FET. Otherwise go to STATUSB, where blanks are put in 
MESS+5 and MESS+b if they contain zero, and then copy the six CM 
words into the next available slot in the control point area. (Those 
two bytes will not contain zero if the file at the FET was generated 
by a normal job; but when an output file is generated from the console 
by DIS, for instance, its name will simpy be "DIS", and in that case 
the bytes will contain zero.) 

An exit is made from STATUS when all four spaces in the control point 
area have been used, or there are no more FET's. In the latter case, 
the unused part of the control point B-display area is zeroed. 


Entry and Exit Information 

None relevant to other parts of lIQ. 


Subroutines Called 
None. 

Registers Destroyed 

D.Zl through D.Z5, D.TO through D.T4 
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CALL 

This is used to call lIRj IIS, IFH and LPL as necessary, using the 
MiRPJ function with zero delay. 

Entry Information 

The address of the PP call to be put in the message buffer is in the 
A-register* 

Exit Information 
None. 

Subroutines Called 
R.PROCES 

Registers Destroyed 
D.TO throi^h D.T4. 


FETCH 


This is used to get access to CP+77B through CP+104B, which contains 
a timer, counts of buffers, and a register of buffer assignments* 

As IIQ and HR both have to be able to change them, and may both try 
at once, the following interlock is used: 

Let there be n competitors for access, numbered L through n. There 
are n CM cells designated B(l) through B(n), n more designated 0(1) 
through C(n), and one CM cell designated K, Initially, all are zero 
except K, which must contain the number of any competitor, not 0. 

(HQ initializes it to 1, its own number, below BRWBA*) To secure 
access, a competitor performs these steps: 

1* Set B(i) non-zero* 

2* If K contains i, go to step (5)* Otherwise it contains k* 

3* Set C(i) zero* If B(k) is non-zero, return to step (2), 

4- Set K to contain i, and return to step (2), 

5* Set C(i) non-zero* If any other G is now non-zero, return to 

step (2)- Otherwise, competitor i has access, and others are locked 
out. To relinquish access, a competitor sets B(i) and C(i) to 
zero* 

FETCH and PUT in HQ and HR use this scheme. Note that IPL and 
IFM do not need to use it, as ilQ assigns buffers to them before 
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calling them, and releases their buffers on their request, made by 
setting bits 48-59 of the first word of the relevant FET to 7777B. 

As there are only two competitors, ”1” does not need to be treated 
quite generally. For convenience (simply because there is a constant 
3 in a direct cell in program HR, but not a constant 2) in IIQ con¬ 
siders its "i" to be 1, while HR’s is 3. Then B(l) is CPhl05B, 

B(3) is CP+106B, C(l) is CIH-107B, C(3) is CPhllOB, and K is CP+lllB. 

Only bits 48-39 of each cell are significant. 

Note that at the beginning of step (2) above, FETCH always calls subroutine 
PAUSE, as HQ might be locked out by HR at a time when HR is re¬ 
questing a monitor function. 

When FETCH has secured access, it copies CP+77B into the five cells 
beginning at KEY , and CP+IOOB through CPi’L04B into the 25 cells 
beginning at BUFAS, and exits with the address CP+105B in the A - 
register; which content is often used to save one or two instructions 
in reading another control point word immediately after calling FETCH. 


Entry Information 
None. 


Exit Information 

The address CPhlOSB in the A-register, and KEY and BUFAS areas set up. 


Subroutines Called 


PAUSE. 


Registers Destroyed 

D.Zl through D.Z5 directly, D.TO through D.T4 by PAUSE. 


PUT 

This releases the interlock made by the FETCH subroutine, and returns 
the KEY and BUFAS areas to CPh77B through CPi-104B, after setting KEY+2 
equal to KEY+3 unless KEY+2 already contains a number equal to or 
greater than that in KEY+3. This maintains bits 24-35 of CPh77B as 
a register of the largest value bits 12-23 have reached since the 
last time the possibility of shrinking field length was looked at. 
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To release the interlock described above in subroutine FETCH, competitor 
number i, currently having access, sets B(i) and C(i) to zero; i.e. 

IIQ zeros bits 48-59 of CP+105B and bits 48-59 of CP+107B. 


Entry and Exit Information 
None* 


Subroutines Called / Registers Destroyed 
None. 


PAUSE 


This is merely a more convenient way of calling the PP resident subroutine 
R.PAUSE. First we call it, then reset D.RA, whose new value is in the 
A-register on return, and then check the control point error flag. We go 
to DROP if it is F.ESPF. If it is zero or anything else, we exit from 
PAUSE. The situation is parallel to that described above at the beginning 
of the IIQ narrative. 


Entry and Exit Information 
None. 


Subroutines Called 


R.PAUSE 


Registers Destroyed 
D.TO through D.T4 


CALLUS 


This calls program IIS to another PP, either to get the total length of the 
overlay library stored in bits 0-11 of SA+17B, or to get the overlays 
stored in the field length and the directory to them stored in RA+lOB 
through RA+17B. First we call subroutine GALL to call US (the choice 
between the above two possibilities depending on whether RlIS+4 contains 0 
or the address of the first word after the last FET.) Then wait one 
millisecond and see if bits 48-59 of CP+76B contain 0. If so, US has not 
finished its task and CALLUS goes back to wait another tnilllsecond. If not, 
IIS is finished; we zero bits 48-59 of CP+76B and exit from CALLUS. 
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Entry Information 

The call to IIS set up on one of the two possible ways, at RllS. 

Exit Information 

Either the length of the overlays in EA+17B, or the overlays and 
their directory properly set up in the field length. 

Subroutines Called 

CALL, PAUSE; R.PROCES by CALL; R.PAUSE by PAUSE, 

Registers Destroyed 
D.TO through D.T4. 


March 1969 


16-21 



SCOPE 


16*1*2 IIR General 


IIR is a PP program, always loaded at lOOOB- It is called only by 
IIQ; IIQ recalls Itself every 2 seconds, and if it finds that HR is 
not already at the control point, it calls IIR* 

As there is not room in the PP memory for the logical entirety of HE, 
which drives up to 19 card readers, punches, and printers at the JANUS 
control point, several parts have been broken off and treated as over¬ 
lays, which are loaded from central memory into the area between 
lOOOB and 2000B, and executed there. For simplicity, these overlays 
are originally stored in central memory by the PP program called IIS; 
but as they have no Eneaning outside the context of IXR, and cannot 
function unless along with it, the overlays are described here under 
the heading IIR although they exist in the library as part of IIS* 

Each overlay begins with a CM word 

VFD 12/a,12/b,12/c,24/0 

where a is the length of the overlay in CM words, not including this 
initial word; b is the address in the HR PP, beginning at which the 
overlay (not including this initial CM word) is to be loaded, and c 
is 0 if the overlay is to be entered as a subroutine, and 1 if not. 
Note that overlays that can be called as subroutines by other over¬ 
lays are loaded as high as possible in the range lOOOB to 2000B, while 
other overlays are loaded at lOOOB. 

HR itself fills the PP memory with program from lOOOB to just before 
a cell multiply named as IMAGE, BUF, BUFAS, and MyFNT (except that 
lOOOB to 1777B, which have to be left free for overlays, initially 
contain nothing but a jump from lOOOB to the preset routine, and BSSZ 
in the rest*)- 160 cells beginning at IMAGE are used as working 
storage for various purposes, and are also occupied initially by the 
preset routine. So if the program is modified, it must not expand 
beyond the point at which IMAGE'M60=7777B. If it does, a warning 
error will be produced by a conditonally-assembled instruction just 
before PRESET* 


Function 

HR does all the work of the JANUS control point (combination of 
READ control point and OUTPUT control point) except: 

1. changing field length (done by IIQ) 

2. picking up type-ins from where DSD has left them, and putting 
B-display messages where DSD will pick them up (done by IIQ) 

3. backspacing print files (done by HU) 

4. assigning output files to film, plot, or hard-copy units 
(done by IIQ) 

5* driving film, plot, or hard-copy units (done by IPL, IBM, etc.) 
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Entry Information 

The input register contains 

VFD 18/0HlIR,3/0,3/c,6/p,6/q,6/r,6/s,L2/w 

where c is the control point nximber, p is the nimber of the highest 
numbered FET for a card reader (they are numbered 1 to p), q is the 
number of the highest-nimbered FET for a card punch (they are numbered 
p+1 to q), r is the number of the highest-numfaers FET for a printer 
(they are numbered q+l to r)) s is the number of the highest numbered 
FET for a film, plot, or hard-copy unit (they are numbered r+1 to s, 
or r=s if there are none), and w is the address of the beginniig of 
buffer number 0. 

Control point +77B contains 

VFD 12/a,12/b,12/c,12/d,12/0 

where a does not concern IIB.; fa is the total number of buffers in 
the current field length; d is the number of buffers now assigned; 
and c is a counter that does not affect IIR, but that IXR must set 
equal to d whenever it increases d and finds d then larger than 
c. (IIQ, every 15 seconds, takes c to be the highest number of buffers 
that have been simultaneously assigned since the period began; having 
perhaps reduced the number of buffers, but not below c+1, IIQ sets 
c=d and begins a new 15-second period). CP+IOOB through CP+104B 
contains 25 bytes of which the first 23 are used as buffer assignment 
registers, containing zero if a buffer is free, and non-zero if 
assigned. CI4-77B through CP+104B must not be altered by IIR unless 
it has secured permission and set the interlock against IIQ by calling 
subroutine FETCH. On FETCH and PUT (which releases the interlock), 
see the practically identical subroutines in the documentation to 
IIQ. 


Exit Information 


Just before dropping its PP, UR zeros CP+76B to inform IIQ that HR 
is no longer active. 


Other Programs Called 

2TJ is called as an overlay and loaded at lOOOB. IIU is called to 
another PP to backspace a print file when this is requested by a type-in. 
The overlays that US has stored in JANUS field length are variously 
called and loaded somewhere between lOOOB and 2000B; but they are 
loaded fay subroutine EXECUTE rather than by any sort of program calls. 
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FET Formats 


Each FET occupies 16 CM words, of which the first 5 have the form of an 
ordinary minimum-length FET with the EP bit set =1 so that a disk parity 
error will not abort JANUS. Whenever HR is working on a file, the firS word 
of its FET is first read into GURFET through CURFET+4 (for convenience in 
looking up cross-references, CURFET+3 and CURFET+4 are addressed as GUEFET3 
and CURFET4.) The FIRST pointer address is copied into subroutine FIRST; the 
difference between the IN and FIRST pointers is stored in byte IN, and the 
difference between the OUT and FIRST pointers is stored in byte OUT. The 
difference between the LIMIT and FIRST pointers is a constant, and can be 
found at LIMIT,TYPE when TYPE contains 0 for punch files, 1 for printer 
files, and 2 for card reader files. 

The 6th, 7th, and 8th words of an FET are similarly read into D.FNT through 
D.EST+4. The cells that contain thh 8th word are referred to, for cross- 
reference convenience, as DESTO, DESTl, DEST2, DEST3, and DEST4. The 6th 
word, for a print or punch file, is entirely zero (reserved for future system 
use.) For a card read file, the first and second bytes of this word are 
referred to simply as D.FNT and D.FNT+1; the 3rd, 4th, and 5th bytes are 
referred to as RCT, CCT, and RTYPE respectively, as they contain the record 
count within the file, the card count within the record, and the current 
record type (binary, BCD, or special.) 

The 7th word of the FET, which is read into D,FST+5 through D.FNT+9, is the 
most complicated. For all kinds of file, D.FNT+8 and D.FNT+9 are referred 
to as CT and CT+1, and contain a 24-bit count of the number of cards read 
or punched, or of lines printed, in the file so far. For a punch file, D.FNI+7 
is referred to as PGT, as it contains a count of the number of cards punched 
so far in the current record. For a read file, this byte is referred to as G7, 
and contains the right 12 bits of the 15-bit time limit on the job card. For a 
print file, this byte is not used (reserved for future system use.) 

The left two bytes of the 7th word of the FET are read into D.FNT+5 and 
D.FNT+6, which are referred to as F5 and F6 for a print or punch file, and 
as G5 and G6 for a read file. These bytes contain a number of one-bit flags, 
referred to as FL.IMAGE, FL.OS, and so on. For instance, if the leftmost bit 
of F5 is a flag called FL.OS, FL.OS is defined as the quantity 4000B, which can 
mask out this bit. A macro called TESTBIT is defined so that TESTBIT FL.OS; 
i.e. TESTBIT 4000B; will be assembled as SHB 6; i.e. the shift needed to bring 
the flag bit, just after the byte is loaded into the A register, to the sign 
bit position. So a test for flag OS could be made with either LDD FS; 

LPC FL.OS; NJN YES; or LDD F5; TESTBIT FL.OS; MJN YES. After TESTBIT, the macro 
RETEST can be used to test another flag bit in the same byte. Suppose the bit 
next right of flag OS is flag PROS; FL.PRDS is defined as 2000B. Then 
RETEST FL.OS,PL.PROS will assemble as SUN 1, i.e. the shift needed to rotate 
the A register from the position in which flag OS is in the sigh position to 
that In which flag PROS is in the sign position. RETEST FL.PROS,FL,OS would 
assemble as the opposite shift, SHN 17. So the sequence: 
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LDD F5 

TESTBIT FL.OS 

MJN AAA 

RETEST FL.OSjFL.PROS 

MJN BBB 

will branch to AAA if flag OS is 1, or to BBB if OS is 0 but flag PROS 
is !• 

Here is a list of these flags (bit numbers are for the CM word as a whole). 

In G5: 

Bit 59, FL.WTFNT, is 1 when a read file is ready to be terminated but a 
pre-OUTPUT file has to be written containing error messages generated by 
card reading, and an FNT slot has to be ctxae free before this file can be 
set up and written, after which we shall complete the termination of the 
job file. 

In G6: 

Bit 47, FL.EOJ, is 1 when a read file has ended with a 6-7-8-9 card not 
preceded by a 7-8-9 card; the reading of a 7-8-9 card must be simulated, 
but the next time we come around to this file FL.EOJ will tell us to simulate 
the reading of a 6-7-8-9 card rather than physically reading another card. 

Bit 46, FL.PREAB, is set then a fatal error is found in an input file, 
i.e. a binary card with a bad checksum or with an improper format. Once 
this Is set, we continue reading and checking the rest of the cards in the 
file, but do not bother writing them to disk; and at the end of the file 
we set a flag in its FNT entry that will tell ISA to abort the job as soon 
as it comes to a control point. 

Bit 45, FL.JOBER, is set to 1 if 2TJ indicates that the job card contains 
an error. This has the same effect as FL.PREAB, except that we set a 
different flag for IRA. 

bit 39, FL.IMAGE, is set to I when the image of a card just physically 
read is stored in the 16 CM words following the buffer, and reset to 0 
when this card image is logically read and decoded. 

In F5: , r. i. u 

Bit 59, FL.OS, is set to 1 whenever we have just sent to the punch the 

image of a card that should be offset. 

Bit 58, FL.PROS, is set to 1 whenever we have just set up the image of 
a card that should be offset. 

Bit 59, FL.su, is set to 1 when we have printed the message indicating 
that the rest of a print file will be format-suppressed. 

Bit 58, FL.PRSU, is set to I when we recognize a type-in message calling 
for format suppression of a print file. Whenever it becomes possible there¬ 
after to print the suppress message, we will do so and promote FL.PRSU 

to FL. SU. i. 1 , • 

Bit 57, FL.BCDO, is set to 1 when we have just sent to the punch the image 

of a BCD card. 
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Bit 56, PL.BCDN, Is set to 1 whenever we have just set up the image of a 
BCD card. 

Bit 57, FL.FMES, is set to I whenever we come to the end of a print file, 
as a signal that the next time printing is possible, the final message 
should be printed before terminating the file. 

Bit 56, FL.CMEA, is set to 1 whenever we discover an unprintable character 
in a line just printed out of a file with a 48-character or 288-character 
chain, on a 512 printer. The next line printed will show which characters 
were unprintable, and at that time FL.CMEA will be promoted to FL.CMEB. 

Bit 55, FL.CMEB, is set to 1 as described in the preceding paragraph, and 
causes the message UNPRINTABLE CHARACTERS IN PRECEDING LINE to be printed. 

Bit 54, FL.8LL, is set to 1 when, in printing a file with a 512 printer, 
a format character causes 8-line spacing to be selected. This flag has 
to be set because a reset function may have to be given to the prirt er for 
unrelated reasons, and this function will have the effect of restoring 
6-line spacing. FL.8LL will then cause us to re-select 8-line spacing before 
going on. The flag will be reset when a format character calls for 6-line 
spacing. 

In F6: 

Bit 41, FL.512, is always 1 if the file is being printed on a 512 printer. 

Bit 40, FL.AT3T0, is set to 1 when a format control character in a print 
file calls for automatic skipping from the bottom of each page to the top 
of the next. 

Bit 39, FL.IMAGE, is set to 1 in a punch file, when we have set up a card 
image for punching, but have not yet sent it to the punch. 

Bit 39, FL.PAGE, is set to 1 in a printer file (a) when we set up the final 
message at the end of a file, (b) when we switch the file to a different 
printer. When the line (the next line of the file in case b) comes to be 
printed, this flag forces a page skip beforehand. It is necessary because 
in case (a) the suppress flag FL.SU may be set, so that putting an appro¬ 
priate format character in the line would have no effect} while in case 
(b) we want printing to begin a new page on the new printer, but do not 
want to disturb the format character In the next line. 

Bit 38, FL.LONG, is set to 1 when we have terminated a print line image 
or a BCD card image not because we found a CM word chat ended in a zero 
byte, but because we filled a card image (80 characters) or the print line 
storage space (310 characters) without finding such a terminator. The 
flag tells us, for punching, that if the first CM word for the next card 
image is zero, it should be skipped over, as it must have been the terminator 
for the preceding card rather than a word of information. For printing, 
the flag tells us that the first character of the next line, which is really 
just a continuation of this line, should not be used as a format character. 
Bit 37, FL.SWCH, is set to I for a print or punch file whenever a type-in 
requesting a switch to a different unit is recognized. The switch may not 
be possible for some time. 

Bit 36, FL.FLIP, is alternated between 0 and 1 to make us store successive 
punch card images in two areas alternately. This allows us to keep the 
images of the last card punched and its predecessor. A punch compare error 
is indicated by the hardware only for the predecessor, so that we have to 
re-punch both Images. 

Bit 36, FL.LINE, is set to 1 when we have begun setting up a print line 
image, but have not yet sent it to the printer. 
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Bits 48-53 of the 7th word of the FET for a print or punch file, which 
are found in P5, contain the disposition code copied from the FNT entry. 

For a print file, this can be 41B (501 printer), 42B (512 printer with 
64 characters), 40B (either of the preceding), 43B (512 printer with 
48 characters - never occurs in reality), or 44B (512 printer with 228 
characters - never occurs in reality). For a punch file It can be lOB, 

for BCD, 12B, for normal binary, or 14B, for SO-column binary. FL.BIN 

and FL.PAB are equated to 2 and 4 respectively, to get cross-references 
when such a disposition code is tested (or in one case set). 

Some of the bits of the FET status of the file, copied from the first word 
of the FET into CUEFET4, are given FL symbols to provide cross-references: 
Bit 0, FL.IDLE, is 1 when the file is not busy. 

Bit 3, FL.EOF, is 1 when the file is at end-of-file (of course it is also 
1, when the status is e.g. 13B). 

Bit 4, FL.EOR, is I when the file is at end-of-record or end-of-file. 

Bit 9, FL.EOI, is 1 when the file is at end-of-information. 

Bit 2, FL.WRITE, is 1 when the file Is being written. This is true only 
for a card read file being written on disk, and so its natural meaning 
is not interesting and is never referenced. But is is used as a fake in 
two ways: (a) for a print file to be backspaced, IIU is called to another 
PP. It signals completion of its task by setting the FET status to 17B. 

(b) In a punch file, every end-of-file card is to be followed by a blank 
card. So after setting up the end-of-file card image the FET status is set 
to 0037B or 1037B (depending on whether it was previously 0033B or 1033B) 
and this indicates the next time the same file is worked on, that a blank 
card is to be punched before proceeding to the next file or to termination. 
Bits 42-47 of the 7th word of the FET for a print or punch file, which 
is found in F6, contain the repeat count. This is normally 0; it is in¬ 
creased by I whenever a REP type-in for the file is recognized. When 
the printing or punching of the file has been completed, if the repeat count 
is not zero, it is reduced by 1, the file is rewound, and the process starts 
over. But if it is zero, the file is terminated. 

In a card read file, bits 48 to 58 (which are found in G5) contain a count 
of the number of CM words of error messages that have accumulated during 
the reading of cards. Bits 24-38 contain the time limit from the job card. 

Part of the 7th word of an FET remains unused: 

For a card read file, bits 46-44. 

For a punch file, bits 40-41, 54-55. 

For a print file, bits 24^35. 

The 9th through 14th words of an FET provide storage for 60 characters 
of display information. This begins with CR, CP, or LP, indicating the 
device type, followed by its EST ordinal as two octal digits. The Sth 
and 6th characters are blank. The Sth to I3th characters give the job name 
pertaining to the file, and the 14th character is blank (OOB). If the 15th 
and 16th characters are OOOOB, only the preceding information is displayed, 
on the J-display. If not, the 15th through 60th characters contain an 
operator message that will also appear on the J-display, and the whole 
line will also appear on the B-display provided that one of the four lines 
is available. 
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The 15th word of an PET contains the EST ordinal of the equipment, in binary, 
in bits 48-59, and normally contains 0 in bits 36-47. When IIQ recognizes 
a type-in for the file, identified by the EST ordinal, it inserts a number 
indicating the kind of type-in, in bits 36-47. The rest of this word is 
not used except that for a backspace type-in (BS) the number of pages and 
the page format character are inserted by IIQ in bits 24-35. 

The 16th word of an PET is copied into cell LSTAT and cells DEEP through 
DEEP+3 when a cycle of work is started on the file, and those cells are 
copied back to the 16th word of the FET when the cycle is concluded, LSTAT 
contains a code number indicating the state of the hardware, so that when 
it changes from good to bad, or to a different kind of bad, the appropriate 
messages can be given once for the new bad status. When it changes from 
bad to good, the message if any is cleared, on the J and B displays. 


Symbo 1 s 

Here is a list of the symbols defined at the beginning of the assembly 
listing, apart from those already described in connection with the format 
of the FET: 

ZERBUF, IM, and IRS are D.EST+5, D.BA+5, and D.BA+6, locations otherwise 
unused (except when 2TS is called), into which D.FPIRB+4, D.PPIRB+S, and 
D.PPIRB+2 are copied at initialization, leaving D.PPIRB through D-PPIRB+4 
free to be used as next explained, 

CURFET = D.PPIRB, and CURFET through CURFET+4 (CURFET+3 and CURFET+4 are 
called CURFET3 and GURFET4 for cross-reference convenience) hold the first 
word of the FET of the current file. 

IN = D. FI RET and OUT ^ D.FIRST+l, The 8 cells D. FIRST through D.LIMIT+1 
are not, in general, used normally* Instead , a subroutine called FIRST 
is provided and constantly updated so that 

RJM FIRST ^ LDCA D. FIRST 

RJM FIRST;ADD IN ^ LDCA D.IN 

RJM FIRST;ADD OUT = LDCA D.OUT 

RJM FIRST;ADD LIMIT,TYPE = LDCA D.LIMIT 

Since a buffer is never more than 2000B word Long, the ^^net” IN and OUT 
pointers can be held in single bytes, which simplifies some pointer arithmetic- 
It also frees the six bytes D.IN through D.LIMlT+1 for use as next explained. 

LSTAT, DEEP, DEEPl, DEEP2, and DEEP3 are names for D.IN through D.LIMIT* 

LSTAT contains one of the statuses GOOD, UNREADY, REJFNC, XMSNPE, and 
WROGER, for the explanation of which see a few paragraphs below. They 
indicate approximately the status of the device for the current file. 

DEEP through DEEP3 are used for saving and restoring the return addresses 
of subroutines that call LPC, the file-switching subroutine that has the 
effect of an interrupt. 
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GP30 through GF151 are equated to 30B through 15IB, and are used to provide 
cross-references whenever words in the control point area are referenced- 

whenever control point +77B is referenced by the program, symbol GP77 
will appear in the assembly listing# TR, FV and SX name the three cells 
after D*PPONE, in which constants 3, 5, and 6 are maintained. 

WC names a working storage location in which word counts are held. PS, PSl, 
PS2, FETAD, and TYPE name the five cells D.BA. through D.BA-f4. PS contains 
the number of the FET of the file currently being worked on, and FETAD contains 
16 times this number, which gives the address of the start of the FET. TYPE 
contains 0 if a punch file is being worked on, 1 if a print file, and 2 if a 
card read file. PSl and PS2 are only occasionally used. 16789, 1789, and 
179, equal to 17B, 7, and 5 respectively, are used to provide references when 
dealing with 6-7-8-9, 7-S-9, or 7-9 punches in column 1 of a binary card image. 
NULLCH, equal to 0, is used as the channel number in every instruction in¬ 
volving a channel. 

CMWORD and PPWORD, equal to 60 and 12, i.e. the number of bits in the two kind 
of words, are found only in the combination CMWORD/PPWORD, i.e* 5, used when¬ 
ever the significance of 5 in the program is that 5 bytes make a CM word. 

INITA and INITB, equal to 3 and 7, are initial FET statuses that are found or 
inserted in CURFET4. INITB, if it occurs for a type of file, represents an 
initial phase just after INITA and before the real reading or writing begins. 
BCDCDLG and BINGDLG, equal to 8 and 16, are used whenever an Instruction uses 
a constant having something to do with the number of CM words in a BGD or 
binary (respectively) card image. 

HS.MEM, HS.NFEED, HS.XFEED, HS.TEAY, HS-GHPER, HS.BUSY and HS.READY are used 
as marks for testing the 12 -bit status byte read from a card reader, punch or 
printer* HS.BUSY and HS.READY apply to all three device types 5 HS.CblPER (for 
compare error) to readers and punches; HS.TRAY refers to empty tray status in 
card readers; HS.XFEED refers to fail-to-feed status in card readers; and 
HS.NFEED refers to fall-to-feed status in card punches- S 6 .KEJ, S 6 -IREJ, and 
S 6 ,XPE are used as masks for testing the 12-bit status byte read from a 6681. 
S 6 .REJ refers to reject (either internal or external) status; S 6 .IREJ to in¬ 
ternal reject status; and S 6 .XPE to 6681 transmission parity error status* 
HS*MEM refers only to 512 printers. 

GOOD, UNREADY, REJFNC, XMSNPE, and WROGER are names given to the numbers 1 
through 5 when stored in cell LSTAT and transferred between the cell and bits 
48-59 of the 16th word of an FET* XMSNPE means that the last time a function 
was issued to the unit, a 6681 transmission parity error resulted* REJFNC 
means that the last time a function was issued to the unit, it was rejected* 
UNREADY means that the last time the unit status was found to be not busy, it 
was not ready, but not for the reason of XMSNPE or REJFNC. GOOD means that 
the last time the status was found to be not busy, it was ready* Status 
WROGER has nothing to do with hardware, but is stored in LSTAT for a print 
file from which a line is now being displayed on the console scopes. The line 
will cease to be displayed, and printing will resume, after an OK type-in 
by the operator* 
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B.MOVBF through B.LPEOR are symbols for the numbers identifying the various over¬ 
lays. Only numbers 1 through 39 are allowed. The directory to the corresponding 
overlays is found at location INDEX, at the beginning of program IIS, just before 
the listing of the first overlay. 

MS.CFRA through MS.PRES are message numbers, used in calls to subroutine MAYMES. 
Actually the number of a message can range from 1 to 37B; if it is a B-display 
message, this is the number used in the calling sequence, while if it is a system 
dayfile message, 40B is added to the number to give the constant used in calling 
sequence. The corresponding messages are found in overlay B.MSG, and the directory 
to them is at MSDIC, at the end of the same overlay, in ascending order of message 
number modulo 40B. 

RS.MOD through RS.END are message numbers, used in calls to subroutines UMES, which 
adds the corresponding message to the pre-OUTPUT file corresponding to the card 
read file now being processed. The messages are found in overlay B.IMES, and the 
directory to them is at UMES in that overlay, in ascending order of message number. 

PG.DIS and PC.SKIP name the numbers to be added to the count of lines printed from 
a file when, respectively, a PM-line in the file causes printing to be suspended 
while the line is displayed, until the operator types OK; and when a line format 
character causes a considerable paper movement. The values now assigned are 1000 
and 5. 1000 is the number of lines a printer should print in a minute, so that this 
value means that a PM-line is charged to the user on the assumption that the printer 
will be held up for a minute, while the operator does whatever the message calls 
for. PC.SKIP, the equivalent of 5 lines, is charged to the print file for functions 
3 and 4 (advance to last line and page eject), i2B through 6B (select one of channels 
2 through 6 for post print spacing), and 22B through 26B (select one of channels 
2 through 6 for preprint spacing). These charges can be altered or eliminated by 
varying the definitions of these two symbols. 

AL.CR, AL.CP, and AL.LP refer to card readers, punches, and printers respectively. 
After a card image has been read from a card reader, the next card image cannot 
be read until at least 50 milliseconds have passed. So immediately after reading 
a card image, IIS adds AL.CR, which is equated to 33, to the current value of the 
millisecond clock, and stores the result as an alarm for this file. Then nothing 
whatever is to be done about this file until the millisecond clock has passed the 
alarm value. This avoids wasting the time of IIR and the monitor on the file until 
17 msec, before the earliest time at which the next card image could be read; this 
17 milliseconds is plenty of time for housekeeping before that reading. In fact 
it may be too much, and it might be advantageous to increase AL.CR to some number 
closer to 50, say 40 or 45. Correspondingly, the minimum time between print line 
transmissions Is 60 msec., and AL.LP is set accordingly to 40, though 50 might be 
better. The minimum time between punched card image transmission is 240 msec., 
and AL.CP is set accordingly to 200, though 220 or 230 might be better. 

FEXO through FET15 are equated to integers 0 through 15, and are used in the 
program so that whenever the nth+1 word of an FET is read from or written to 
central memory, symbol PETn occurs in the listing and the cross-reference table. 
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BUFLG is the number of central memory words allotted to each buffer in 
the field length. This must be 400B or some higher integral power of 2. 

It must have the same value in programs HR and IIQ. Note that the I/O 
buffer is actually shorter than this value by 20B for a card read file, 
or 40B for a print or punch file. The extra space, which follows the I/O 
buffer, is used to store the image of the last card read, or the images 
of the last two cards punched, or the image of the next line to be printed. 
LOGBUF is defined so as to be the logarithm to base 2 of BUFLG; it is used 
in shift instructions that have the effect of dividing or multiplying by 
BUFLG, in calculating the address of a buffer from its number or vice-versa. 

If k is the number in cell ZERBUF, buffer number n begins at RA+k+n*2**L0GBUF. 


Narrative 

HR is loaded at lOOOB, and jumps from there to PRESET in an area that will 
afterwards be overlaid by print line and card images. lOOOB to 1777B is 
effectively vacant, and is used for loading overlays from IIS, or for 
calling 2TJ through R.OVL. The stable part of HR begins at DROP, which 
is used to drop the PP, first zeroing bits 48-59 of control point +76B 
in order to inform IIQ that HR is no longer active at the control point. 

1. At PRESET, constants D.PPONE, TR, FV and SX are set. Then HR reads the 
input register, copies its last three bytes to 1R2, 1R3 and ZERBUF, sets 
the CP address, inserts the CP number into the HU call GALLHU, reads the 
CP status word, sets D.RA and D.FL, and checks the error flag. If non-zero, 
it goes to DROP (see above); otherwise it reads the seconds clock and sets 
FORALARM and FNTALARM as different from it as possible, so that B.FORAG 

and B.FNT will be done the first time subroutine LPC is called. (They are 
the overlays that look for read and output files respectively.) Then it 
goes to LPCK, in subroutine LPC. Note that hereafter, D.PPIRB through 
D.PPlRB+4 are used as CURFET through CURFET4. 

2. Most of UR, beginning at START, can be considered as one main loop, in 
which the program periodically returns to START. In fact, it can be con¬ 
sidered as one separate loop for every active file. At many points in the 
loop, usually when for hardware reasons nothing can be done for the moment, 
subroutine LPC is called. This switches the program, if possible, over 

to the main loop for another file. The effect is almost as if each active 
file had its own PP looking after it. But as these imaginary PP*s have 
to share a certain amount of variable memory, a lot of safeguarding has 
to be done. Most of it is done by subroutine LPC. But no overlay can 
call LPC, and no subroutine can call LPC without special precautions. No 
overlay, because by the time LPC switched back to the file that overlay 
had been concerned with, most likely some quite different overlay would 
have been loaded into lOOOB-1777B. (LPC could have rigged to note what 
overlay(s) were in 1000B-1777B whenever attention was taken from one file, 
and to restore the same ones whenever attention next returned to that file. 
But as LPC is probably called several times for each line printed by any 
one printer, this would cause a tremendous amount of overlay - reloading 
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if several printers were busy- To keep LPC as quick as possible, the 
situation was left simple-) LPC cannot, in general, be called in the middle 
of a subroutine because the return address may have been changed in connec¬ 
tion with another file before attention returns to the former file. How¬ 
ever, subroutines READY and FILWT do call LPC; just before the call they 
save their return address, in effect, in the 16th word of the FET, and just 
after the return from LPC they restore it from the same place- In this they 
are imitating LPC itself. The principle is that every subroutine, in¬ 
cluding LPC, during which LIR may switch from one file to another by altering 
PS, must have a separate return-address storage for every file. 

3. If one imagines there being a different PP for each file HR is currently 
working on, each PP would contain the main loop of HR, without of course 
the calls to LPC, and without LPC itself- Also missing would be the over¬ 
lays B-FNT and B-FOKAG, which are logically part of LPC, and are executed 
at longer Intervals to find new read or output files. 

4# It Is most practical to begin the narrative of the main loop by describing 
LPC, B-FNT, and B.FOEAG, Observe that after the initial set-up at PRESET, 
the program goes not directly to START but to LPCK, in order to execute 
LPC before the first trip to START. 


Subroutine LPC 

5- This can be entered In two ways, either by RJM LPC or by LJM LPCK. If 

by RJM LPC, a file is being dealt with and must be put away before switching 
to another one. First, its alarm may or may not be set to the current value 
of the millisecond clock. Explanation of this will be left until the use 
of the alarm is described below- Next, copy the return address at LPC into 
DEST2; then copy D.FNT through DEST4 into the 6th# 7th, and 8th words of 
the FET- Then copy LSTAT and DEEP through DEEP+3 into the 16th word of 
the FET* When an exit is made from LPC, at LPCE, LPC calls subroutine 
PRE to fetch back the 6th, 7th, 8th, and 16th words of the FET that PS 
then points to, and then take the relevant return address out of BEST2 
and branch to it. 

6 - This brings us to LPCK, to which we come directly without the above saving 
when the direct entry UM LPCK is taken rather than RJM LPC. The LPCK 
entry is taken at five points in the program; 

1. Immediately after PRESET, when HR has just been loaded and obviously 
there is no current file. 

2- In overlay B.TER, when the current print or punch file has just been 
terminated; nothing is to be saved in its former FET area, which has just 
been zeroed, and its alarm is meaningless now- 

3- In overlay B-FINIS, when the current print or punch file has been 
abandoned but left rewound in the output stack- Same as 2. above. 

4. In overlay B.RTER, when a card read file has just been coniplete; 
analogous to 2- above- 
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5. In overlay B.JOB, when the job card of a Card read file has just been 
processed^ What the program between LPC and LPCK would have stored in the 
FET has been already stored by and as this overlay can only be 

called immediately after the card next after the job card has been read, 
the alarm will already have been set ahead by subroutine RCD, 

7, At LPCK, the seconds clocks is checked to see if it indicates a different 
4-second interval from FNTALARM- If not, go on to LPCF, but if so, call 
overlay B*FNT, from which we shall return to LPCL, read the clock again, 
and go on to LPGF- 

8 - As LPC is called many times per second, this means overlay B-FJJT will be 
called about once every four seconds, to look for print and punch files* 

This looks perhaps insufficiently frequent- However, note that FNTALABM 
is set to a value 2048 seconds before or after the seconds clock when 
HR is first loaded so that will be called on the first trip through 

LPC: and set 512 seconds ahead (in the overlay B-TER) whenever an output 
file is terminated- So the only time the 4*second interval can cause a 
delay of up to 4 seconds is when at least one printer or punch has been 
idle for a time, and a new file is put in the output stack. But if such 
idleness occurs when the system Is in full swing, the system is apparently 
not printer-bound (or punch-bound as the case may be) and the overall 
through-put of the system is not reduced by the 4-second delay* 

9* Whether or not overlay B-FNT was called, we come to LPCF to see whether the 

seconds clock indicates a different 4-second period from FORALARM- If 
not, we go to LPCG, but if so, call overlay B-FORAG, from which we shall 
return to LPCH, read the clock again, and go on to LPCG- This means that 
B.FORAG will be called about every 4 seconds, as well as the first time 

LPC is called* B-FORAG need not be called oftener as it is not used for 

initialising a file that follows its predecessor in the same card reader 
without a halt. 

10. At LPCG we begin to decide which file HR should turn its attention to now* 
This depends on the 19 cells at ALARM+1 through ALARlfM9, one for every 
possible FET except those for film, plot, and hard-copy files, which do 
not concern HR. These alarms are always kept by HR in its own PP raeaiory- 
In turn, each one that corresponds to an active FET is compared with the 
current value of the millisecond clock, and in principle, the alarm that 
exceeds the clock by the greatest number indicates the FET to be chosen. 

In case of a tie, the lowest-numbered FET Is preferred, but as will be seen, 
this does not cause a hang-up on that FET. 

11. A difficulty arises here because the clock and the alarms have only 12 
bits, and count so that 4095+l^K). So If clock minus alarm gives a negative 
answer, 4096 is added to produce a positive answer, the number of milli¬ 
seconds by which the clock exceeds the alarm; i*e- the number of msec, 
since the alarm went off if it has gone off. Now whenever an alarm is set 
it is set to the current time in msec., modulo 4096, plus some number bet¬ 
ween 0 and 480. If an alarm appears to be x msec, behind the clock, either 
it is really so, or it is 4096-x msec, ahead of the clock. (Neglecting 


March 1969 


16-33 



SCOPE 


the possibility that the alarm can be x plus a multiple of 4096 msec, 
behind the clock.) If x is less than 3584, then either the clock is 
0-3583 msec, ahead of the alarm, or the alarm is 512-4096 msec, ahead 
of the clock. The latter is impossible, as the alarm is never set so far 
ahead of the clock; so the former is assumed, i.e. that the alarm has 
indeed struck. If x is greater than 3583, then either the clock is 
3584-4095 msec, ahead of the alarm, or the alarm is 1-512 msec, ahead of 
the clock. The latter could be true and the former is very unlikely (it 
is unlikely that the file has gone without attention for nearly 4 seconds) 
so it is assumed that the latter is true and that the alarm has not yet 
struck. 

12. Now consider again the beginning of subroutine LPC. If we enter normally, 
by EJM LPC, we there set the alarm for the current file equal to the current 
value of the millisecond clock unless the alarm appears to be less than 

512 msec, ahead of the clock, In which case it is assumed it was recently 
set ahead and has not yet struck. (An alarm is set AL.CP=200msec. ahead 
of the clock on punching a card, AL.LP=40 msec, ahead of the clock on printing 
a line, and AL.CR=33 msec, ahead of the clock on reading a card. Exceptionally, 
the alarm is set 480 msec, ahead while waiting for program IIU in another 
PP to complete the backspacing of a file, as this usually takes several 
seconds, and there is no point in thinking about it more than twice a second.) 
Each time LPC is entered, we set the alarm for the file that has just been 
current equal to the clock unless it appears to be waiting for a fixed 
interval after reading, punching, or printing. This makes the alarm for 
that file appear less urgent. Hence if two files have equal alarms, the 
one with the lower-numbered PET will get attention from LPC first, but its 
alarm will thereby be set forward, i.e. it will be come less urgent, and 
on the next entry to LPC, the other of the two files will be attended to. 

If this were not done, then when the file in the lower-numbered FET was 
suffering an indefinite mechanical delay, the other of the two files would 
be indefinitely delayed with no real reason. 

13. As LPC is called several times for every card read or punched, and every 
line printed, it is very unlikely that an alarm has to wait more than 500 
msec, before being looked at. So the difficulty caused by the circularity 
of the clock is hardly a real one. 

14. Beginning at LPCG, all relevant alarms are checked. From bits 18-23 of 
the input register the number of the highest-numbered printer FET is ob¬ 
tained; then FET's numbered I through this number include all the reader, 
punch, and printer FET’s. Then look in succession at PSTAK+1 through 
PSTAK+n. For each cell in this range that is zero, the corresponding 
FET is not active, and there is no need to look at its alarm. For each 
cell that is non-zero, 1 is added to D.Z5, merely to show that there is 

at least one active FET; and then the corresponding alarm is compared with 
the millisecond clock. If the alarm appears to have struck, as explained 
above, the apparent time since it struck is compared with D.Z6. D.Z6 is 
initially zero, and thereafter we put into it the greatest-so-far value 
of clock minus alarm. Every time a new value is put in D.Z6, the corres¬ 
ponding FET number goes into D.Z7, which was also Initialized as zero. 
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15* After looking at all the active alarms, we check D*Z5; if it is still 0, 
there are no active files, and we go to LPCO. There we pause, and if there 
is no error flag go to DROP: HR will be recalled by IIQ within 2 seconds 
at most. If there is an error flag, we go to DROPQ to ask monitor to set 

the error flag to F,ERPP; this will cause IIQ to give up and JANUS to drop. 

Either the error flag was already F.ERRP, or it was something else and HR 
bad to finish its current files, and HQ had to keep reappearing to service 
HR* Now that HR Is idle, everything can drop. 

If D,Z5 is non-zero but D.Z7 is zero, all the active files appear to be 

waiting for their alarms to strike, so we wait one msec* and then return to 

LPCK to check them again. If D,Z7 is non-zero, it holds the number of the 
FET that appears to have been waiting longest since its alarm struck. At 
LPCD, this number is put in PS, 16 times it is put in FETAD as the address 
of the first word of the FET,and PRE is called to prepare to look at this file, 

16- As this is the only time we call subroutine PRE, it is described now. Bits 6-11 
of IR2 contain the number of the highest-numbered card reader FET, bits 0-5 
do the same for punches, and bits 6-11 of IRS do the same for printers. So by 
comparing PS with these values we find which type of device, and set TYPE to 
0 for punch, 1 for printer, or 2 for reader- TYPE, like PS, is set only in 
subroutine LPC. Overlays B.FNT and B.FORAG also set them for their own purposes, 
but they are logically inside LPC, 

17. At PREA, we read the first word of the FET into GURFET through CURFET4, and 
read the FIRST, IN and OUT pointers. These three pointers enable us to set 
FIRSTA so that subroutine FIRST becomes equivalent to LDCA D.FIRST, and to set 
IN and OUT to the differences between the FIRST and the IN and OUT, respec¬ 
tively, pointers. The sixth through eighth words are copied into the 15 bytes 
between D-fNT and DEST4; and the 16th word into LSTAT through DEEP3. This is 
the converse of what was done on entering LPC. But on the entry, neither the 
first word nor the buffer pointers were copied back into the FET; as changes 
to them are always copied immediately to the FET, for the information of 
stack processor. Also now, without any analogy to the entry procedure, we 
copy the 15th word of the FET into D.Z5 through D.Tl (see PREA.) We shall 
check this word for an operator type-in if this is a print or punch file, 

as the unit might be hung mechanically and preventing HR from reaching, for 
this file, START, where type-ins are normally handled* 

18. Now if TYPE contains 2, for a card reader file, we exit from PRE back to LPGE. 
Otherwise, at PREB, we check D.Z5, which contains hits 36-47 of the 15th word 
of the FET. If it contains 4 or 5, indicating a type-in of SW (try to switch 
the file to a different unit of the same type) or REW (abandon work on the file, 
rewind it, and return it to control point 0 for a later try; then off the punch 
or printer in the EST) we (for 5) go immediately to FINIS to obey the REW, 

or (for 4) set FL.SWGH to 1, then zero bits 36-47 of the 15th word of the FET, 
indicating acceptance of the type-in; then exit from PRE to LPGE. If D.Z6 
contains anything else, merely exit to LECE, FL-SWCH, if set, will cause 
subroutine SV to switch equipment if possible, the next time it is called 
from subroutine RES or subroutine READY. 
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19. On returning from PRE to LPGEj a branch is niade to the return address 

taken from DEST2, This is the converse of what was done with the return 
address on entering LPCj unless PS contained 0. 

Overlay B.FNT 

20* This part of the program looks for files to be printed and punched, and 
does the necessary initialization for printing and punching them- On 
entering it, FNTALARM is set equal to the current value of the seconds 
clock, so that the overlay will not be called again until the clock has 
moved into a different 4-second period, or FMTALAKM has been set 2048 
seconds away from the clock because HR is freshly loaded or set 512 seconds 
ahead of the clock because a punch or print file has Just been terminated- 

21- Now from IR2 and IR3 we get the number of the first punch FET, -1, and 
the number of the last printer FET, and call subroutine SRGHFET to see 
if any punch or printer FET is free* If not, the return is with a negative 
number in the A register and we exit to LPCL, as we cannot possibly start 
a new print or punch file- Otherwise, we scan the EST and zero AVPGHH-1 
if any punch is on and unassigned, zero AV50H-1 if any 501 printer (LP) 
is on and unassigned, and zero AV512+1 if any 512 printer (LQ) is on and 
unassigned- Then, if all three cells have remained ^ 1, we exit to LPCL 
as there is no printer or punch available for a new file- 

22. If there is at least one FET and one unit free, we request the FNT pseudo- 

channel, and at FNT2 scan the FNT for files that are not locked out, are 
not assigned to a control point, and not associated with non-allocatable 
equipment, are type output or local, are not EXPORT/IMPORT or RESPOND, 
and have a disposition code between lOB and 17B (punch) or 40B and 47E 
(print)- Each time we find such an FNT entry, we set TYPE, at CFTl, to 

0 for a punch file or to 1, 2, or 3 for a file with disposition code 
40B (501 or 512 printer), 41B (501 printer) or 42B (512 printer). We are 
looking for the file with the highest priority in each of these classes, 
so now we compare the priority of the file with FNTPR1,TYFE; if the new 
file’s priority is not greater, we merely go to FNT3 to continue the scan- 
If it is greater, it is stored in FNTPRI,TYPE| the address of the FNT 

entry is stored in FNTAD,TYPE; and the disposition code is stored in 

FNTDIS,TYP£* 

23. When the whole FNT has been scanned, we arrive at FNT3B. Using D-Zl as 
a counter, we scan FNTAD through FNTAD+S, representing the four classes 
of wanted file. If a cell contains 0, there was no file of that class; 
otherwise it points to the FNT entry for the highest-priority file of the 
class- We secure whatever files are pointed to by putting the JANUS control 
point number in their FNT entries; then we can drop the FNT pseudo-channel. 

24- At FNT3E we see if there was apparently a punch available; if not, pass 
on to FNTPR. If yes, call subroutine SRCHFET to look for a free punch 
FET and put its number in PS. If the return from SRGHFET Is with the A 
register negative, there is no free punch FET, and we pass to FNTPR. 
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Finally, we pass to FNTPR if ERTAD contains 0, showing that no new punch- 
disposition file was found. Otherwise, with the FET number in PS, 0 in 
TYPE to point to FHTAD+O and FNTDIS+0, and to indicate a punch rather than a 
print file, and with "CP" in the A register to specify the needed type of 
equipment, call subroutine FSET. 

23> This is actually the only place FSET is called, it saves the equipment type 
at APFlO+l and then requests the equipment. If not granted, we return to 
FNTPR. If granted, save the EST ordinal at PSTAK,PS. Then set D.LIMIT to 
contain 40B, indicating that the last 32 words of the nominal buffer area 
are to be saved for card or print line images, and call overlay subroutine 
B.SETFT. (Note that D.LIMIT is normally used as DEEPS, part of the 16th 
word of the FET. But at the moment we are not processing any file in the 
ordinary way, so the byte can be used freely.) B.SETFT, if it finds no 
buffer available, requests one from IIQ and exits with the A register negative, 
whereupon we drop the printer or punch, zero PSTAK,PS, and go to APF7G 
(see section 39 below.) Otherwise, when B.SETFT returns, a buffer has been 
claimed for this file, the FET pointers have been set up, and subroutine 
FIRST and pointer bytes IN and OUT have been set. 

26. Then we go to APF9, read the EST entry into DESTO through DEST4, from which 

it will be copied into the 8th word of the FET, and alter its 3rd byte (DEST2) 
from the 3rd and 4th channel numbers (if any) to address START, to which 
subroutine LPC will branch the first time it handles the file. We alter the 
fourth byte (DEST3) from the type-letters of the unit to the address of the 
FNT entry. 

Into D.FIRST through D.FIRST+4 we read the first word of the FNT entry, 
containing the file name. (Note that these 5 cells are normally used as 
IN, OUT, LSTAT, DEEP, and DEEPl. But at the moment we are not processing 
any file in the normal way, so they are available.) These 5 bytes will 
become the first word of the FET. We alter the right byte to 3, the initial 
file status, and make the same change to the status byte of the third word 
of the FNT entry. Then we complete the formatting of the first word of 
the FET by setting bits 12-17 (in D.FIRST+3) to 0. 

27. Next, just before APFIO, we zero D.FNT through D.FNT+9, in which we shall 
format the 6th and 7th words of the FET as follows: 

VFD 60/0 

VFD l/FL.OS,5/0,6/a,6/0,l/FL.512,5/0,36/0 

where a is the disposition code of the file; FL.OS is 1 for only a punch file, 
and means the last card of the preceding file (a blank) will now be offset; 
and FL.512 is 1 for only a 512 printer. 

Then we copy the 1st, 6th, 7th, 8th, and 16th (initially ^) words of the FET 
into the FET Itself. 

28. The last part of the FET to be set up is the J-display area in the 9th 
through 14th words, and the word for receiving type-ins, the 15th. The 
15th word merely contains the binary EST ordim1 in bits 48-59, and 0 in 
the remainder. The 11th through 14th words will be left zero initially, 
but we nof set up the 9th and 10th words in BUF through BUP+'9. BUF already 
contains the equipment type (see APFIO), and BUF+3 through BUFH-7 contain 


MARCH 1969 


16-37 



SCOPE 


the file name and status* We convert the EST ordinal to octal display 
code in BUFfl and BirF4-2; then zero BUF+7 through and write the 

10 bytes to the 9th and 10th words of the FET- 

Finally, we zero FNTAD,TYPE and FNTPRI,TYPE, to show the main part of 
B*FNT that we have disposed of the file; call subroutine SALAIJM to 
initialize the alarm for the file, and return from FSET to FNTPR- 

29, When we reach FNTPR, we have certainly disposed of the punch file, if 
any, so we call subroutine SRCHFET to find a free print FET- If none, 
the return is with the A register negative, and we go to APF7G (see 
section 30 below). Otherwise, the subroutine has put the FET number 
In PS and its starting address in FETAD. We know we can write in the 
first word of the FET with no harm, so we use this fact to copy FNTPRI 
through FNTPRI+4 into D.TO through D,T4, merely for convenience in the 
following comparisons* 

Now: 

1* If D-Tl, D.T2, and D*T3 all contain zero, we have no print files 

outstanding and go to APF7G to terminate* (There may be some waiting 
in the FNT, but on each pass through B-FNT we only try to start one 
punch file, one 501 file, and one 512 file.) If AV501+1 and AV512-hl 
show that no printer is available, we also go to APF7G, 

2, If AV50H"1 and hAP 512+1 show that one of each type of prin!:er is 
available, we go to FNTPRF- Then: 

a. If D*T3 contains the highest or only priority, we go to FNTPRE. 

(Assign the 512-disposition file to the 512 printer.) 
b* If D-T2 contains the highest or only priority, we go to FNTPRB. 

(Assign the 501-disposition file to the 501 printer.) 
c. If D-Tl contains the highest priority (501/512-disposition file) 
we have a choice* If D.T2 contains the next-highest priority, 
we go to FNTPRJ to assign this file to the 512 printer, leaving 
the 501 printer free to handle the 501-disposition file later. 
Otherwise, we go to FNTPEK to assign the 501/512-disposition file 
to the 501 printer. 

3- If only one type of printer is available, we compare the priority of 
the file with specific disposition to it with the priority of the 501/ 
512-disposition file (if any, in both cases), and send the winner to 
the printer- This means going to FNTPRE, FNTPRB, FNTPRK, or FNTPRJ* 

At FNTPRK, we set TYPE to 1, to indicate the 501/512-disposition file* 

At FNTPRB, set TYPE to 2, to Indicate the 501-disposition file. In either 

case, we then set AV501+1 to I, indicating that the printer will no longer 
be available the next time we come to FNTPR; then put ”LPtt in the A register 
to specify a 501 printer and go to FNTPRC, to call FSET* 

At FNTPRJ, we set TYPE to 1, to indicate the 501/512-disposition file* 

At FNTPRE, set TYPE to 3, to indicate the 512-disposition file. In either 

case, we then set AV512’hl to 1, to indicate that the 512 printer will no 
longer be available the next time we come to FNTPR. Then put in the 

A register, to specify a 512 printer, and go to FNTPRC, to call FSET* 


16-38 


March 1969 



SCOPE 


So in all we may go through FSET three times; the first time coming down 
from FNT3E, to deal with a punch file, and then twice via FHTPRB, PNTPRE, 
FNTPRJ, or FNTPfiK, to send one file to a 501 printer and another to a 512 
printer. This may not account for all the printers and punches that may be 
available for waiting files; if not, 4 seconds will elapse before B.FNT 
is called again. However, whenever a print or punch file is terminated, 

B.FNT is called immediately; so once all the printers and punches are busy, 
none of them is going to remain idle for 4 seconds if there are files 
waiting. 

30. We come to APF7G when B.FNT has accomplished its agenda, or cannot complete 
it. We initially tried to find one punch file, one 501/512 file, one 501 
file, and one 512 file. For each one found, the address of its FNT entry 
was stored in FNTAD+O, +1, +2 or +3, and the JANUS control point number 
was inserted in its FNT entry. As each one was assigned to an output unit 
and initialized, FNTAD,TYPE was zeroed. So now we look through FNTAD through 
FNTAD+3. Each non-zero is the address of the FNT entry for a file that 
we could not dispose of after all; we release that FNT entry from our control 

point. Finally, we return to LPCL. 

35, So the FET for a punch or printer file is initialized as follows: 

VFD 42/iobname,18/INITA 

VFD 12/b,12/0400B,36/b,60/b,60/b,60/b+BUFLG-40B 

VFD 60/x 

seventh word for punch: 

VFD l/FL.PS,l/FL.PROS,l/FL.BCDO,l/FL.BCDN,2/x,6/d, 

6/r,2/x,l/FL.IMAGE,l/FL.LONG,l/FL.SWCH,l/FL.FLIP, 

12/e, 24/f 

seventh word for printer: 

VFD l/FL.SU,l/FL.PRSU,l/FL.FMES,l/FL.CMEA,l/FL.CMEB,l/FL.8LL,6/d, 

6/r,l/FL.512,1/FL.AUT0,1/FL.PAGE,l/FL.LONG,l/FL.SWCH,l/FL.LINE, 
12/x,24/f 

eighth word: 

VFD 12/u,6/cb,6/ca,12/STAEI,l2/v,12/w 

ninth to sixteenth words: 

VFD 12/OHLP,12/qa,12/5555B,42/jobname,42/0 

(or 12/OHGP etc. or 12/OHLQ etc.) 

VFD 60/0,60/0,60/0,60/0 

VFD 12/qb,48/0 

VFD 12/g,48/h 

where: 

b is the address of the start of the buffer; the names beginning with 
FL have been used illegitimately here, but are convenient to Indicate 
the positions of the flag bits; all are preset to 0 except FL.OS, which 
is initially 1 and FL.512, which is initially 1 for a 512 printer file. 
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X has the value 0, and is used to indicate a field that is currently unused 
but is here preset to 0; 
d is the disposition code of the filej 

r is the repeat count, initially 0; 

e is the card number within a normal-format binary record, initially 0; 
f is the count of cards punched or lines printed, initially 0; 
u is the control point number (unnecessary); 
cb is the second channel number from the EBT entry; 
ca is the first channel number from the EST entry; 

V is the address of the FNT entry for the file; 
w is the equipment connect code; 

qa is the EST ordinal of the equipment translated into two display code 
characters representing octal digits; 
qb is the same ordinal as a binary integer; 
g is what will be read to LSTAT, and is initially 0; 

h is what will be read to DEEP through DEEP+3 and is not preset. 

Overlay E.FORAiG 

38. This part of the program periodically checks all currently unused card readers 
to see if jobs are ready to be read in through them, and does the necessary 
initialization if so. On entering, the seconds clock is read and FORALARM set 
equal to it, so that the overlay will not be called again until the clock has 
moved into a different A*second period, or FORALARM has been set 2048 seconds 
away from the clock because HR is freshly loaded. Next TYPE is set to 2, in¬ 
dicating that a card reader file is being dealt with, in case any subroutines 
common to all types are called. Overlay subroutine E.SKFNT is called to find 
a free FNT slot. If the return is with non^zero in the A register, there was 
no vacant space in the FNT for a new input file so overlay E.FORAG could do 
nothing in any case and branches back to LPCH. If the exit is with 0 in the 
A register, a vacant FNT slot has been found and filled with a copy of the model 
entry at MESS in overlay E.SKFNT, into which our control point number has been 
saved at PSl. 

39* Next, the EST pointers are picked up and the EST starting address saved at 
DEEP. Now scan the EST for a card reader that is on and unassigned to any 
control point. When one is found, control goes to FORE. If there is none, 
we come to FORAGEY, where the FNT slot E.SKFNT had reserved Is released, by 
zeroing it, and we then exit from the overlay to LPCH. 

40* At FORE, the EST ordinal of the unassigned card reader is calculated and saved 
in PS2; then a specific request for it is constructed, and sent to monitor. 

If the request is not granted, scanning of the EST continues at FORC- If it 
is granted, a free FET must now be found. FET’s numbered 1 through p are for 
card readers, where p is in bits 6-11 of IR2. So PSTAK-fl through PSTAK-hp are 
scanned for a zero cell that indicates that the corresponding FET is free. If 
none is free, we drop the card reader, at FALCON, and go to FORAGEY to drop the 
FNT and exit from the overlay. 
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41. If a free FET Is found, we go to EDSEL with its number in PS, construct 

starting address, and store this in FETAD. LSTAT is set to contain the 
status code UNREADY; when we check the card reader status in a monient, 
the most probable status will be unreadiness. To prevent this from giving 
a pointless message, we anticipate this status in LSTAT. Next we put the 
EST ordinal twice in the FET: as a binary integer in bits 48-59 of the 
15th word, so that program IIQ can find the FET for this card reader when 
there is a type-ln for it; and as a two-digit octal number in display code, 
preceded by the letters CR and followed by 10 blanks and a zero byte, in 
the 9th word and bits 24-59 of the 10th word. This enables DSD to show 
the card reader number, followed by a blank name. In the J-dlsplay between 
now and the time the new job name is read from a job card, or the card 
reader-is dropped. It also enables HR to output a message concerning the 
card reader on the B-dispIay, if this is necessary before the job card has 
been successfully read. Then LSTAT, which was initialized as UNREADY (=2), 
and DEEP through DEEP3 are copied into the 16th word of the FET. 

42. The EST entry for the card reader is still in D.EST through D.EST+4 
(DESTO through DEST4). This will become the 6th word of the FET later at 
FOREA, when the FNT pointer and the program address START replace the 3rd 
and 4th channel numbers and the type letters "CR". Subroutine RES is called 
to reserve a channel and connect the reader; and subroutine STS, to read 
its status and return it in the A-register. If we have non-zero in the A- 
register on return from RES, however, the card reader connect code has been 
rejected and we go to FORECS to drop the reader and the FET and return to 
FORC to continue scanning the EST for card readers. Subroutine RES will 
already, in this case, have called subroutine RELCR to drop the channel 
and deselect the 6681 and card reader. 

43. But if we return from EES with 0 in the A-register, and then from STS with 
the status, and if the status is ready and tray not empty, we go to FOREA. 

Or if the status (which subroutine STS also stored at location STAT) 

is tray empty or fall to feed, we call subroutine RELCR to release the 
channel, 6681, and reader, and then go to FORECS to drop the reader assignment 
and the FET and return to FORC to continue scanning the EST. If the status 
is not ready, but not because of tray empty or fail to feed, we call subroutine 
NED to deal with what may be a bad card, and then go to FORECS; RELCR will 
have been called by NED* 

44. At FOREA, everything is apparently ready to read a card, but a buffer is still 
needed, and the rest of the FET must still be filled in. The FNT entry address 
is put in DEST3 (where it replaces the letters "CR" from the EST entry) and 
the address START in DEST2 (where it replaces the third and fourth channel 
numbers, if any; we assume that the card reader is attached to only one 

or two channels) to be the address to which subroutine LFC will exit the 
next time we turn our attention to this card reader file we are now Initiating. 
This completes the modification of the EST entry into the eighth word of the 
FET, so we copy it into the FET. Next we call overlay subroutine B.SETFT, with 
16 in D.LIMIT, to get a buffer and set up FET pointers 
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such that the last 16 words of the nominal buffer area are left for card 
image storage. (Note that D.LIMIT is normally used as DEEPl, but as we are 
not now processing a file in the normal way, the cell is available.) If 
B.SETFT cannot get a buffer, it requests one from IIQ and returns with the 
A register negative; then we go to FOREL to release the channel and card 

reader, and thence to FORECS as if the card reader had not been ready in 

the first place. Otherwise, a dummy job name 9999 is put into the first 
word of the FET, with status INITA (=3). Then, at last, subroutine RCD 
is called to read the waiting card. (Note that RCD is entered with non-zero 
in the register; otherwise it would not physically read a card.) But it 
is not examined; RCD has transferred it to the hold area after the end of 
the buffer. The EST ordinal of the reader, which is still in PS2 is stored, 

at PSTAIC,PS to indicate that the FET is now active. Then the 7th word of 

the FET is set to 0, except for bit 39 (FL.IMAGE) which, being 1, will 
indicate that there is a card in the hold already the next time RCD is called. 
The sixth word of the FET must be zero, and it is left so. Then return to 
LPCH. The next time subroutine LPC brings attention to this file, the second 
card will be read, and the fact that the FET status is INITA will cause 
overlay B.JOB to be called, to decode the job card. 

47, Control comes to FORECS after some sort of non-success, when an FNT slot, 
an FET, and a card reader, but not a buffer have been secured. As the EST 
ordinal has not been put in PSTAK,PS, however, the FET has not been formally 
claimed and so is not formally dropped; but the whole FET area is zeroed 

out again. The card reader is dropped as well, and then a return to FORC 
is made to continue scanning the EST. 

48, The summary of the initial format of the card reader FET is deferred until we 
describe overlay B.JOB, where the information from the job card is inserted 
in the FET. 


The Main Loop of HR 

49. The main loop of HR, beginning at START, can be described more or less 
apart from subroutine LPC and its attendant overlays B.FNT and B.FORAG. 

At several points, where nothing useful can be done for the moment on the 
current file, there are calls to LPC that in reality will send the PP to 

a completely different part of the main loop. But the next time the current 
file becomes current, the program will return to the point in the main 

loop at which the LPC call last took it away from the file. This is why 

it may be useful to think of the main loop as being several loops, one 
for each active FET, with the LPC calls acting as cross-links. 

50. The current file is identified primarily by PS, the FET number (varying 

between 1 and some upper limit), and FETAD, containing 16 times this number, 
the starting address of the FET. At START, we read the 15th word of the 
FET, and see if bits 36-47 contain zero. If so, branch straight to STARTA, 
but if not they contain a number representing some operator type-in addressed 
to this file via its equipment EST ordinal, which is permanently in bits 
48-59 of that word of that word of the FET. The number is saved in D.Z6 

and bits 36-47 of the 15th word of the FET zeroed, to show the type-in has 
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been accepted. If the type-in was for backspace, the paraioeters, taken 
from bits 24-35 of the same word, are still in D.Z3. If the number in 
D.Z6 Is above the limit, a branch is made to STARTA anyway as an invalid 
number has somehow appeared. Otherwise, the branch is to one of the 
locations shown in table STARTB: 


Type- 

In Number 

Branch to 

Function 

END 

1 

END 

End the file (input or output) 

SUP 

2 

SUP 

Suppress format control (print) 

REP 

3 

REP 

Repeat the file (print or punch) 

SW 

4 

SWC 

Switch the file (print or punch) to a different 
unit as soon as one is free, and off the present 
unit in the EST. 

REW 

5 

FINIS 

Stop printing or punching the file; do not 
charge for the work already done on it; rewind 
and replace it in the output stack; off the 
present unit in the EST. 

OK 

6 

OK 

Stop displaying a PM-line in a print file 
and resume listing at the next line. 

BS 

7 

BACK 

Backspace a print file. 

These 

functions 

will now be 

described, before resuming the main loop. 


END 


52, If TYPE contains 2, indicating a card read file, control goes to ENDCR- 
There subroutine UMES is called to add the message OP-DROPPED to the 
future OUTPUT file of the job. Then FL.PREAB is set to 1, indicating 
that the job is to be aborted immediately whenever it is brought to a 
control point for execution. Then continue at REOFL, as if a 6-7-8-9 
card had just been read. 

53. If TYPE does not contain 2, so that the action is printing or punching, 
subroutine FILWT is called with 0 In the A register. This waits until 
the FET shows not busy, i.e- no reading from disk going on, and does it 
in such a way that subroutine LPC can be called repeatedly while waiting, 
so as not to hold up the other files. Then check TYPE again. If it 
contains 0, indicating a punch file, overlay B-HND is executed. This 
overlay begins be calling subroutine CLEEMES, to set LSTAT to GOOD and 
clear any B-display message that may be in the FET- Then it calls sub¬ 
routine WTFET to set the code and status field of the FET to 1033B, 

i.e, end-of-file and end-of-information. Then it calls subroutine 
overlay B.SETP with 16 in IN. This sets the FET pointers so that OUT^ 
FIRST and IN=FIRST+16. Then it sets up a card image with 7-9 punches 
in column 1 (so that if the card is ever read by mistake In an input 
file, it will appear as a binary card of impossible format, and will 
cause the job to be pra-aborted) and a large visible £ in the middle of 
the card. This card image Is copied into the first 16 words of the 
buffer, so that it appears to constitute the last 16 words of information 
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in the file. Then the disposition code in bits 48-58 of the 7th word 
of the FET is set to 14B, for 80-column binary (what it was before no 
longer matters) and we branch to STARTA. The main program will now punch 
that signal card image, then see the end-of-file and end-o£-information 
and punch a 7-8-9 card then a 6-7-8-9 card, and finally terrairate the 
f ilei 

54. But if TYPE contains neither 2 nor 0, control goes to ENDLP and calls 
overlay B.LEND. What must be done is print a message ****’ENDED BY 
OPERATOR **** then print the dayfile at the end of the file, if it is 
of type output rather than local, and finally repeat or terminate the 
file. We have already waited for the file to be not busy. Now, in the 
overlay, overlay subroutine B.SfiTP is called to set the buffer pointers 
to empty. Then we set FL.LINE=1, and copy what begins at ENDMES into the 
line image area. The next time we switch to this file, control goes to 
LPRL and we print the message. The control word begins with 603IB rather 
than 4031B because in case of extended array printing the message will 
have to be translated from display code. (What follows at ENDLQ could 
not be included in the overlay because It involves the calling of sub¬ 
routine FILWT, which calls LPC, which must never be called even indirectly 
from an overlay.) With 240B, the FET/FNT code for skip forward, in the 
A,register, a call is made to subroutine FILWT, which waits till the file 
is not busy. Inserts the code in the FET and the FRT entry for the file, 
and partly sets up a stack request at MYRQ through MYRQ+9. Then the FWA 
field of the stack request is replaced with 777777B, to ensure a skip 
forward to end-of-information. Then, with function code O.SKF in the 
A register, subroutine DORQ is called to conqplete the stack request and 
get it issued. This forward skip does not affect the buffer or the FET 
pointers, so when the skip is completed it will appear that the message 
in the buffer is the very last thing in the file; returning to normal 
procedures will-cause It to be printed and then processing continues 
as if the file had normally printed through to the end. This is fine if 
the file is not of type output, and control goes to ENDQ to wait for 
completion (by calling FILWT with 0 in the A register) and then calls 
subroutine CIO and goes back to LPD99, CIO will do nothing because of 
the end-of-information status. But for an output type file the dayfile 
must always be printed, even after an END type-ln. So a backspace of one 
logical record from the end of the file is performed, which should position 
us at the beginning of the dayfile- 40B, with which FILWT is entered, 
is the FET/FNT code for a simple backspace of one logical record. But 
what really controls the outcome of the manoeuvre is the function code 
O.SKB, with which DORQ is entered, and the logical record count of 1, 
which the FWA field of the stack request, in MYRQr6 and MYRQ+-7, is replaced 
betwteen tha calls to FILWT and DORQ. After this stack request has been 
completed, It will not have affected the buffer or the FET pointers, 
so the message will still be in the buffer and be positioned at the be¬ 
ginning of the dayfile. At ENDQ, then, this coaq>letion is awaited by 
calling FILWT with 0 in the A register, and then calling subroutine CIO 
to start reading the dayfile, and returning to LPD99. 
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55* If TYPE does not contain for a print file^ control goes straight back 
to STAPTA as there is nothing to be done- For a print file, if either 
FL-SU or FL-PRSU is 1, the same happens- Otherwise, FL-PRSU is set to 1, 
so that the next time the main loop for this file finds it must begin 
constructing a new print line image, it will see the pre-suppress flag> 
reset it to 0, set FL.SU the suppress flag to 1, so that the format 
characters of all future lines will be ignoredj then insert the message 
irkirk FORMAT CONTROL SUPPRESSED in the line image store and go ahead 

as if this message had been taken from the buffer, just before the re¬ 
mainder of the file. This is done in overlay B.SUP, which is described 
at the only point in the main loop where it is called* 


REP 

56. Overlay B.EEP is immediately called. In the overlay, if TYPE contains 

2, indicating a card read file, control goes to STARTA as the type-in has 
no meaning- Otherwise, 1 is added to the repeat count in bits 42-47 
of the 7th word of the FET. This field is normally 0; 1 is subtracted 
from it whenever punching or printing the file is completed, and when 
this would yield a negative result the file is terminated. According as 
this field has just been made 1, 2, 3, 4, 5, 6 or greater, the character 
in bits 42-47 of the 10th word of the FET is altered to - = * / + C or 
), (When the repeat count is 0, this character is blank. It is the 
character after the seventh character of the file name, as it appears 
in the J-display and sometimes the B-display. The characters - = and * 
are chosen because in their scope display forms they have 1, 2, and 3 
strokes. The rest of the characters in the set are arbitrary, but the 
repeat count is not likely to go above 3 in practice.^ 


SWC 

57- If TYPE contains 2, indicating a card read file, go immediately to STARTA 
as the type-in is inapplicable; one cannot read the rest of a file on a 
different card reader if the first reader breaks down in the middle- 
Otherwise, set FL.SWCH to 1. This is a signal to subroutine SW, which 
is called whenever a printer or punch is found not ready or rejects a 
function, that the file should be transferred to another unit of the 
same type, if there is one available, and that the current unit should 
then be turned off in the EST. 


FINIS 

58- If TYPE contains 2, indicating a card read file, the REW type-in is treated 
as an END type-in and there is a branch to ENDCR- Otherwise control waits 
till the file is not busy, by calling subroutine FILWT with 0 in the A 
register; then calls overlay B.FINIS. The overlay 
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begins by calling overlay subroutine B.REW, which rewinds the file and leaves 
a copy of the FNT in MYFNT through MYFNT+14* Next the file is returned to 
the stack by altering the control point number in the first word of the FNT 
entry to 0, at the same time setting the priority to 7777B so that the file 
will restart punching or printing as soon as possible. Then overlay sub¬ 
routine B.DROPBF is called^ to release the buffer; we zero all 16 words of 
the FET; turn off the unit whose EST ordinal is in PSTAKjPS by setting bit 
23 of Its EST entry to 1; call monitor to release that unit from our control 
point; zero PSTAK^FS to show that the FET is no longer in use; set FNTALAPM 
ahead by 512 seconds» so that overlay B.FNT will be called the next time sub¬ 
routine LPC is entered, and branch to LPCK in that subroutine. Here the ab¬ 
normal entry to it is taken because nothing need be saved back into the FET 
just cleared. 

59. The net effect is to abandon the printing or punching of the file without 

giving any further message, and without putting an accounting message in the 
dayfile, leaving the file In a position to be re-processed as soon as possible, 
and turning off the unit so that the attempt to reprocess the file does not 
simply bring it back to the same unit again. 


60. If TYPE contains 2, Indicating a card read file, control goes straight to 
STARTA as the type-in is inapplicable. Otherwise, subroutine CLEEMES is 
called before returning to STAKTA. The only time this will be a useful 
procedure is when the type*in is addressed to a print file that has suspended 
printing while displaying a PM-line on the scope- Whenever that file is the 
one to which PS and FETAD point, LSTAT will contain status WROGER (=5); sub¬ 
routine CLERMES will clear out the message field in the FET and reset LSTAT 
to GOOD- The next time the main loop comes to the file, this status will 
allow printing to resume. 


BACK 

61. If TYPE does not contain 1, control goes straight to STARTA, as the BS type- 
in is applicable only to printers. Otherwise, the call to program IIU is com¬ 
pleted at CALLIIU, by Inserting the FET number in bits 0*11 of the IIU call, 
and copying into bits 12-23 of the IIU call what was in bits 24-35 of the 15th 
word of the FET. Then a PP is requested for this call, with zero delay- 

62. What was in bits 24-35 of the 15th word of the FET, when 7 was found, asking 
for backspace, in bits 36*47, is the page count and page format character 
IIU to use. This is described more fully in the doctimentation of IIQ (see 
subroutine CONSOLE) which transmits the type-In from DSD to IIR, and the 
documentation of IIU, which actually backspaces the file* 

63. When IXU has completed its backspacing, it will set the status field of the 
first word of the FET to 17B. This is the only time in JANUS that a print 
fiel has this status. It is repeatedly tested for, and after each unsuccessful 
test we set the alarm for this file 740msec. 
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ahead (probably there are several seconds to wait, and LPC should turn 
to this file as rarely as possible in the meantime) and call LPC, When 
status 17B appears, the FET status is reset to 13B and the return is to 
LPD99, Note that LPC stores the 6thj 7th, 8th, and i6th words of the 
FET every time it is called from this part of the program, but reads 
back to the PP these four words, plus the first word and the four pointers. 
So IIU can use the first five words of the FET without risking a clash 
with IIK. 


Main Loop of HR Continued 

64, Control comes to STARTA if there was no type*in message to deal with, 

or if it was a message (like REP) that could be obeyed without any detour 
in the main loop. Now one other preliminary common to all three types 
of file is performed, namely to consider moving to a buffer 
lower in memory. The low-order 12 bits of the card/line count are taken, 
increased by 1 and the result checked for divisibility by 200B for punch 
file, or by lOOOB for read or print file. If not, branch to START? 
where the file is actually worked on- But if so, shifting buffers is 
considered. The numbers 200B and lOOOB, which are set by the three 
constants at INTER (and of course could be altered to any other three 
powers of 2) are designed so that buffer-moving will be considered for 
each file at intervals of about 30 seconds. One is added to the card/ 
line count before masking it so that buffer moving will not be considered 
when the count is initially 0- 

65. To consider shifting buffer, subroutine MAYMOV is called, which decides 
whether the following conditions are satisfied: 

1. Out buffer is not one of the first two. Storage will never delib¬ 
erately be shrunk below the point of having one free buffer in the 
field length; ours and the free one make two, so there is never any 
point in shifting buffer assignment down from the second buffer- 

2. Out buffer is the highest-addressed one currently in use- 

3. There is at least one free buffer below ours. If the conditions 
are not satisfied, and exit is taken from MAYMOV with the A register 
non-zero, and a branch to START?. If they are satisfied, an exit 

is taken from MAYMOV with the A register zero; subroutine FETCH has 
been called and subroutine PUT has not subsequently been called, so 
that the interlock is favorable and the buffer assignment registers 
available. However, the business cannot be done yet, so subroutine 
PUT is called to drop the interlock- 

Then subroutine FILWT is called to wait until the FET shows not busy - 
obviously the buffer cannot be moved while disk reading or writing is 
going on. Because FILWT may call LPC, which must not be called from an 
overlay, the FILWT call must be in the permanent part of IIR- After the 
call to FILWT, the overlay subroutine B.MOVBF is called. This subroutine 
will copy the contents of our buffer to a lower one if it is still possible, 
and adjust the pointers in PP memory and in the FET accordingly. The 
exit from the subroutine brings control to START7. 
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66* START? is reached on finishing the preliminaries that are common to all 
three types of file. If TYPE contains 2, control goes to CRD to work 
on a card read file. Otherwise, there is a print or punch file. If 
LSTAT contains WSPGER i~5) this file must be a print file that is dis-- 
playing a PM line and waiting for an OK type-in. So control goes to 
LPD99 to call LPC and eventually returns to START. Otherwise, beginning 
at LPDIE the number of CM words remaining in the buffer is calculated, 
and stored at WC* Note that LIMIT-FIRST necessarily — BUFLG-40B- Then 
branch to LPR for a print file, or continue at PCD for a punch file* 

Just before branching, however, call subroutine CIO to refill the buffer 
if it contains fewer than 63 CM words, and if the FET status is read 
completed. 

67. First of all, for a punch file, a check is made to see if the file status 
in the FET is INITA (“3); if not, go to PCDA. If so, this indicates that 
nothing has as yet been read from the file nor anything punched out, 

and the job name card must be set up. So verlay B-INIT is called. It 
begins by calling overlay subroutine B.FCIA, which is really just a table 
of character images, made into a separate overlay so that it can be used 
by both B.INIT and B.LINIT. Executing it merely causes the table to be 
copied into the high end of the overlay area* Then a card image is set 
up with all l^s in the top two and bottom two rows, and a blank area in 
the middle* However, columns 1 and 2 are left for the moment, and column 
3 is set all blank. Then the seven letters of the file name are taken 
from CURFET through GURFET+3 and converted into visible punching, be¬ 
ginning in column 4. Each letter or digit is 10 columns wide, and there 
is one extra blank column between each pair of neighbors* The visible 
characters are only six rows high, l-row through 6-row, so one character 
image, ten columns on a card, can be packedinto five PP memory cells* 

When the image is complete, control goes to FCI4, and calls subroutine 
WTFET to set the FET status to 53B, indicating that the file is no longer 
in initial condition. Finally it takes the last two characters of the 
job name, which are the crucial ones in identifying it (since they are 
assigned by the system), gets the corresponding Hollerith punches from 
table HOLLER (also in overlay B.FCIA) and puts them in colimms 1 and 2 
of the card image. This is to give a way out of possible confusion bet¬ 
ween letter 0 and and digit 0, or 5 and S, or 2 and Z (though the images 
are different for these pairs)* Finally return to the permanent part 
of HR at PCDK; which is where we ordinarily arrive immediately after 
reading enough words for a card image from the buffer, setting up the 
card image, and calling subroutine SAVOUT to update the OUT pointer in 
the FET* 

68. In the non-initial situation, control comes to PCDA instead of calling 
B*IN1T. Then if FL.IMAGE is 1, control goes straight to PGDL as there is 
already a card image waiting to be punched, in one of the storage areas 
that follow the buffer. Otherwise, a new card image must be constructed 
from words in the buffer* If WC contains non-zero, the buffer Is not empty, 
and control goes ton to PCDB to do this. Otherwise, the buffer being 
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empty, if the FET status is end of record/file overlay B.EOPCH is called 
to set up the corresponding image of a 7-8-9 or 6-7-8-9 card and then 
branch to PCDK or PCDKA. If the buffer is empty and the status is not 
end-of-record/file, it may be end-of-information; if so overlay B.MTER 
is called at MTER; or if not, control goes to LPD99 as there is nothing 
to do but wait until there is something in the buffer. (End-of-information 
without end-of-record may seem odd. When the FET status first becomes 
e-o-i, it also becomes, of course, e-o-r or e-o-f. We process the e-o-r 
or e-o-f in overlay B.EOPCH., and set the status to 0013B if not already 
e-o-i, or 1013B if e-o-i. Subroutine CIO will never read into the buffer 
while the status is e-o-i, so 1013B will remain unchanged until it is 
picked up, as noted above, and control goes to MTER, with the advantage 
of having already punched out the 7-8-9 and/or 6-7-8-9 cards in the normal 
way.J 

69. Before discussing the treatment of normal information cards, overlay 
B.EOPCH will be described. This begins by calling subroutine CLR to zero 
IMAGE through IMAGE+79, where the proper card image will be initially 
constructed. Then it zeros PCT so that if a record that will be followed 
by a normal binary record in the same file Is being terminated, the 
numbering of cards in the new record will begin at 1. Now, if FL.WRITE 
is 1, a fake write status (actually 0037B or 1037B) exists, which must 
have been set on the preceding entry to the overlay, just after con¬ 
structing a 6-7-8-9 card image* Such an end-of-file card has to be 
followed by an offset blank card. The image of a blank card is already 
In IMAGE through lMAGE+79, so now, at EOPE, the FET status is set to 
0013B or 1013B; then, at EOPB, FL.PROS is set to 1 (indicating that the 
image that will next be sent to the punch is for an offset card) and we 
return to the permanent part of HR at PCDKA. PCDKA is also reached when 
the image of a normal information card has just been set up in the per¬ 
manent part of HR, and FL.PROS set to 0, as such a card is not to be 
offset, 

70. If FL.WRITE is 0. there is a branch to EOPA- If the status is end-of- 
record, go to EOPG. Otherwise, check FL.OS. If this is 1, the last 
card punched must have been a 7-8-9 card, and control can proceed with 
the 6-7-8-9 card, by storing 16789 (=17B) in the first column, at IMAGE, 
setting the FET status to 0037B or 1037B (the fake write status is ex¬ 
plained above), and going to the permanent part of HR at PCDK. As the 
b_7-8-9 card is not to be offset, it goes to PCDK rather than PCDKA, 

so that FL.PROS will be set to 0 before control arrives at PCDKA. 

71. But if end-of-file, non-fake-write status exists in the FET and FL.OS 
is 0, we go to EOPD. An end-of-file that was not immediately preceded 
on disk by an end-of-record has been reached, but an offset 7-8-9 card 
should be inserted before the 6-7-8-9 card. 1789 (=7) is stored in column 
1 of the image, at IMAGE, and a branch back to EOPB is made, to set 
FL.PROS and return to PCDKA. The next time control comes through the main 
loop for this file, it will enter this overlay, and FL.OS will be set 
(FL.PROS is promoted to FL.OS immediately after punching a card.) Thus it 
will set up a 6-7-8-9 card the next time it comes to EOPA for the file, 
rather than branching to EOPD. 
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72. At SOPC there is an end-of-record status in the FET- Bits 14-17 of the 
first word of the FET (bits 2-5 of CURFET3) represent the level number, 
which must be translated into two octal digits and represented as two 
Hollerith punches in columns 2-3 of the card image. So bit 5 of CURFET3 
is passed through subroutine EOPT, which converts it to the Hollerith 
column Image for 0 or Ij which is stored in lMAGE+1, then bits 2-4 of 
CURFET3 are sent through EOPT, and the returned image of something bet¬ 
ween 0 and 7 stored in IMAGE+2* Finally 1789 (=7) is stored in column I, 
at IMAGE, and control goes to EOPE* EOPE was reached above after the 
preparation of a blank card image, when 0037B or 1037B status was found, 
calling for an offset blank following a 6-7-8-9 card; the end-of-record 
Card whose image has just been set up Is treated the same in all respects 
except for what is actually the image. 

73. Return is made to the program just below PCDA. If the buffer was not 
empty, one or more information cards had to be punched before doing any¬ 
thing exceptional, and control went to PCDB. Now at PGDB the disposition 
code is checked, and we go to PAB for SO'-oolumn binary (14B, i.e. lOB-t 
FL-PAB), BIN for normal binary Cl2B, i.e. LO&tFL.BIN), or HOLP for BCD 
(lOB). 

74. PAB is the simplest case. WC is set to contain 16, the number of CM 
words of information the card can hold, and subroutine WFR is entered 
with IMAGE in the A register; this is the starting address into which 
the words are to be transferred. WFR will move 16 GM words, i.e- 80 PP 
words, from the buffer to IMAGE ff* VFD 12/PCDE in the calling sequence 
to WFR is the address to which WFR is to branch if it exhausts the buffer 
and finds end of record/file before it has moved 16 CM words. Thus control 
goes to PGDE whether or not this happens. This means that when an 80 - 
column binary record does not have a Length divisible by 16 CM words, 

the last 1 to 15 words are punched in columns L ff of the last card, 
and the remaining columns are merely left blank. 

75. At BIN a standard binary card is punched. This is a little more com¬ 
plicated. WC is set to contain 15, the number of CM words of information 
it can contain, IMAGE+2 goes into the A register (information on a standard 
binary card begins in column 3), and subroutine WFR is called. VFD 12/BINA 
in the calling sequence means that the return Is from WFR to EINA whether 
WFR finds 15 CM words (i.e. 75 PP words) in the buffer and transfers them 
to lMAGE+2 through IMAGE‘r76, or whether it finds end-of-record/fiie status 
after fewer words in the buffer, which it has put in IMAGE+2 ff. In the 
dozen or so instructions beginning at BINA, a checksum of the contents 

of columns 3 through 77 is formed and stored in column 2 of the card 
image. The checksum is formed by totalling the 75 bytes as if in a 12-bit 
register with end-around carry, and taking the l*s complement of the 
result. Subroutine WFR has stored in D-Z5 the number of words it actually 
moved into the card image, whether 15 or some smaller number, and this 
is now used to set up column 1 of the card image, which contains a word 
count in the upper half and 7-9 punches in the lower half- Then control 
passes to PCDE as it did after preparing an 80-column card image. 
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76. At HOLE a BCD card is punched. From HOLP down to HOL.FB is concerned 
with transferring the first CM word to the card image, and from HOLPB 
to just before H0LP52 is concerned with transferring the second and 
following words. First ¥C is set to 1, as subroutine ¥FR will be called 
for each single word to be transferred. WG need not be set again below^ 
as WFR does not alter it. D.21 is set to contain IMAGE, the address into 
which we start moving output words; observe that this is a pointer for 
HOLP, not for WFR. D.24, in which to count the number of CM words trans¬ 
ferred to the card image. Is zeroed. The A register is set to contain 
IMAGE and subroutine WFR is called in to read one CM word from the buffer 
to IMAGE through IMAGE+4- VFD 12/* in the calling sequence indicates 
that this return from WFR is impossible. WFR is only asked to get 1 
word, and it is known that the buffer is not empty. 

77. Now if FL-LONG is 1, the card before the current one in the record ended 
not because a word with a final zero byte was found, but because 8 CM 
words of information were taken from the buffer without finding such a 
word; this filled the preceding card. If this flag is 0, a jiimp is made 
straight down to H0LP2; if 1, it is reset to 0 and then a check is made 
to see if the word just brought from the buffer is entirely zero. If 
not, control goes to HOLP2. But if so, this word is merely a terminator 
to the preceding card, which containd 40 bytes of information; this word 
in D.TO through D.T4 is not to be translated, as it normally would be, 
into a blank BCD card. So the word of zeros is thrown away irrecoverably, 
by calling subroutine SAVOUT to set the FET OUT pointer past it (sub¬ 
routine WFR advances the PP pointer). This brings control to HOLPB, where 
we load the A register from D-Zl and call subroutine WFR to move the next 
signle word from the buffer to the next unused 5 bytes after IMAGE. 

VFD 12/HOLP52 in the calling sequence means that if the buffer turns out 
to be empty, and the status is end-of-record/file, WFR will branch to 
H0LP52 instead of exiting normally- There, we will find D.Z4 still con¬ 
taining zero, and so return to LPD99 without having punched a card. The 
record ended with a card containing 40 bytes of information, which was 
punched on the last trip through the main loop for this file, and on this 
trip nothing has been done but see the zero word that terminated that 
card image. On the next trip, the end of record card will be punched- 
If WFR does not branch to HOLP52 for this reason, control arrives at 
H0LP2 as if the first word read from the buffer had not been all zero. 

If it was zero, it has now been completely discarded* 

73. At HOLP2, if the last byte of the word just fetched by WFR is zero, this 
is the last word in the card image and control goes to PCDE via H0LP5- 
Otherwise, add 5 to the destination pointer in D.Zl and 1 to our count 
of CM words processed in D-24. If this reaches 8, the card image has 
been filled up; otherwise control goes back to HOLPB to continue it. 

Note that It did not come through HOLPB, in the ordinary case, for the 
first word on the card image. Now, at HOLPB, subroutine WFR is called 
to move the next word from the buffer to the next unused 5 cells after 
IMAGE, or to branch to HOLP52 if the buffer is empty and the status is 
end-of-record/file• Arriving at HOLP52 in this way, we will not find 
zero in D.24, as at least one word has been moved into the card image. 
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so we will punch the card, etc. in the ordinary way. This is a case of 
the record ending with a card image containing exactly 5, 10, 15 .... or 
35 bytes of information, without a zero word to terminate it. If we do 
not get to H0LP52 this way, we return to H0LP2 at the top of this paragraph. 

79. If D.Z4 reaches 8 before a word ending in zero byte is found, the card 
image has been filled and must be punched out. The next word in the 
record might, after all, be the terminator of this card image; to prevent 
it from being punched out as a blank card on the next trip through the 
main loop for this file, FL.LONG is set to 1 before going to H0LP5. The 
effect of this flag has already been explained. 

80. At H0LP5, FL.BCDN is set to 1 to show that the card image most recently 
set up is to be punched in BCD mode. Then control goes to PCDE, as it 
did after setting up an 80-column binary or normal binary card image. 

81. This would be the best place to describe subroutine WFR, as all the calls 
that are made on it have just been mentioned, but what it does when it 
finds the buffer empty but the status not end-of-record/file has not yet 
been revealed. 


Subroutine WFR 

82. This subroutine moves the next k words (where cell WC contains k) in the 
buffer, to the first of which OUT points, to consecutive PP locations 
beginning with the one whose address is in the A register on entry. This 
address is immediately saved at WFE2. Then the return address is saved 

in D.Z3. Then D.Z5 is zeroed; this is a counter to be increased by 1 each 
time WFR moves a CM word, until it equals WC, when the normal exit from 
WFR is taken. With the PP destination address in the A register, sub¬ 
routine YFR is called to read the next word from the buffer and step OUT. 

If the buffer is not found by YFR to be exhausted already, the return 
from YFR is with non-zero in the A register. Then 5 is added to the PP 
destination address in WFR2 (5 PP words per CM word) and 1 to the CM 
word counter in D.Z5. If the latter now equals WC, WFR has successfully 
completed the request to it and exits normally, skipping over the one 
extra word in its calling sequence. Otherwise return to WFR2 to move the 
next (M word from the buffer. 

83. If the return from YFR is with A = 0, control goes to WFRW; the buffer 
was already exhausted; now if the status in the FET show end of record/ 
file the special address is gotten out of the calling sequence and a return 
is made to it, at WFRY. If the FET status is not e-o-r/f, more information 
is expected to come into the buffer soon, so the attempt to set up and 
punch this card image should be abandoned, leaving it till the next cycle 
in the main loop for this file. So an immediate return is made to LPD99. 

As WFR is called only in the section of HR beginning at PGDB, for punching 
output cards, and since subroutine SAVOUT is not called unless (1) to dis¬ 
card a zero word following a card image containg 40 bytes of information, 
or (2) after completing a card image, It is clear that the OUT pointer 

in the FET still points to the beginning of this still-incomplete card 
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image in the buffer. So the precipitate return to LPD99 will do no harm, 
even though a false start has been made on a card. 


Entry Information 

The A register contains the starting address in PP memory of the field 
to which CM words are to be read from the buffer, WC contains the number 
of CM words to be read. RJM FIRST; ADD OUT gives the address of the first 
of the words in the buffer to be moved. The calling sequence is 

RJM WFR 

VFD 12/a 

where a is the address to which WFR is to branch if the request cannot 
be completely fulfilled because end of record/file is met. 


Exit Information 

OUT has been updated, but not the FET OUT pointer. D.Z5 contains the 
number of CM words that have been taken from the buffer. 


Subroutines Called 


YFR 


Registers Destroyed 
D.Z3 


Main Loop of HR Continued 

84. Control comes to PCDE when a card image of information has been set up, 
and subroutine SAVOUT is called to update the FET OUT pointer past the 
information just taken from the buffer. 

85. This brings us to PCDK, to which we also came after setting up the image 
of the first card of a file, or the image of an end-of-file card. These 
two kinds of card, as well as an information card, are not to be offset, 
so here FL.PROS is set to 0, and then control goes to PCDKA. 

86. We also came to PCDKA, having set FL.PROS to 1, after constructing, in 
overlay B.EOPCH, the image of one of the two kinds of card that are to 
be offset, viz. an end-of-file card. At PCDKA, which is thus reached 
once for each card image whether offset or not, immediately after setting 
it up in IMAGE through IMACE+79, subroutine CLERMES is called to set LSTAT 
to GOOD and clear out any B-display message that may be in the FET. Next, 
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with 777776B in the A register, subroutine MOVIM is called to save the 
image of the new card in the one of the two save areas, following the 
buffer, that was not used for the preceding card^ Then 1 is added to the 
total of cards punched (for accounting purposes) in bits 0-23 of the 7th 
word of the FET (CT and CT+1)- Then FL^IMAGE is set to 1, to show there 
is an image ready that has never yet been punched, so that if control goes 
back to LPD99 before punching it, then the next time through the main loop 
for this file, it will go straight to PCDL without trying to prepare 
another image* 

87, At PCDL, subroutine RES is called to reserve the channel for the punch, 
select the 6681, and connect the punch- If the exit from RES is with 
non-zero in the A register, the punch rejected its connect code; the channel 
and 6681 have been released, and control goes straight to LPD99. Otherwise, 
subroutine READY is called, which waits until the punch unit is ready 
and not busy, but waits in such a way as to call LPC if necessary and not 
hang up other files. At PCDM, the punch is connected and ready, but LPC 
has probably been called and the image in IMAGE ff- has probably been 
destroyed, so MOVIM is called with OOOOOOB in the A register, to copy 
into IMAGE through IMAGE+79 the image that was Last stored when MOVIM 
was called with 777776B in the A register. Finally subroutine FCRNEW 
is called to punch this image- If the exit is with non-zero in the A 
register, the punch rejected a function code, and it, the 6681, and the 
channel have been released; so control goes straight to LPD99- Otherwise, 
it continues- It may now be necessary to issue an offset function for the 
card preceding the one just punched, so subroutine READY is called to 
wait. In an economical manner,until the punch is once more ready and not 
busy* Then if FL-OS is 0, go straight to PCDN. Of it is 1, it is reset 
to 0 and then the offset function code, 3 is sent to subroutine FCN to be 
issued. If this code is accepted, the return from FCN is with 0 in the 
A register, and control arrives at PGDP to call subroutine REL, to release 
the channel, 6681, and punch. Otherwise, they have already been released 
and this call is skipped. It is not attempted again, because after a 
certain delay it would be ineffective anyway- Now FL-BLIP is inverted, 
to switch to the other image save area after the buffer, and FL-IMAGE 
is zeroed, to show there is no longer an unpunched card image waiting. 

Next, if FL.PROS is 1 (it would have been set so when the image of the 
current card was set up, if it was an end-of-record card or the blank 
following an end-of-fiie card) it is zeroed and FL-OS set to 1 so that on 
the next trip through the main loop for this file the card just punched 
will be offset. Then FL-BGDO is reset to 0 or to 1 if FL-BCDN is 1; and 
FL-BCDN is reset to 0- FL.BGDN causes subroutine PGHHEW to punch in 
BCD mode, while FL-BGDO does the same for PCHOLD. Finally, go back to 
LPD99- 

88* Observe that because FL-OS was 1, the punch cycle has been completed and 
control has gone back to LPD99 without checking the previous card for 
compare error- It must have been either the blank following a 6-7-8-9 
card, in which case the check hardly matters, or a 7-8-9 card, in which 
case it might matter- The excuse for skipping the check on an offset card 
is that if it were bad, remedial action would result in punching a cluster 
of offset cards preceding the final offset 7-8-9 card, which would be 
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confusing- A file coming out of the punch has to have its offset cards 
checked anyway, to get rid of those that do result from compare errors, 
and the 7-8-9 cards can be checked for plausibility at the same time. 

89. Now if FL.OS was 0, below PCDM just after PCHNEW and READY were called, 
control comes to PGDN. Here bit 10 of the status byte left by subroutine 
READY in cell STAT is checked. If this is 0, we can go back to PCDP, 
just as we did in the case of an offset rather than a check. But if it 
is 1, the card preceding the one just punched has given a compare error; 
it has to be offset; then re-punched, hopefully well; then the card just 
before the offset, which is the significant card here but is now waste 
paper; then the wasted card is re-punched and goes back to PCDM, as if 

it had just been punched for the first time, and we repeat the cycle until 
there is a good check on the card preceding the significant one (the one 
whose image was most recently constructed). 

90. So on detecting the bad bit in STAT, overlay subroutine B.MSG is called 
to put the message CPnn COMPARE ERROR on the system dayfile (a B-display 
message Is unnecessary here because no operator action is called for; in 
contrast to the corresponding situation on a card reader, the punch can 
just grind out cards over and over until it gets them right). Then function 
3, offset, is passed to subroutine FCN; if the return is with 0 in the 

A register all is well and control goes to PCDNA. If the return is non¬ 
zero, the function was not accepted and the channel, 6681, and punch have 
been released- It is no use trying to repeat the function, as after a 
delay it will be ineffective anyway. But before passing on to PCDNA, 
where punching will be done again, the channel must be reserved, the 6681 
selected, and the punch connected. Before doing this, at PCDNB, LPC is 
called to let the other files have a chance while this punch is balky. 

Then call RES; If the return is with 0 in the A register all is well and 
processing continues; but if not, there is a return to PCDNB to try LPC 
and RES agaln- 

91. At PCDNA subroutine MOVIM is called with OOOOOIB in the A register. This 
causes it to copy into IMAGE through IMAGE+79, from one of the save areas 
after the buffer, the image which is not the one last constructed and 
saved; i.e, the image of the card preceding the one to be punched, of the 
card that gave the compare error. Then subroutine PCHOLD is called to 
punch this previous card. If the return is with non-zero in the A register, 
the punch rejected a function, and HR goes back to PCDNE above to try 
again. Otherwise, READY is called to wait, while not hanging up other 
files, until the punch is again ready and not busy. Then FCN is called 
with 3 (offset function) in the A register, to offset the significant 
card, even though it may not have given a compare error. If the return 
from FCN is with 0 in the A register, all is well and UR goes back to 
PCDM, as though about to punch the card in question for the first time. 

If the return is with non-zero, it is no use repeating the function, which 
after a delay would be ineffective, but everything has been deselected 
and released, so IIR goes to PGDL to call RES and READY before getting 
to PCDM. 


March 1969 


16-55 



SCOPE 


92. Neglecting the possibility of FL.OS being 1, which by-passes checking, 
and neglecting the possibility that the punch might reject functions, 
one can say that the series of steps for punching card number n is: 

1. punch card n, and wait for ready and not busy. 

2. if the status is not compare error, we are finished. 

3. if the status is compare error, give a dayfile message. 

4. offset card n-1, which is the one in error. 

5. recover the image of card n-l and re-punch it. 

6. wait for ready and not busy, then offset card n. 

return to step 1, where the image of card n is recovered from central 
memory before being punched. 

93. We have now described everything that concerns punching in particular, 
except some subroutines that are left to be grouped with subroutines in 
general at the end of this description. 

^4. To print a line, we take words from the buffer and store them in the area 
just after the buffer Itself, beginning at LIMlT+l (i.e. BUFLG-31 words 
after the beginning of the buffer). This provides a space of 37B words 
to store the line. The word at LIMIT itself, i.e. the first word after 
the buffer proper, is used to record our progress in constructing the 
print line. It has the form: 

VFD 12/a,12/b,12/c,12/d,12/e 
where, in the first phase: 

a is the number of bytes that have been taken from the buffer and stored 
in the print line area so farj naturally always a multiple of 5. 
b is initially 0, but as soon as PL.LXNE is set to I, showing that line 
construction has begun, it is set to a program address indicating how 
far construction has got. On future occasions when we get to LPRQ, if 
FL.LINE = 1 we branch immediately to this address, b, in KEY+l, Usually 
it is set by calling subroutine SETBR, which sets KEY+l to contain the 
address next after the RJM SETBR call, and then returns to that address, 
c is set to contain the first byte of the line to be printed, as soon 
as it has been read from the buffer. 

d Is set to contain the first byte of the next line, as soon as it has 
been read from the buffer, because this information is also needed to de¬ 
cide what skip functions to give before and after printing, 
e is not used during the first phase. 

When the whole line has been gathered, we begin the second phase and signal 
this by adding 4000B to a. Then we look at the format characters of this 
11::6 ^:^d the next one, and replace c, d, and e by a series of 6—hit printer 
function codes, using 70B, 7IB, or 72B to Indicate actual printing. As 
each of these codes is obeyed, the 36-bit field is shifted 6 bits left¬ 
ward, and when the whole field is zero, processing of the line is complete. 
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In cases where the print line image area has been set up not by copying 
from the buffer, but by a part of the program that has to add a message 
to the print file, byte a is set to 6000B + the length of the message- 
The 6000B toeans the same as 4000B, concerning how the remainder of this 
control word is to be interpreted, but also means that the line is in 
display code* If the printer is a 512 working in extended array mode, 
the overlay B*TRANS will have to be called, before printings to translate 
the line from display code to extended array code, and then subtract 
2000B from a* 

95- After storing the n\jmber of CM words in the buffer in WC, we branch from 

below LPDIE to LPR if TYPE shows the file is being printed- At LPR, we 

check the status of the FET- If it is 3 (INITA) or less, it must be the 
initial value 3, and we have not even set up the first initial page image; 
so we call overlay B.LINIT, to set up this image, at LPRN- But first, 
for a 512 printer, we call subroutine IMFIL to initialize its print image 
buffer. 

96- If the FET status is more than 3 but not more than 7 (INITB), it must 

be 7, and the first initial page image has already been set up. If WC 

contains 0, we have printed all of that iniage, and return to LPEN to call 
B.LINIT and set up the second initial page image. If WC does not contain 
0, we go to LPRQ to continue printing whatever is in the buffer- 

(One might ask why we call B-LINIT twice for two page images instead of 
having them both put into the buffer with one call. The answer is that 
one page image occupies more than half of 340B CM words, though less than 
340B. So for the minimum value of BUFLG, 400B, giving an effective buffer 
size of 340B words, one but not two page images can fit at once into the 
buffer-) 

If the FET status is more than 7, we do not have to worry about setting 
up initial page images longer, and branch to LPRO- See section 104 
below. 

97- In overlay B-LINIT, overlay subroutine B-FGIA is called first; it is really 
just a table of visible character images- Calling B-FCIA gets the table 
into the high end of overlay storage, and when we enter the overlay as 

a subroutine we exit immediately without doing anything. Next we zero 
IN, in which we shall count the number of CM words put into the buffer, 
and set OUT to contain address IMAGE. This use of IN will be compatible 
with its normal use, and OUT will be set to 0 by overlay subroutine B.SETP, 
called at the conclusion of B.LINIT- 

98. The page image is to begin with a page skip and 3 blank lines. A CM word 
in the buffer with 21B (display code Q) for its leftmost character and 
zero for the rest will produce a selection of 6-line spacing (in case 
the printer is a 512), a reset of auto page ejection, a page skip, and a 
blank line. A CM word with 46B (display code minus) for its leftmost 
character and zero for the rest will produce an extra double space and 
a blank line, i.e. the equivalent of three blank lines. So one of the 
former and ten of the Latter will do the first part of our business- 
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Subroutine LIND is called with 11 in the A register; it begins by saving 
this in D.Z3> as the number of CM words to be constructed; then multi¬ 
plying by 5 and storing the result In D*Z2 and D#Z1| as the number of bytes 
they contain* Then it zeros that many bytes^ beginning at IMAGE; then 
goes back to reset the first byte of each group of five to 4600B* Then 
it resets the first byte of the whole group, at IMAGE to 2100B, for the 
initial page skip; then alters the instruction at LINDA so that when we 
call LIND for the second time during the construction fo this page image, 
the change from 4600B to 2100B will not in fact happen. Then we call 
subroutine LING, with the number of CM words in the A register, to add 
them to the page image In the buffer- 

99* Now the next 12 lines of the page image are to provide a visible copy 

of the 7 characters of the job name, made out of dollar signs and blanks. 
These 12 are actually 6 pairs of lines^ as each character image is an 
array 6 high and 10 wide, with each row doubled on the page to make the 
image tall rather than squat. Each character is 10 wide, and a gap of 
two columns after each character makes 12 columns, or 6 bytes per character, 
or 42 bytes for the whole name. An extra pair of blanks before the first 
character image, and two extra pairs after the last, makes 45 bytes. 
Following all this on each of the 12 lines, should be the job name in 
ordinary print; so it is now copied from the first word of the FET to 
XMAGE+45 through IMAGE+48, with a zero byte in IMAGE+49 to terminate the 
line; the rest of each of the 12 lines will be constructed in IMAGE through 
IMAGE+44. Now D-Zl is zeroed, in which to count lines in the picture; 
however, it will count up to 6 rather than 12, as after constructing each 
line we put it into the buffer twice, 

100, This brings control to LINAD, where D.TO is set to point to the beginning 
of a line, blanks are put in the first byte of the line, and we step 
D.TO* Now in any of the entries in table FCIA, there are 6 rows of 10 
columns represented in such a way that 4040B,4040B,4040B,4040B would be 
dollar signs in all 10 positions of the top row and blanks elsewhere; 

010IB,010IB,010IB,010IB,010IB would be dollar signs In all 10 positions 
of the bottom row and blanks elsewhere; 7700B,OOOOB,OOOOB,OOOOB,OOOOB 
would be dollar signs in all six positions of the leftmost column and 
blanks elsewhere; and OOOOB,OOOOB,OOOOB,OOOOB,0077B would be dollar signs 
In all six positions of the rightmost column and blanks elsewhere- So 
to extract from a byte in the table, using a mask 010IB, the relevant 
bits for two adjacent columns in the current row, first the bytes must 
be shifted 5 right for the first row, 4 right for the second... and 0 
right for the sixth row. So the correct shift is set up at LINAE* Then 
D.Z3 is zeroed, in which characters taken from the job name in CUEFET ff, 
will be counted. 

101, At LINAB begins the loop for each charcter, within the loop for each row. 

To the current character corresponds a number between 0 and 6, in D.Z3. 
Characters 0 and 1 are in CURFET, 2 and 3 in CUEFET+1, and so on. The 
character is extracted, its display code value multiplied by 5 and the 
result left in D.Z4* This is the offset from FCIA for finding the beginning 
of the table entry for the character. Now D,Z5 is zeroed in which a count 
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is kept of the number of bytes of that table entry used so far. Then, 
at IfINACj fetch the next byte from the table, shift it appropriately 
right, and extract the bits pertaining to the current row using the mask 
OlOlB. Then shift the result left once and subtract it from 5555B| this 
gives a display code blank corresponding to a 0 bit in the table, and 
a display coda dollar sign (53B) corresponding to a 1 bit in the table. 

Store the two characters sc obtained at the next available position in 
the line image, to which D,T0 points, and step D-TO, Also step D-Z4, 
to address the next byte of the FCIA table entry for this character, and 
counting bytes already used. If D-Z5 has reached 5 the entry has 
been used up as far as this row is concerned; otherwise return to LINAC. 
After putting 5 bytes into the print line image for this character of 
the job name in thisrow, put in two more blanks to provide a two-column 
separation between characters iti the final picture, and step D-TO accord¬ 
ingly. Next step the number of the character within the job name, in 
D,Z3* If it has reached 7, all the characters have been done for this 
row; otherwise return to LINAB to begin the next character. If all the 
characters have been done, IMAGE through IMAGE+42 have been filled; now 
blanks are put in IMAGE+43 and IMAGE+44. IMAGE-h45 through IMAGE+48 already 
contain the job name in display code, and IMAGE+49 is a zero byte to 
end the line. So now subroutine LING is called twice, with 10 in the 
A register each time, to put the lO-GM-word line image beginning at 
IMAGE in the buffer twice. 

102, Next 1 is added to the count of lines completed in D-Zl, and if it has 
not reached 6, return to LINAD for the next line* At 6, the picture is 
complete. 18 blank lines must now be added to the page image, which 

can be done by adding six CM words, each beginning with 46B and continuing 
with 54 zero bits, to the buffer; such a CM word produces two extra vertical 
spaces plus a blank line. So subroutine LIND is called with 6 in the 
A register, to do this* Note that LIND has already adjusted itself so 
that it does not put a page skip instead of a two-line skip in the first 
word. 

103. Finally, it is necessary to add 5 lines to the page image (the 61st 
through 65th) each consisting of two blanks followed by 66 dollar signs. 

Such a line is set up, with a zero byte to terminate it, in IMAGE through 
IMAGE+44; then subroutine LING is called four times, with 9 in the A 
register each time, to add this line image to the page image four times- 
The page image is complete; everything has been put into it by subroutine 
LING, which has kept a running total of CM words in IN . 4 is added to 

the FET status, and subroutine WTFET is called to make the change in 

the FET itself as well as CimFET4. INITA is being changed to INITB 
(3 to 7) after setting up the first page image, or INITB (=7) to 13B 
after the second- The FET pointers must still be set to reflect the page 
image at the beginning of the buffer; the length of the image is in IN; 
overlay subroutine B.SETP (it overlays B.FCIA, which is no longer re¬ 
quired) is called to set the FET so that 01JT=FIRST nad IN=F1RST + the 
length in IN, and to set the PP pointer OUT to zero. Finally, we return 
to LPDLE, where processing of the first line in the page image will begin. 
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104p We come from LPE to LFRO if both initial page images have already been 
set up* Now if the buffer contains fewer than 63 words, and the FET 
status was not end-of-record or end-of-file when we were at LPDlE, sub¬ 
routine CIO has already been called to refill the buffer. If the status 
was end-o£-record/file, we could not have called CIO there because for 
a punch file it is necessary to punch an end-of-record/file card before 
processing the next record. Here, however, we have a print file and 
can go ahead with CIO* 

105- Overlay B-LPEOR is called here if the print file buffer contains fewer 

then 63 words, and the status is end-of-record/file but not end-of*infor- 
mation* The only complication is that perhaps the current record ends 
in a CM word whose last byte is not zero, so that the beginning of the 
next record would appear to continue the last line of the current record* 

This can scarcely have been intended, so if the buffer is not empty (if 
it is empty, the above mistake could not occur) and if the last word in 
the buffer does not end with a zero byte, we call subroutine XFR to add 
a zero word to the buffer* Whether or not XFR is called, we then call 
subroutine CIO to refill the buffer, and return to LPDIE to take another 
pass at this file- The count in WG will not have changed by more than 
1, but CIO will have altered the FET status so that it is no longer end- 
of-record* 

106. If B-LPEOR was not called, we come to LPRQ. Now if FL.LINE = 0, we have 
not begun processing this line and go to LPRA. If FL.LINE ^1, we call 
subroutine LLRD to copy the print line area from central memory to KEY ff*, 
and branch to the address contained in the second byte of the control 
word, at KEY+1* 

At LPHA, we begin work on a new line by zeroing the control word model 
at KEY through KEY+4, setting FL.LINE ^ 1, and calling subroutine SETBR 
to set the address in KEY+1 to LPRC- Now from LPRC, if the buffer is 
not empty, we go to LPD14- If it is empty and the FET status is end- 
of-information, we go to LTER to terminate the file. See section 126 
below. If the buffer is empty but the status is not end-of-information, 
we go to LPRD. 

At LPD14 we subtract 1 from WG, for the word we are about to read from 
the buffer, for the sake of the tests at LPD13D and LPRK below* Then 
call subroutine YFR, having put the address D-TO in D.22 to tell it to 
read a word into D.TO through D.T4. If the return from YFR is with zero 
in the A register, the buffer was already empty, so we go to LPRD as we 
did above in the case of empty buffer- Otherwise, to LPDllA- 

107, At LPDILA, if KEY does not contain zero, we have already dealt with the 

first byte of the line, and go to LPDllB- If it does contain zero, and 

FL-LONG = 1, this is not truly the first word of a line, but merely follows a 

break we had to make in the middle of an over-long line; so we use 

5555B (two blanks) as the first byte of the Line for control purposes* 
Otherwise, we copy the first byte from D*T0 to KEY+2. If it is 
we call subroutine SETBR to put address LLDIS in KEY+1, and then go to 
LLDIS to call overlay B.DIS; this line is to be displayed rather than 
printed* See section 118 below* If the first byte is not we go 

to LPDllG, where we put 0 in the A register and go to LPDllB* This is 
analogous to the branch from LPDllA, with the contents of KEY in the A 
register, if those contents were not 0. 
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At LPDllB we add BUF-1 to the contents of the A register to show^ in D.Zl, 
where to begin storing this word in the line image area. The addend is BUF-1 
rather than BUF, because as the CM words are copied into the image, they are 
shifted one character left in order not to print the first character of the 
line. The first character will go into the right half of BUF-l, which is KEY+4, 
where it will be ignored. (It Is already in KEY-1-2 for use as a format charact¬ 
er.) The second and third characters go into BUF, and so on. Now we store the 

ten characters in D.TO through D.T4 in the right half of the byte D.Zl initi¬ 
ally points to (BUF-1 for the first CM word), the next four bytes, and the left 
half of the next byte, zeroing its right half (BUF+4 for the first CM word.) 
When D-Z2 reaches D.T5, 5 is added to KEY, indicating that 5 more bytes have 
been moved into the line image beginning at BUF. Then if D.T4 contains 0, this 

was the last CM word of the line, and we go to LPD13. If not, and KEY does not 

contain 155, we return to LPDIA to get the next CM word. But if KEY contains 
155, we call subroutine SETBR to set the address in KEYH-l to LPD13D, and then 
go to LPD13D, where we see if WC contains 0. If not, we are definitely faced 
with an over*length line, so we set FL.L0NG=1 and then go to LPEH to begin the 
second phase of processing the line image- If, at LPD13D, WC contains 0, there 
is a chance that we have just picked up the last CM word of the record. So we 
go to LPRE and check for end-of-record status; if yes, go to LPRH without 
setting FL.L0NG=1, as the next line will be at the start of a new record and 
its format character will be a proper one. If not end-of-record, it is still 
possible that the FET status may become e.o.r. without any additional words 
being read, so go to LPRG to copy the print line image back into CM, update the 
OUT pointer in the FET, and return to LFD99* The next time we pick up this file, 
we will branch from LPRQ to LPD13D to see if further reading of the file has 
resolved this point. 

108. We come to LPD13 when we have found a proper line terminator- We call subrou¬ 
tine SETBR to set the address in KEY+1 to LPRK, and then, at LPEK, see whether 
the buffer is empty. If not, we read (hut without altering the OUT pointer as 
subroutine YFR would; i.e, we are peeking ahead here) the next word in the 
buffer, which is the first word of the next line, and put its first byte in 
KEY+3 for use in format decisions* But if the buffer is empty, we go to LPRE 
and check the FET status. If end-of-record, we need not consider the first 
byte of the next line, so we go to LPRH and continue. If not end-of-record, 
however, we go to LPRG to store the line image and control word back in 

CM, update the OUT pointer in the FET, and return to LPD99- The next time we 
pick up this file, we will branch straight from LPRQ to LPRK to see whether 
further reading has either found e.o.r* with no further information, or has 
brought the first word of the next line to the buffer. 

109. We come to LPRD if, before finding a line terminator or reaching the limit of 
155 bytes, we find empty buffer* Then if KEY contains zero, we have not really 
begun preparing the line image, and so can just reset FL.LINE to 0 and go 

to LPR99 to update the FET OUT pointer and return to LPD99# 
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But if not, ve go to LPRE and check for end-of-record status* If yes, we let 
it mean the end of a line, so we branch to LPRH. If not e.o.r- status, we go 
to LPRG to write the line iniage and control word back to central memory, update 
the FET OUT pointer, and return to LPD99. The next time we pick up this file, 
we will branch from LPRQ to LPRC, to see if further reading has enabled us to 
go further with this line* 

110* We come to LPRH when we have taken all we want or all we can get from the buffer 
for this line, and are ready to begin thfe second phase. Call subroutine SAVOUT, 
to update the FET OUT pointer, and zero D,T1 through D.T5. We are going to 
prepare a new control word in D.TO through D.T4, and the counter initialized in 
D.T5 will be used in this- The first byte, D-TO, is formed by adding 4000B, the 
second phase indicator, to the line length in KEY- The second byte is set to 
address LPRL, so that on all future occasions when we pick up this file for this 
line, we will branch from LPRQ to LPRL. At the moment, we are going to complete 
the new control word without interruption and pass then to LPRL. 

Now If FL.SI^I, format control on this file has been suppressed by operator 
type-in, and we are to behave as though every line began with a blank format 
character, so we go to LPD40. We also go to LPD40 if KEY+2 and KEY+3 show that 
both this line and the next began with blanks. This is the simplest, and 
hopefully commonest, case. At LPD40, we set KEYH-2 to contain 7000B, so th^ 
the new control word is: 

VFD 12/4000B+a,12/LPRL,6/70B,6/0,6/0,6/0,6/0,6/0 

where a is the length of the line image. The six-bit fields represent printer 
functions, from left to right, and 70B means print the line image. So beginning 
at LPRL we shall just print it. From LPD40 we come to LPRW, call subroutine 
LLWT to copy the old control word and the line image back to central memory, 
and then write the new control word from D.TO through D.T4 on tcsp of the 
old one. That brings us to LPRL, 

But if we do not go to LPD40, we probably have a more complicated format 
action required, and must call overlay B.FOEMAT, This will set up a control 
word: 

VFD 12/4000B+a,12/LRPL,6/b,6/c,6/d,6/e,6/f,6/g 

where a is the length of the line image, and b through g are printer action 
codes to be executed from left to right, with unused slots occupied by 
zero- Then return to LPRW as above. 


Overlay B.FORMAT 

111, Note first of all that any pre-print skips, other than skips to top or 

bottom of page, will be achieved as post-print skips on the preceding line; 
or if the preceding line already has a post--print skip, a one-word blank 
line will be interpolated to carry the pseudo-pre-print skip. This is logical¬ 
ly less simple than using the printer pre-print skip functions, but in the end 
it usually means fewer hardware functions actually sent to the printer- 
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No hardware functions can be done in an overlay, as they involve waiting. 

So in this overlay we accumulate a list of hardware functions to be done 
afterwards. Each function is represented by its actual hardware code; except 
that printing the line is represented by 70B; printing a one-word blank line 
(as a way of interpreting a pre-skip after a post-skip) is represented by 
71B. 70B followed by lOB is more compactly expressed by 72B; this is necessary 
whenever the 70B follows a post-print skip selection on a 501 printer, though 
not on a 512 printer, in order that the lOB function may clear the selection 
after the skip has taken place. This list of things to be done is kept in bits 
0-35 of the control word in the print line storage area; i.e* in KEY+2, KEY+3, 
and KEY-t-4; but in this overlay we are initially constructing it in D.T2, D.T3, 
and D.T4, which have been pre-zeroed, and a count of how many functions have 
already been inserted is maintained in D.T5, initially zero* 

112. Subroutine DO is used to add a function to the list and if necessary to charge 
for it. On entry, the function is in bits 0-11 of the A register, and the 
number of lines to be charged for it is In bits 12-17. The former is saved in 
D.Z2, and the latter is added to the total line count in bits 0-23 of the 7th 
word of the FET. D.T5 contains the number of functions already in the list; if 
we express this as 2pH~q, where q is 0 or 1, the new function is to be stored 
in the left (for q=0) or right (for q=l) half of D.T2-fp. After storing it 
there, we add 1 to D.T5. 

The 36-bit space restricts us to not more than 6 functions fox a single line, 
but this is more than enough at present because of the use of the combination 
code 72B for 70B followed by lOE. 

So to begin doing this overlay, at FOEMATX, we get the format character of 
the current line from KEY-i'2. If it is Q, we should reset auto page skip, do a 
page skip unless the next line already calls for one, and not print the 
current line. So we set FL.AUTCM3, and pass a reset function through DO, lOB 
for a 501 printer or 30B fox a 512. In case of a 512, we also have to consider 
that the reset will have selected 6-line spacing as well as resetting the auto 
page skip. If the file was supposed, in fact, to be in 8-line spacing, FL.8LL 
will =1, and in that case we pass a lOB function through DO; for the 512 this 
means select 8-line spacing. Then go to SPCV to deal with the first character 
of the next line. 

If the first character of this line is not Q, we go to SPCA and check for R. 

R means we should not print the line, but do auto page skipping till further 
notice, and also do a page skip before the next line. So we set FL.AIJT0=1. 

This will remind us, whenever we do a reset function for a reason other than 
clearing auto page skip, that we must renew the auto page skip function- Then 
with 5, the auto page skip function code, in the A register, we go to SPGVA 
to send that code to the printer, and then, at SPCV, deal with the first 
character of the next line. 

At SPCV, if the first character of the next line is found to be 1, this will 
produce a page skip when that line is processed, so we go back to LPRW. Other¬ 
wise, we first provide a page skip by putting 4, the function code, in the A 
register and going to SPCN, where we shall pass the code through DO and then 
deal with a possible pre-print skip code in the next line. 
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If the first character of the current line is not Q or Rj we go to SPCB, 
and if S or T, go to SPCP* These characters are for not printing the 
line, but selecting 6-line and 8-line spacing respectively; but if FL,512 
= 0 they are irrelevant and we go back to LPRW* Otherwise, we set FL.8LL 
= 1 for 8*-line or 0 for 6-line spacing; pick up the function code, lOB 
or IIB, and branch to SPCN to put it through DO and then deal with a 
possible pre-print skip code in the next line- 

If the first character of the current line is not Q, R, S, T, A, or E, 
we branch to SPCG. For A or B, meaning post-print skip to top or bottom 
of page, we successively pass through DO a 6, for suppress normal spacing 
after print, and 70E, for printing the line; then we put 4 or 3, for skip 
to top or bottom, in the A register, along with a change of PC-SKIP lines, 
and go to SPCN, where we pass the code through DO and then deal with a 
possible pre-print skip code in the next line- For post-print skip to 
top or bottom of page, there are specific functions in the 512 printer 
but not in the 501 printer, so for both printers we handle it indirectly 
a s above. 

113* At SPCC, we see if the first character of the current line is G through 
L, calling for a post-print skip* If not, go on to SPGE; if so, with 0 
through IIB in the A register, representing C through L, call subroutine 
POST to add the proper post-print skip function, if any, to the list. 

On return from POST, the A register contains 2 if a post-print skip 
function for the 501 printer was added to the list, and otherwise zero 
or 777777B. So we add 70B to this and pass the result through DO; i.e. 

70B for a simple printing of the line, or 72B for a printing followed 
by a lOB function to clear the post-print selection on the 501. This 
brings us to SPCN. 

At SPCN we put a function, which has in every case been mentioned above, 
through DO and then consider the first character of the next line via 
subroutine EV. In general, where the format character of a line (the next 
one) calls for a pre-print skip, we would like to accomplish it by a 
post-print skip on the preceding line (the current one), and this is how 
we shall do it at SPCM below. But for all the cases considered so far, 
either the current line is not to be printed anyway, because it is merely 
a carrier for format character Q, R, S, or T, or it called for its own 
post-print skip with a format character A through L- Now if the return 
from subroutine EV is with the A register negative, the first character 
of the next line Is not 3 through 9 or X through Z, i.e- does not call 
for a pre-print skip, and we have nothing further to worry about; so we 
exit from the overlay to LPBW* If the return is positive, however, EV 
has translated the format character of the next line into a number between 
0 through IIB, and with this we call subroutine POST to set up the corre¬ 
sponding post-print skip code, if any, and send it through DO. If the 
return from POST is with 0 in the A register, no post-print skip code 
was sent through DO (there are fewer channels on the 501 format tape 
than on the 512, so some format characters turn out to be simply in¬ 
applicable for the 501) and we can exit to LPRW. But otherwise, we must 
supply a blank line for the post-print skip to be applicable to, as it 
certainly must not apply to the next line of the text, which is calling 
for a pre-print skip. So we send 7IB, calling for a one-word blank line 
to be printed, through DO and then go to LPRW. 


16-64 


March 1969 



SCOPE 


We come to SPCE if the first character of the current line is not Q, Rj 
S, T, A, B, or C through L. If it is 3 through 9 or X through Z (pre¬ 
print skip) we are not interested in it, because the proper equivalent 
action was set up when the preceding line was processed. If it is 1, 
we take 4 (skip to top of page function) to SPCJ unless FL.PAGE = 1, 
in which case go to SPCG. When FL.PAGE = 1, the next line to be printed 

will be preceded by a page skip anyway, so there is no point in inter¬ 

preting Its first character as another page skip. If the first character 
of the current line is 2, we take 3 (skip to bottom of page function) 
to SPCJ. Along with function 4 or 3 goes a charge of PC.SKIP lines. 

If it is 0 or we take 1 or 2 (single or double extra space function) 

to SPCJ. 

At SPCJ, we put the function through DO and arrive at SCPG. Here we 
check the first character of the next line to see if it is 1, 2, or +. 

If any of these, pass a 6 code (suppress normal post-print space) through 
DO and go to SPCGE. Otherwise go to SPCM. The suppression before + 
is obvious, and ensures that the next line will be overprinted on the 
current one. (Note that we did not get here if the format character of 
the current line was A through L, calling for a post-print skip.) The 
suppression before 1 and 2 is not so obvious, but Is logical in terms 
of the specifications. 

At SPCM we call subroutine EV to see if the next line format character 
calls for a pre-print skip, which we can accomplish as a post-print skip 
on the current line. If not, the return from EV is negative, and we go 
to SPCGE. If so, we enter subroutine POST with the appropriate number 
between 0 and IIB in the A register. If POST passes a 501 (not 512) 
post-print skip code through DO, the exit is with 2 in the A register; 
otherwise with 0 or 777777B; we add 70B to this and pass the result through 
DO; i.e. 70B, meaning print the current line, or 72B, meaning print the 
current line and then do a lOB function to clear the post-print selection 
on a 501 printer. After that, return to LPRW. 

If we go to SPCGE, because the first character of the next line does not 

call for a pre-print skip, we send 70B through DO, for simply printing 
the present line, and then go to LPRW. 

114. Subroutine EV fetches the first character of the next line from KEY+3. 

If the character is 3 through 9, EV exits with 0 through 6 in the A re¬ 
gister. If the character is X through Z, EV exits with 7 through IIB 

in the A register. These exit values are 3 below the binary value of display 

codes C through L, which correspond to 3 through 9 and X through Z as 
post-print skip characters to pre-print skip characters, the exit from 
EV Is with the A register negative. 

115. Subroutine POST Is entered with 0 through IIB in the A register, corre¬ 
sponding to C through L as the format character of the current line, or 

3 through 9 or X through Z as the format character of the next line. 

This number is saved, and then we branch to the top part of the sub¬ 
routine (POSTZ) for a 512 printer or continue with the bottom part for 
a 501. For a 501 printer, if the entry number is 6 or greather (corre¬ 
sponding to format characters I through L, 9, and X through Z, there is 
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nothing to be done, and we merely exit from POST with 0 in the A register, 
Showing that no post-print select clear will be needed after the next print# 
Otherwise, for a 501, we turn the entry values 0 through 5, representing 
channels 6 through 1, into function codes 16B through IIB (select post-print 
skip to channel n-lOB); send the resultant code through DO along with a 
charge of PC.SKIP lines, and exit from POST with 2 in the A register, indica¬ 
ting the need of a clear function after the next print. 

At POSTZ, for a 512 printer, we turn the entry value 0 through llB into a 
charge of PC.SKIP lines plus function code 36B, 35B, 34B, 33B, 32B, 43B, 37B, 
40B, 4iB, or 42B, pass the code through DO, and then exit from POST with 
777777B in the A register. This number counts a s non-zero to the ZJN test 
just below SPCY3 (a 71B "furction” will be required) but as zero when it is 
added to 70B just above SPCN and below SPCGE (as a 512 post-print skip does 
not need to be cleared after printing.) Functions 32B through 43B are 30B+n, 
calling for a post-print skip to channel n. 

116- We come to LPRL when we have conqjleted the second phase of preparing the print 
line image and control word, and are ready to start using the hardware. 

The control word looks like this: 

VFD 12/4000B+a,12/LPRL,6/b,6/c,6/d,6/e,6/f,6/g 

where a is the number of bytes in the print line image (the first byte may 
also be 6000B+a, as noted below), and LPRL in the Second byte means that if 
we go to LPD99 before finishing with the line, we will get to LPR, from there 
to LPRQ, and from there directly to LPRL without trying to repeat the 
formatting process, b, c, d, e, f and g are printer functions to be carried 
out in that order, and the first zero found in the sequence indicates the end 
of the series of functions. 

We call subroutine RES to reserve the channel, select the 6681, and connect 
the printer, ^f it fails, the return is with non-zero in the A register and 
we return to LPD99. Otherwise check FL.PAGE. If =1, this is an overriding 
call for a page skip before printing the line. So we zero PL.PACE and put 
function code 4 (skip to top of page) in DEEP2, where each function is stored 
before execution. At LPRLC, call subrnutlne READY to wait, with switching to 
other files as required, till the printer is ready and not busy. Then pick up 
the function code and send It to subroutine FCN for execution. If the return 
is with zero in the A register it was accepted and we go to SPC5; otherwise 
reserve the printer again and return to LPRLC; or if subroutine RES fails, 
return to LPD99. 

117. We come to SPC5, with the printer reserved, if FL.PAGE=0 or when it has been 
obeyed. Now, if the printer is a 501, and FL.AUrO=l, and DEBP2 shows that the 
last function was lOB, we must renew the auto page skip select; so we go back 
to LPRLB with 5, the proper funcd. on*code, in the A register. Otherwise, 
arrive at SPC5N. Here we read the control word from the print line area to D.TO 
through D.T4. Then the first, or next, printer function to be done is in the 
left half of the third byte, at D.T2. If this is 0, we have finished the normal 
processing of the line and go to SPC57. Otherwise, we store this function code 
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in DEEP2, and then shift the 36*^bit field in D.T2 through D.TA six bits 
left, squeezing out the function code just saved in DEEP2, bringing the next 
one into the left half of D.T2, and introducing a zero at the right endp Then 
write D*TO through D.T4 back to the first word of the print line area. 

Now pick up the function in DEEP2 and see if it is 70B or greater* If so, 
it calls for printing a line, and we go to SPC53. Otherx^ise, it is a hardware 
function code, and we go to LPEhC to wait for ready and no t busy status in 
subroutine READY, Issue the function via subroutine FGN, and return to 
SPC5 for the next function. 

At SPC53, we store the code minus 70B in DEEP2* Now before printing, either 
(a) for a 501 printer call HEADY to wait (with file switching) till the printer 
is ready and not busy, or (b) for a 512 printer call RUDDY to wait (with file 
switching) till the printer is ready and memory not busy* Then, at SPC53B, see 
if the code was 7IB or not. If not, go to SPC53A to print the line images but 
if so, we must now print a minimal blank line. This is done by setting the byte 
count in WC to 1, and making the byte in BUF=OOOOB, i.e* two blanks, and going 
to SFG51. At SPC53A, on the other hand, we call subroutine LLED, which reads 
the control word into KEY through KEY-f4 and the line Image into BUF ff.j then 
set WG to contain the byte count in KEY. If the 2000B bit of KEY is 0, we can 
go straight to SPC51 to print; but if not, this is a line that was created by 
the program as a message. If the disposition code is 44B, we are printing this 
file in extended array mode, and must, before going to SPC51, call overlay 
B.TRANS to translate the message frcxn display code to extended array code 
(one byte per character). 

Overlav B.TRANS 

117A. As we are going to translate from two characters per byte to one per byte, 
the byte count in WC has to be doubled, but not above 155. So we reduce the 
count to 77 if it is too large, and then put the same old byte count in D.Zl 
and twice it in D.Z2 and WC; and set KEY to 4000B-Ht:he new byte count rather 
than 6000B+ the old one. 

Working from right to left, to avoid putting new data on top of unused old 
data, we translate the 2x display code characters in BUF through BUF^-1 
into 2x extended array characters in BUF through BUF+2x-l. If the binary 
value of a display code character is y, Its corresponding extended array 
character is in cell TRATAB^y. Table TRATAB is not now coded in the overlay, 
as extended array printing is not possible yet, but the table will have to 
be provided eventually. As the messages the program provides are the only thing 
that has to be translated like this, and as they contain no characters whose 
display codes are above 57B, only 60B bytes of table have to be provided. 

Having translated the line, we call subroutine LLWT to copy the new version 
of the control word and line image into the print line area* Then go 
straight to SPC51 to print the line, as the new version of the line is 
in BUF ffp, and the new byte count is in WC. 


March 1969 


16-67 



SCOPE 


i:7B. At SPC5I, we are ready to print the line. But first we suppress trailing 
blanks, to save time, and also to avoid 'trouble with lines formatted as 
140 characters but having four or more blanks at the end. LDM BUF-1,WC 
picks up the last byte of the line. If this is not OOOOB, 0055B, 5500B, or 
5555B, we assume it is not two blanks, and go to SPC55; all done. If the 
byte is one of these, we eliminate it by subtracting 1 from WC and try 
again. If WC reaches 0, we reset it to 1 and go to SPC55, so as not to make 
the line vanish. The preceding test will work for extended array printer code 
if the trailing blanks are represented by OOOOB, but not if by 0040B, which 
is the genuine hardware code for blank on the 512 printer in extended 
array mode. 

At SPC55, we add 1 to the total of lines printed from this file, in bits 
0-23 of the 7th word of the FET. 

At SPC52, we call subroutine PRT to print the line. Then call subroutine 
SALARM to set the alarm for this file to now +AL.LP msec., as the time 
before which the printer cannot possibly be ready and not busy, and it is 
pointless to start work on the next line. Next, if the printer is a 512, 
go to SPC59. But if it is a 501, we may have to issue a lOB function to clear 
a post-print skip selection on the line just printed. If DEEP2 contains 0, 
the ''function" we just did was 70B, and we don't have to, so we return to 
SPC5 to get the next function for this line. But if DEEP2 contains 1 or 2, 
the function was 7IB or 72B. 7lB was for a blank line created specially to car 
ry a post-print skip, representing a pre-print skip on the following line, 
so a lOB function is needed. 72B was for printing the current line, but its 
use instead of 70B indicates that it was preceded by a post-print skip 
function. So we put lOB, the clear function code, in the A register, and 
return to LPRLB to execute it before going to SPC5. 

117C. At SPC59, to which we come after printing a line on a 512 printer and 

s®tting the file alarm, we call RUDDY to wait for the printer to be ready 
and memory not busy, and theftcheck the printer status in STAT. The status 
is left there by subroutine STS, which is called by RUDDY; no switch to 
another file can have taken place between the time RUDDY found ready and 
memory not busy status, and the return from RUDDY to here. Now we check the 
two status bits that indicate printer function error; if both zero, go on 
to SPC60. If either fault is present, call subroutine REL and then subroutine 
IMFIL to refill the printer image buffer, which may have deteriorated 
somehow and caused the error. REL has to be called before IMFIL because 
IMFIL includes a call to subroutine RES. Now in all the code between SPG53 
and RUDDY-1, we assume that the printer is always reserved; in fact it is not. 
but the 
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times when it is not are hidden in the calls to READY* But since IMFIL 
expects to find the channel, 6681, and printer unreserved, unselected, 
and unconnected, we must call REL before calling it. 

After calling IMFIL, we call subroutine MAYMES to set LSTAT to WEOGER, 
to put the message PRINT ERROR^^ on the system dayfile, and to put the 

message ERROR-on the B- and J-displays. Then abandon 

this file for the moment by branching to LPD99. The fact that LSTAT 
contains status WROGER will, at LPDIA, prevent any further work on the 
file until the operator types in /OK for this printer. Before doing so, 
he may use a /BS type-in to backspace this file one or more pages, hoping 
for an error-free reprint of the page containing the line that gave the 
print error. 

If, for a 512 printer, neither print error status was found, we come to 
SPC60 to make a final check, for unprintable characters in the line 
just printed. See the description of subroutine PRT for the meaning of 
"unprintable^^ in this sense- If no such characters were found by PRT 
in this line, FL.CMESA=FL-CMESBH3, and we go to SPC5 to see what the 
control word calls for next. Otherwise, we call overlay B-CMES to print 
an unprintable character message immediately below the offending line. 


Overlay B.GMES 


117d. Either FL.CMESA for FL.GMESB is = 1, but not both. If the former, we have 
now to print, right under the line that contained one or more unprintable 
characters, a line consisting of a blank under each printable character 
and an X under each unprintable character. FL.CMESA was set ” 1 when the 
unprintable character(s) were discovered. If FL.CMES^l, we have already 
printed the line just described, and must now print the message "**t^^* UN¬ 
PRINTABLE CHARACTERS IN PRECEDING LINE This being the simpler 

operation, it will be described first. 

If FL.CMES^l, we know FL.CMESA was reset to 0 on the preceding call 
of the overlay, and now reset FL.CMESB. Then we copy, into the line image 
area, the control word and message beginning at CMES. The first byte 
of the control word is 6043B, indicating that the print line is 43B bytes 
long, that we are to treat it as having already gone through the first 
phase of preparation, and that it is in display code, so that in case 
this is a fl le being printed by a 512 in extended array mode, overlay 
B.TRANS will have to be called at SPG53A to put the message into extended 
array code. The second byte of the control word contains address LPSL, 
which is normal for a line image in the second phase. The third byte 
contains 7000B, indicating that the first printer action is to print 
the line (70B), and then no further action is needed (00B). Having copied 
the control word and message into the line image area, we branch to SFC5, 
where we shall read it back up from the line image area and get to work 
on It. Note that the printer is already ready and not busy. 
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117e. If FL.CMESA=1, we go to CMESA, reset it to 0, and set FL.CMESB=1 for 

the next trip through this overlay. Then call subroutine LLED to read 
the control word and line Image of the offending line from the line Image 
area, extract the length of the line from KEY, and store this in D.21 
and D.Z3. Then set the second and third bytes of the control word, at 
KEY+1 and KEY+2, to LPRL and 7000B for the same reasons as in the pre¬ 
ceding paragraph. KEY+3 and KEY+4 are zeroed, but this is probably not 
necessary. Now we must be printing this file with a 48-character set 
or a 288-character set, as a 64-character set could not consider any 
display code character unprintable. We assume that the disposition code 
for the 4a-character set would be 43B, and thus branch to CMESE for 48 
characters or GMESF for 288 characters. 

Beginning at CMESF, we scan the line image byte by byte, and replace any 

byte greater than 289 by 0030B, and any other byte by OOOOB. Then at 

CMESH, we work through the line image from left to right, discard the 
left half of each byte, and combine the right halves of pair of adjoining 
bytes into a single byte, thus halving the length of the line image. 

By this extra step, we get a line image of display code X's and blanks 
that will get expanded later back into extended array code by overlay 
B.TRANS. We seem to be doing a useless step here, but in fact we do 

not know, in general, what the extended array code for X will be5 so 

it is easier to set up the line in display code and leave the decision 
to B.TRANS. We determine when we have finished this conversion by sub¬ 
tracting 2 from D.Z3 for each pair of bytes combined into a single byte. 

If D.23 reaches zero, there was an even number of bytes, and no problem. 

If it turns negative without passing through zero, there was an odd 
number, and the last pair of bytes treated consisted of the last genuine 
byte and a spurious one.So at CMESJ, we zero the half-byte that resulted 
from the spurious byte. In either case, on reaching CMESK, we have the 
number of new bytes in D.Z5, and add this to 6000B to give the proper 
first byte of the control word, in KEY. Then, at CMESG, call subroutine 
LLWT to copy the control word and line image back into line image storage, 
and branch to SPC5 to work on it. 

At CMESE, we can work entirely in display code, and scan the line image 
character by character, replacing any byte greater than 6IB by 30B, for 
X, and any other byte by OOB, for blank. When this is Complete, we can 
leave the first byte of the control word, in KEY, unchanged, and we 
merely branch to CMESG to call LLWT and then go to SPC5. 

Note that if, when the line containing unprintable characters was printed, 
there were still one or more functions in the control word left to be 
done (some sort of programmed skip, or possibly a post-print skip selection 
clear), these functions will not get done because the control word is 
partly destroyed by overlay F.CMES. 

117f. We reach SPC57, from just below SPC5, when we have completely carried 
out all the printer functions for the line, or if we printed the line, 
found it to contain unprintable characters, and printed the message about 
that. Now, unless FL.PRSU *= 1, we have completed processing of this 
line, and can reset FL.LINS and exit to LPD99. 
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If B^L-PESU = 1, however, it was set because of a type-in to indicate that 
at the next opportunity we should do a special page skip, print **** FOEMAT 
CONTROL SUPPRESSED **** and then set FL.SU to cause format control characters 
to be ignored for the rest of the file. So we branch to SPG57A and there 
call overlay B.SUP. 

117g. Overlay B.SUP 

We begin by resetting FL.PBSU and setting FL.SU = 1, so that format 
characters will be ignored for the rest of the file. Then copy the control 
word and line image beginning at SUEMES into line image storage. The 
first byte of the control woiri is 6036B, indicating that the line image 
is 36B bytes long, that it is to be treated as having already gone through 
the first phase of formatting, and that it is in display code, so that 
in case of extended array printing overlay B.TRANS will have to be called 
at SPC53A to put it into extended array code. The second byte contains 
the address LPSL, which is normal for a control word during the second 
phase. The third and fourth bytes contain 04700000B, which taken frtmi 
the left to right means a page skip, followed by the printing of the line, 
followed by no further printer action. Now branch to SPC5, where we 
begin treating all this as If it were an ordinary print line. 

118. We call overlay B.DIS at LLDIS on finding that the print line begins with 
"PM". Before calling the overlay, we call subroutine SETBR to set KEY+1 
to contain address LLDIS; so that if, in this trip through the overlay, 
we exhaust the buffer before reaching the end of the line, then the next 
time this file is picked up control will go from LPRQ straight to LLDIS. 

On entering the overlay KEY is tested and branch made to DISA for a line 
that has already been begun. If on the other hand the line is just now 
being begun, KEY is set to contain 5 and the first five bytes of the 
line, just read from the CM buffer to D.TO through D.T4, are copied into 
BUF+1 through BUPb5. Instead of dropping the first (format) character, 
as for printing, we should drop the first two (PM). The display line 
will begin in BUP, but other information is going to be put in BUF and 
BUP+1, so storing the line beginning in the left character of BUF+1 will 
cause its first two characters to be effectively dropped. 

119, When control comes to DISA,KEY contains a number n, and the line so far 
has been stored in BUF+1 through BUF+n. So BUF+n+1, the address of the 
cell in which the next CM word from the buffer is to begin, is put in 
the A register and D.Z2, and subroutine YFR is called to copy the next 
word from the buffer. Normally, YFR exits with non-zero in the A re¬ 
gister, and there is a branch to DISH, where a check is made for the 
last byte of the CM word to see if it terminates the line. If so, we go 
to DISI3; otherwise, 5 is added to KEY and if it does not new contain 
155 a return to DISA is performed to continue the line. If it does con¬ 
tain 155 the line must he cut off, and FL.LONG set to 1, for the same 
reasons described in connection with LPD13D above; then control goes 

to DIS13 as if a proper terminator had been found. 
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120- If the return from subroutine YFR, below DISA, is with zero in the A 
register^ D*Z2 Is reduced by 5 so that it will point to the first of the 
last 5 bytes that were read previously- Then HR checks whether CURFET4 
shows end-of-record. If so, it goes to DIS13 just as if the last word 
brought from the buffer had ended in a ^ero byte- If not, the buffer is 
exhausted for the moment but there is more of the record to come, so we 

go to LPRG (in the permanent part of HR) just as in the parallel situation 
below LPD14- 

121- We come to D1S13 when the end of the line has been reached, one way or 
another. First subroutine SAVOUT is called to update the OUT pointer 
in the FET. Then FL.LINS is set to 0 to show there is no longer any¬ 
thing interesting in the 40B CM words that follow the buffer. When 
D1S13A is first reached, D.Z2 still contains the address that was in the 
A register for the last entry to subroutine YFR that read a CM word; 
l.e-, it contains x, where x+4 is the address of the last byte in the 
display line. So 5 is added to D.Z2, giving the address at which we have 
to start filling in zero bytes. Then at DIS15 zero bytes are read into 
the next five cells, and HR returns to D1S13A to repeat the cycle. But 
when the address in D.Z2 reaches or surpasses BUF+26, it goes on to D1S14, 
as nothing after BUF‘i‘24 will be used. 

122. Now the message has been taken from the print file for display in BUF+1 
through BUFt24. BUF+l contains only the signal characters so the 
message really runs from BUF+2 through BUF-t24. Any of the line that has 
been read from the buffer by YFR into cells beyond BUF+24 is simply lost, 
while if the message is too short to fill the space,zero bytes have been 
used as padding. There is a danger that one or more of the bytes BLJF+2 
through BUF+24 may have a numerical value 6000B or greater, so that it 
would be treated by the scope hardware not as a pair of characters but 

as a coordinate. So at DIS14 and D1S14A these bytes are scanned and the 
contents of any byte that are not already less than 6000B are reduced 
by 6000B. 

123. The 9th through 14th words of the FET are the J-display area. Permanently, 
the 9th word and the first two bytes of the iOth contain the equipment 
type, the EST ordinal, and the file name- Ordinarily, the third byte 

of the 10th word contains OOOOB; if not, the 23 bytes beginning at that 
one and ending with the end of the I4th word constitute an addition to 
the J-display for the file, which will also be displayed on the B-dis- 
play if one of the four lines is available. So now we copy the 23 bytes, 
BUF+2 through BUF+24, into the 23 bytes in bits 0-35 of the 10th word, 
and all of the llth through 14th words,of the FET- 

124. It is still possible that the line in the print file consisted of nothing 
but the two letters PM, followed by blanks. If so, it will have come 

to HR as one CM word with M in the left byte and OOOOB in each of the 
other bytes. The line is not worth bothering over further; and in fact 
both BUF+2 and the middle byte of the 10th word of the FET will contain 
OOOOB, so that no line on the B-display will be produced- So if BUF+2 
contains OOOOB, control goes straight to LPD99- Otherwise, PC.DIS 
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(=1000) is added to the count of lines printed, in bits 0-23 of the 7th 
word of the FET. This indicates, for accounting purposes, a nominal wait 
of one minute by the printer, while the operator obeys the displayed 
message. Then LSTAT is set to contain WROGER (=5). This means that the 
file is hung up, with the message presumably on the B-display, until the 
operator types in /t»Cpp., ^diere pp is the EST ordinal of the printer as 
it appears in the message itself. The hang-up is assured at LPDIA; the 
clearing, on recognition of the OK. type-in, occurs at OK, Then control 
goes to LFD99. 


lenninating a Print of Punch File 

125. For a punch file, we recognize at PCDC that the file has been con 5 )leted 
when the PET status is 1013B and the buffer is empty, and go to MTER. 

There overlay B.MTER is called, which 1) if the repeat count is not zero, 
reduces it by I, rewinds the file, and returns to LPD99 2) if the repeat 
count is zero, branches to TER in the permamnt part of HR, where over¬ 
lay B.TER is called to terminate the file. 

126. For a print file, we recognize at LPRC that the file has been completed 
when the buffer is CTipty, FL.LINE is 0, and the FET status is end-of- 
information. Then we branch to LTER, where. In the first instance, we will 
branch to MTER because FL.FMES will be 0. At MTER overlay B.MTER is called, 
which, as for a punch file, decides whether to repeat the file or not. 

If so, it rewinds the file and branches to LPD99. If not, it puts a 
message //// END OF LIST //// preceded by the job name, into the line 
image area, sets FL.FMES to 1, and branches to LPD99, so that this message 
can be printed normally. After the printing of the message, control will 
again get from LPRC to LTER, but this time we branch to TER and overlay 
B.TER is called because of FL.FMES being 1. B.TER will really terminate 
the file. 

Here ate the details of the two overlays: 

B.MTER 

127. We begin by branching to MTERK if the repeat count in bits 42-47 of the 
7th word of the FET is 0, as the file has been processed for the last 
time. Otherwise, subtract 1 from this field, and according to its new 
value, 0 1 2 3 4 5 6 or higher, alter the character in bits 42-47 of the 
10th word of the FET to blank - =* / + ( or). This character immediately 
follows the seventh character of the file name as provided for the J and 

B displays. - = and * are chosen to represent 1, 2, and 3 repeats re¬ 
maining because in their scope display forms they have 1, 2, and 3 strokes. 
Then we call overlay subroutine B.REW to rewind the file. Then, for a 
punch file, we go back to LPD99; but for a print file we first put a 
blank word with format character Q into the buffer, and set FL.LINE and 
FL.8LL to 0. This ensures that before starting to re-read the file we 
shall do a page skip and reset the auto page eject flag; and in case 
of a 512 printer, select 6- line spacing. 
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128, At MTEJaC, for a punch file, we branch inKiiediately back to TER in the per¬ 
manent part of LIR, so that overlay B-TER Is called to terminate this 
file* But for a print file, the final message still has to be provided. 

This is constructed by fetching the job name from CURFET through CURFETH-3 
and putting it between 20 blanks on the left and the words /// END OF 
LIST /// on the right* Then this message, preceded by the control word 
beginning at TERMITE, is written into the line image area. Then we set 
FL.AUTO to 0 and set FL.LINE, FL.PAGE and FL*FMES to 1, and return to LPD99- 
The next time we pick up this file, the byte = LPRL in the control word 
and the fact that FL.LINE = 1 will send control to LPRL, where FL.PAGE 
will demand a page skip* The first byte of the control word, 6036B, will 
show that there are 36B bytes in the line to be printed, and that they are 
in display code and so must be converted if the printer is in extended 
array mode. After this line is printed, the file will again be in ter¬ 
minal status, but the fact that FL-FMES = 1 will cause B.TER to be called 
for actual termination. 


B.TER 

129. This begins by calling overlay subroutine B.DROPBF to release the buffer 
that was used for the current file. Then subroutine CLR is called to zero 
IMAGE through IMAGE-^79, and this area is copied into central memory to 
zero all 16 words of the PET. Then the punch unit or printer, whose EST 
ordinal is in PSTAK,PS, is dropped. 

130. Next the disk storage space that the file occupied must be released. For 
this a stack request is necessary: 

VFD 12/z,24/0,12/0.RCHN,6/0,6/pu 

VFD 36/x,6/14B,18/x 

where z is the initial RBT pointer from bits 36-48 of the second word 
of the FNT entry, and pu is the physical unit number taken from the first 
word of the RBR to which the first RBT word-pair points, and x does not 
matter* 6/14B in the secpnd (M word means that neither an FET nor an FNT 
entry is to be used by stack processor, so that the FNT can be destroyed 
without waiting for fulfillment of the request. 

131* So the FNT entry address is taken from DEST3 and subroutine PRERQ called* 
This partly sets up the request as follows, in MYRQ through HYRQ*^9; 

VFD 12/0,12/f,12/0,12/y,6/0,6/pu 

VFD 18/0,18/first,6/0,18/limit 

On return from PRERQ, the A register contains 0 and we zero 12/f in the 
request. As PRERQ has left a copy of the FNT entry in MYFNT through 
MYFNT+14, the initial RBT pointer in MYFNT+6 is examined. If this is 
zero, the file was empty anyway and we go to TERE without bothering to 
make the request after all. Otherwise, it is inserted in the first byte 
of the request; the flags are added in the second CM word (6/0 becomes 
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6/14B), and subroutine DOEQ is called with the function code O.RGHN in 
the A register. DORQ inserts this in the first CM word of the request 
in place of 12/y and gets the reqtiest issued. 

132. Then at TERB the FKT entry Is destroyed, taking advantage of the fact 
that IMAGE through IMAGE+79, have already been zeroed though MYKQ and 
MYFNT have overlaid the first 25 PP words of this area. Then overlay 
subroutine B.AMSG is called to issue a dayflle accounting message for 
the file. Then zero PSTAIC,PS to show that the FET is free* Then set 
FNTALAHM 512 seconds ahead of the current reading of the seconds clock, 
to ensure that on the next trip through subroutine LPC, overlay B.FNT 
will be called to try to get the FET and the printer or punch back into 
use; then jinnp to LPCK in subroutine LPC, instead of entering LPC nor¬ 
ma lly* because nothing should be stored back into what is no longer 
an active FET- 


Card ReadipR In the Main Loop of HR 

133. We branch from START? to CRD if we have begun the main loop, taken care 
of type-in and buffer-moving possibilities, and then found that a card¬ 
reading file is to be processed- If DEST3 does not contain 0, we go to 
CSDA, but if it does, the address of the FWT entry is 0. This means there 
is no FNT entry, but there is an FET, a card reader, and a buffer; after 
reading the 6-7-8-9 card that terminated the preceding file In the same 
card reader, we found that the reader was not empty, but that it had 
physically read the next card (the job card of the file it is now to work 
on) without really looking at it. To save labor, we kept everything but 
the FNT entry, which had to be converted from the entry for a local file 
at the JANUS control point to that for an input file at control point 0; 

to signal this condition, DEST3 was zeroed* Now overlay subroutine B.SKFNT 
is Called* If the return from this subroutine is with non-zero in the A 
register, it did not find a free FNT slot, so things are left as they are 
and control goes back to LPD99- If the return is with 0 in the A register, 
the subroutine has found an empty slot, stored its address in PSl, and put 
into the slot a dummy FNT entry for a file called MESSAGE, type local, 
at the JANUS control point. Now we can proceed to CfEDA. Note that when 
the preceding file was terminated, the buffer was set ^opty, with FET 
pointers IN^UT^FIRST; but the image of the new job card Is in the 16 
words following the end of the buffer, and FL*IMAGE is 1 to indicate 
that IIR has this card in hand* Our special situation will be recognized 
just below CR07F, when we find that the FET status is INITA (=3), to which 
it was set when the preceding file was teminated (see overlay B-RTER for 
the termination procedures)- 

134. At GRDA, the number of words that are empty in the buffer is found. (Note 
that LIMIT-FIRST necessarily equals BUFLG-20B). If this is less chan 17, 
there may not be room to read in the next card, since one card, in 80-column 
binary reading, contains 16 words of information. In that case, subroutine 
WRITE is called to try to empty the buffer by writing on disk, and then we 
return to LPD99- If the buffer has between 17 and 177BrM7 empty words, 

WRITE Is called; if more empty words, it is not called; In either case 
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subroutine RES is then called to reserve the channel, and connect the card 
reader. If the return from RES is with non-zero in the A register, the 
return is immediate to LPD99 as the reader has rejected a function. Other¬ 
wise, subroutine STS is called to read its status, put it in STAT, and 
return with it in the A register. (Note that STS is always called for 
the status of a card reader, but STATUS is always called for the status 
of a printer or punch. STATUS in fact just calls STS, and provides for a 
message if the printer or punch is not ready) If the busy bit of the 
status is 1, the reader is busy; subroutine RELGR is called to release 
the card reader (at CRD4D) and then return to LPD99. If the reader is 
not busy, the ready bit of the status is checked; if this is 0, the card 
reader is not busy but not ready; subroutine NRD is called to examine 
the situation and possibly give a message, and then go to C8D7F. (The 
reader is not ready; if this is because of a conqjare error, subroutine 
RCD, called at CRD7F, will not be able to read anything. But it may be 
because of a fail to feed or simply an empty tray. In this case, if the 
next card has already been read physically but not logically, FL.IMAGE 
will be 1 and RCD will be able to supply us with one more card.) 

135. If the card reader is not busy and ready, we go to CSD7E, call subroutine 
CLERMES to set LSTAT to GOOD and clear out the B-display message, if any, 
and then enter subroutine RCD with 1 in the A register. If the card reader 
was not ready, NED was called, and as it exits with 0 in the A register, 

RCD was entered with 0 in the A register. RCD does the following: 

1. If FL.IMAGE is 1, reset it to 0, read the card image stored after the 
end of the buffer into IMAGE ff., and set HAVECARD non-zero. 

Otherwise, set HAVECARD to zero. 

2. If the A register was zero on entry to RCD, exit now from the subroutine. 

3. If the A register was non-zero, read the next card to IMAGE+80 ff. 

4. Call subroutine EELCR to release the channel and card reader. 

5. Call subroutine SALARM to set the file alarm AL.CR (=33) milliseconds 
ahead of the current reading of the millisecond clock. 

6. Store the new card image in CM immediately after the buffer, and set 
FL.IMAGE to 1. Then exit. 

136. So on return from RCD,HAVECARD indicates whether a card has been read 
logically. If not, control returns to LPD99. If so, we see whether the 
FET status is INITAj if not INITA, we are reading normally in the middle 
of a file and branch to CED7D. But if the status is INITA, what we have 
just read into IMAGE ff, is the image of the job card, of a new file. The 
INITA status was set either in overlay B.FORAG, on finding that a previously 
inactive reader was now ready, and after reading the first card of a new 
file physically; or in overlay B.RTER, on finding the 6-7-8-9 card at the 
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end of one file was iimnediately followed by another card, presumably the job 
card of a new file, which we had already read physically. Now we have to de¬ 
code and use the Job card. First column 1 is checked for 7 and 9 punches; if 
it has them, this is a binary card (probably one of a few extra 6~7-8-9 
cards following the one that terminated the preceding file) which are not of 
interest, so we merely return to LPD99 hoping for better luck on the next 
card. The FET status is still INITA. 

137. But if this would-be job card is apparently not binary, we will treat it as 
a job card, good or bad. We call subroutine HOL to translate the card image 
into display code characters, two per byte, beginning at IMAGE; to add after 
the last non-double-blank byte enough zero bytes, from 1 to 5, to make the 
total a multiple of 5; and then to put the number of CM words to which this 
total is equivalent into cell WC. On return from HOL, we zero D.TO through 
D.TA, for use in a moment. Then copy the translated job card image into the 
beginning of the buffer, and set the IN pointer in the FET, and cell IN, 

to show that the buffer now contains this information. Then we write DESTO 
through DEST4 back to the 8th word of the FET, and save DEST3, the FNT entry 
address, in PSl. The reason we write the word back to the FET is that the 
FNT address may have been found just above, between CRD and CRDA, and is not 
yet in the FET proper; 2TJ will be called and then overlay B.JOB, from which 
we shall return to LPCK in subroutine LPC, so that the 8th word of the FET 
will not he stored back in the normal way. The reason DEST3 is saved in PSl 
as well is that overlay B.JOB will need the FNT entry address, but 2TJ will 
have copied the new job name into DESTO through DEST4; which is why we must 
exit from B.JOB to LPCK rather than entering LEG in the normal way, which 
would put the job name instead of the proper information in the 8th word 
of the FET. 

138. Now we call subroutine R.OVL to load 2TJ as an overlay in lOOOB f£. of our 
PP memory. But as the overlay could be up to 1500B bytes long, it may extend 
from lOOOB as far as 2477B. So before calling K.OVL, we save 2000B through 
2477B in words 40B through 137B of the file buffer. This part of the buffer 
must be free, because only one card has so far been stored in the buffer. 

Next we enter 2TJ itself; but it will expect D.FIRST and D.FIRST+1 to be set 
up normally, so we copy their proper values out of subroutine FIRST. The two 
bytes are generally used as IN and OUT, but we shall not be handling this 
file again in the ordinary manner until we have passed through subroutine LPC, 
which sets them properly. 

On exit from 2TJ we store the A-register in D.TO and D.Tl; if bit 17 is 1, 
this indicates a job card error; otherwise bits 0-14 give the time limit 
from the job card. Then enter overlay B.JOB. 

Overlay B.JOB 

First we restore cells 2000B-2477B, which were saved above before loading 
2TJ, in case It might be longer than lOOOB bytes. 

Now fetch bit 5 of D.TO, which will be 1 if 2TJ found a job card error; 
shift it to the position of flag* FL.JOBER, which must assume its value, and 
store in O.Zl. 

139. If the job card is good, 2TJ will have set D.JPR, D.JECS, and D.JFL to the 
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priority, ECS field length, and CM field length taken from the job card. 

Good job card or bad, 2TJ has put the job name taken from it, expanded or 
contracted into five characters plus a serial number in the sixth and seventh 
characters, in D.EST through D.EST+3. To convert D.EST through D.EST+4 into a 
new first word for the FNT entry (which at present has the dummy name MESSAGE) 
bits 3-5 of D.EST+3 are set to 3, for type local, and bits 0-2 are set to our 
control point number, and the job priority is copied from D.JPR to D.EST+4. 
Then these five bytes are written into the first word of the FNT entry, whose 
address was saved above at PSl. Then the same word is altered, by zeroing 
bits 0-5 of D.EST+3 and setting D.EST+4 to contain INITB (=7 5 initial status 
with no particular meaning; It might as well be 17B = write completed, but 
status 7 might come in handy someday) and we copy it again to central memory 
as the first word of the FET. 

140, Next we set up the sixth word of the FET, in D.FNT through D.FNT+4, and the 
seventh word, in D.FNT+5 (named G5) through D.FNT+9. ^hese are to be: 

VFD 12/a,12/b,12/c,12/d,12/e 

VFD l/FL.WTFNT,ll/f,l/FL.E0J,l/FL.PEEAB,l/FL.J0BER,5/x, 

1/FL. IMAGE,15/g,24/h 

where a is the field length requested on the job card, b is the ECS field 
length requested on the job card, c remains 0 and is the serial number of the 
first (control card) record of the job file, d is 1 and is the serial number 
of the first card in the record (job card), e is 1 and is the type number of 
the last card read (BCD - for explanation of types see section 144 below), 
f is a count that is initially 0 but does not concern us yet, x is a field in¬ 
itially zero but still reserved for future system use, g is the time limit from 
the control card, and h is the total number of cards logically read in the file 
so far, now=l. The flag bits will all be zero except FL.JOBER, which will be 
set according to the value saved above in the correct position of D.Zl; and 
FL.IMAGE. The latter flag was set by subroutine ROD, in the 7th word of the 
inchoate FET, when the job card was logically read; so here we save it from 
the existing G6 and restore it in the new G6 along with FL.JOBER. 

After writing the 6th and 7th words back into the FET area, we read the 9th and 
10th, copy LSTAT into its position in the 15th, and prepare to: 

141. take the job name from D.EST through D.EST+3 and fill it into the 9th and 10th 
words of the FET, where it forms part of the J-display line and possible 
B-display line for the file, and also Into the initial dayfile message at FDAZ. 
Then call R.DEM to put the message into the system dayfile, but not the control 
point dayfile, and without adding the control point name "JANUS". This is the 
message that looks like: 

00.00.52 XXXXX04. READ. 

Finally, we restore IR2, IR3, and ZEEBUF from the input register, because 2TJ 

has used them as D.JECS, DeJPR, and D-JFL. 

Then we exit fironi the ovexlay to LPGK in subxoutine LPG* LPC is not entexed 
normally, by a branch to LPD99, because DESTO through DEST4 contain not what 
is necessary in the 8th word of the FET, and the 6th, 7th, 8th, and 16th words 
have already been stored back into the FET* 
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142* So the FET has been initialized as follows: 

VFD 42/j obname, 18 /IK ITS 

VFD 60 /b ^ 6 0 /b+c, 60 /b ^ 60 /b+BUFLG- 20 B 

VFD 12/d, 12/e, 12/f, 12/g, 12/h 

VFD l/Ft.WTFKT,ll/j,l/FL,EOJ,l/FL.PREAB,l/FL.JOBER,5/x,l/FL-IMACE,15/r,24/k 

VFD 12/u,6/cb,6/ca, 12/START, 12/v,12/w 

VFD 12/0HCR,12/qa,12/5555B,42/jobname,42/0 

VFD 60/0,60/0,60/0,60/0 

VFD 12/qb,48/0 

VFD 12/m,48/y 

where: 

b is the address of the start of the buffer. 

c is the number of words read from the job card and stored in the buffer, 
d is the field length/lOOB taken from the job card, 
e is the ECS field length/lOOOB taken from the job card, 
f is the record count, initialized at 0, 

g is the card count within the record, now ” 1 (the job card), 
h is the record type, now = 1 as the job card is BCD, 
k is the total of cards read in this file, now = 1. 
r is the time limit taken from the job card* 

u is the JANUS control point number; useless, but the field is reserved for 
future system use. 

cb is the second channel number, from the EST entry, 
ca is the first channel number, from the EST entry. 

V is the address of the FRT entry for the file, 
w is the equipment connect code for the card reader* 

qa is the EST ordinal of the card reader translated into two display code 
characters representing octal digits, 
qb is the same ordinal as a binary integer, 
m is whatever was last in LSTAT. 
y is whatever was last in DEEP through DEEP3- 
X is 0, in a field reserved for future system use. 
j is the count of pre^OUTPUT message words, initially 0. 

The names beginning with FL have been used illegitimately here to represent bit 
values 0 or 1, instead of the various powers of two. But it makes identification 
easier for this table: 

FL-WTFNT is initially 0- 
FL.EOJ is initially 0, 

FL,PREAB is initially 0- 

FL,J0BER is initially 1 if 2TJ found a job card error; otherwise 0. 

FL,IMAGE may be 0 or 1, depending on whether the card after the job card has 
already been physically read into the hold. 


March 1969 


16-79 



SCOPE 


Main Loop for Card Reading Continued 

143• GRD7D is reached when any card of a file but the job card has been logically 
readi First 1 is added to the count of cards in this record, in bits 12-23 
of the 6th word of the FET, Then 1 is added to the total card count in bits 
0-23 of the 7th word of the FET* Then D,21 is set to point to IMAGE, i.e., 
column 1 of the card image* This will be a convenience at various points be¬ 
low. Then a check is made to see if column 1 contains a 7 and a 9 punch, 
ignoring for the moment all other rows; if so, a branch is made to CRD7I for 
a binary card; if not, continue at CPD7 for a BCD card* 

144. here the record type nimiber, which is stored in cell RTYPE, or in bit O-ll of 
the 6th word of the FET, must be explained- This field is set to 0 at the be¬ 
ginning of each record, and remains so, or is set to 0, whenever a normal bi¬ 
nary card is read. It is set to some number between 2 and 80 when a card that 
initiates 80-column binary reading is read; such a card has 7777B in column 1 
and in one of the other 79 columns, and OOOOB in all other columns, and the 
column number, between 2 and 80 inclusive, of the second 7777B coluinn gives 
the number to be stored in RTYPE. Thus in this case, RTYPE not only indicates 
that 80-column binary reading is being done, but specifies what sort of card 
(i-e., one identical with the Initiating card) is needed to terminate it. 

When the terminating card is read, RTYPE is set to 177B, to indicate that the 
next card will normally be an end-of-record card. Then if the record is not 
ended immediately after the end of 80-column reading, there will be a mode- 
change message. 

145. At CED7 HR begins dealing with a BCD card* If RTYPE contains 0, then either 
it is at the beginning of a new record, which is fine, or the preceding card 
was normal binary, which is all right but calls for a mode-change message. 

We branch to CRD7B where the two cases are distinguished according to whether 
the card count in CGT is 1. If so, we have just begun a record with a BCD 
Card, so we go to CRD7N, set RTYPE to 1, for BCD, and continue to CRD7A. If 
not, there is a mode change from binary to BCD, so subroutine MODMEST is 
Called before going to CRD7N as above. 

146. If, at GRD7, RTYPE contains not 0 but 1, the preceding card was BCD like the 
current one, and we can go straight to CRD7A, If RTYPE contains 177B, we to 
to CRD7B; the preceding card terminated a series of cards read in 80-coluian 
binary, so CGT will not contain 1 (the present card is not the first in its 
record) and MODMEST is called to indicate a mode change from SO-column to BCD, 
then RTYPE is set to 1 fox BCD, and then CRD7A is reached. If RTYPE contains 
any other number, it is presumably between 2 and 80 and Indicates that this 
card must be read in 80-column binary. So a branch is made to CRD73 for that. 

147. Thus control reaches GRD7A for a card that is to be read in BCD, or CRD73 for 
a card that appears to be BCD, but has to be read in 80-colunm binary. At 
CRD7A, subroutine HOL is called, which translates the card image in IMAGE 
through IMAGEH-79 into from 1 to 40 bytes of display code information, trailing 
blank bytes being suppressed, beginning at cell IMAGE, and followed by 5 zero 
bytes. If k is the number of bytes of information, then WC has been set to 
contain q such that 5^q is between k+1 and krf5 inclusive. In other words, WC 
contains the number of CM words this card will add to the buffer, after as 
many trailing pairs of blanks as possible have been suppressed, and enough zero 
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bytes, between 1 and 5, have been added to fill out a full CM word. So we 
branch to CRD7P, where we put IMAGE, the starting address of the information, 
in XFR2, and then call subroutine XFR to copy the information to the buffer 
unless FL.PSEAB or FL.JOBER = 1. 

148. At CRD73, things are simpler- All 80 bytes, i-e., 16 CM words, beginning at 
IMAGE have to be transferred to the buffer* So WG is set to contain 16 and 
the A register to contain IMAGE, and control passes to CRD7R. 

148A. At CED7R, we have in the A register the starting address of the data to be 

sent to the buffer. This is now put in XFR2, and subroutine XFR is called to 

move the data to the buffer. However, if FL.PREAB or FL.JOBER =1, we do not 
call XFR, but go straight to LPD99, as this job will be pre-aborted and there 
is no further reason for writing it on disk. 

149. Now for a card with 7 and 9 punches in column 1, we must branch to CRD71. It 

may turn out to be a standard binary card, or a card to be read in 80-column 

binary, or an initiator or terminator of 80-column binary reading, or an end- 
of-record card,or an end-of-file card, or a card in no known format that causes 
the job to be pre-aborted. 

150. If column 1 does not contain 0017B (16789), we go to CED72. If it does, and 
if RTYPE contains 0 or 1, the preceding card was normal binary or BCD, and we 
go to REOF to treat this card as an end-of-file. If RTYPE contains 177B, we 
also go to REOF, as the preceding card terminated 80-col\imn binary reading. 

If RTYPE contains anything else, the current card is to be read as 80 binary 
columns of data unless it has 0017B in column 1 and OOOOB in every other column; 
such a card can never be read as anything but an end-of-file. So now a check 

is made for OOOOB in columns 2-80, and we go to REOF if so, and to CRD73, for 
80-column binary reading, if not. 

151. At CRD72, there is a check for 0007B (1789) in column 1. If not, we go to 
GRD74. If so, maybe this is end-of-record. If RTYPE contains 0, 1, or 177B, 
we go to REOR, just as we went to REOF in the preceding paragraph. Otherwise, 
the card is to be read merely as 80 binary colimans, no matter what is in columns 
2-80, and we go to CRD73. 

152. At CED74, there is a check for 7777B in column 1, in which case this card might 

be an initiator or terminator of 80-column binary reading. If not we go to 
CED75. If so, we test whether one other column contains 7777B and all other 

columns contain OOOOB. If not, we go to GRD75, but if so, the ni^ber of the 

second 7777B column is put in SHIODE. Now RTYPE is checkedi a) if it contains 
0, then either this is the first card of a record, or the preceding card was 
normal binary. In either case, the present card is treated as initiating 80- 
column binary reading, and setting RTYPE to the number of its second 7777B 

column, which is in SPMODE. Then, as no Information is to be taken from the 

card, we go back to LPD99. If this is not the first card of the record (CCT 
does not contain 1), it represents a mode change from normal binary to 80- 
column, and subroutine MODMEST must be called, b) If RTYPE contains 1, the 
preceding card was BCD, so processing is just as in the preceding paragraph, 
when the preceding card was normal binary, c) If RTYPE contains 177B, the pre- 
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ceding card terminated 80*column binary reading, so the present card is allowed 
to re-initiate 80-colniim binary reading, but is treated as a mode change- 
d) If RTYPE contains anything else, it is some number between 2 and 80; 80-colunm 
cards are already being read; and the present card cannot initiate 80-column 
reading, but may terminate it. So the number of the second 7777B column in this 
card, saved at SiMODE, is compared with the content of RTYPE. If they are not 
the same, then the present card is merely a data card, and we go to CSD73 to read 
it as such- If they are the same, the present card is a terminator; RTYPE is 
set to 177B, indicating that 80-column binary reading has just ended; and we 
go back to LPD99* 

133- CRD75 is reached for a card that has 7 and 9 punches in column I, but does not 
contain 00178, 0007B, or 7777B in columnl; or contains 7777B in column 1 but 
does not have 7777B in one other coliimn and OOOOB in the remaining 78. Now 
if RTYPE does not contain 0, 1, or 177B, 80-column binary is being read and we 
merely go to CRD73- Otherwise, the card must be normal binary if it is any¬ 
thing valid, so we go to GED77, first calling subroutine MODMEST and setting 
RTYPE to zero, unless RTYPE already contains zero* 

154. When at GRD77, the present card has to be a normal binary card to be valid. 

In such a card, column 1, rows 5, 6, and 7 must not be punched, and rows 12, 

11, and 0 through 3 must contain a binary number between OIB and 17B, the GM- 
word count for the card. If so, control goes to CRD79; if not, the A register 
is set to RS.FOR, for a format error message, and we go to ABORT, where the job 
is pre-aborted. At CRD79, the word count is calculated, and put in WG. Then, 
if column I of the card had the 4-row punched, we go straight to CRDSO, as this 
is the ignore-checksum flag. Otherwise, the sum of the contents of columns 
2 through 2+5n, where n is the word count in WG, is calculated. These contents 
are added as if in a 12-bit accumulator with end-around carry; the total should 
be 0, because in punching standard binary cards, the I’s complement of the sum 
of all the information-bearing columns, 3 ff*, was put into column 2 of each 
card- If the checksum is correct, control goes to CRDSO; if not, RS.CKS is 
put in the A-register, for a checksum message and we go to ABORT to pre-abort 
the job. 

155- If a normal binary card has an acceptable format, and either a 4-punch in column 
1 or a good checksum in column 2, CRDSO is reached to check the sequence number 
and transfer the information to the buffer- If NUMGHY,PS contains non-zero, 
there has already been a sequence error message in this record, so we go to 
CED90 without bothering to check the number on this card. Otherwise, we compare 
column 80 with the number in CCT; which is the count of cards, including the 
current one, read so far in the current record. If they match, we go toCRD90; 
if not, NUMCHY,PS is set to RS-NUM (just to make it non-zero) and with RS-NUM 
in the A-register, to call for a serial check message, subroutine UMES is called; 
then get to CRD90- 

156. At CRD90, WG has already been set to contain the number of OT words of infor¬ 
mation in the card, as noted in column 1- The information begins in column 3, 
so IMAGE+2 Is put in the A-register, and we branch to CRD7R to store the data- 

158. At ABORT, a binary card has been found with unrecognizable format, or with a 
bad checksum in column 2 and no 4-punch in column I. With RS.FOR or RS.GKS 
in the A-register to govern the choice of message, subroutine UMES is called 
to add a message to the pre-OUTPUT file for the job. Then FL.PREAE is set to 
1, indicating that th job is to be pre-aborted, and that nothing more is to 
be copied from its cards to the input file on disk. Then there is a return to 
LPD99. 
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159- REOR is reached on recognizing an end-of-record cardj and REOF on recognizing 
an end'of-file card. The only immediate difference is that for end-of-record^ 
we can go straight to LPD99 if either of FL.PREAB and FL*JOBER is 1, indicating 
that nothing further is being copied to the disk file* An end-of»file card 
must be dealt with in any case, since it terminates the card input. 

160- Now before writing an end-of-record or end-of-file on the disk file, we must 
wait till the FET status is not busy. To avoid hanging up other files while 
waiting, subroutine FILWT is used, which can call subroutine LPC while waiting. 

It is virtually certain that LPC will cause the card image just read to be des¬ 
troyed, so the contents of the first three columns, which are all that matter 
for end-of-record/file, are saved first in PP memory at 1MAGA,PS IMAGB 5 PS and 
IMAGCjPS- This save area amounts to 12 PP words in all, since there cannot 

be more than A card readers in use by JANUS at a time- (As this save did not 
have to be done for all 19 possible read, print, and punch files, it was more 
economical to do it in PP memory than In the FET). Having saved the columns, 

FILWT is called to wait until the FET is not busy. As this may involve calls 
to LPC, FILWT has to he called from the permanent part of ilR, not from an 
overlay. Then overlay B.EEOF is called- This begins by setting the e.o.r 
level number field in the FET to zero. Then if IMAGA,PS contains anything but 
7 (1789) it must be 17B, for end-of-file, and control goes to EOF; otherwise 
continue for end-of-record. 1 is added to the record count in bits 24-35 of 
the 6 th word of the FET (RCT); then bits 0-11 of the same word (RTYPE) are set 
to 0, the value it should have at the beginning of the next record- Also zero 
D-Zl, in which will accumulate the level number for this end-of-record- Now 
IMAGE,PS and IMAGC,PS contain copies of columns 2 and 3 of the e.o.r- card, 
which should contain the level number as two octal digits in Hollerith code- 
So these two bytes are passed through subroutine EORL- In this subroutine, 
if a byte is blank, the level number in D.Zl is left unchanged and there is 
an exit straight to EOEM- Otherwise, if the byte contains the Hollerith form 
of a digit between 0 and 7, EORLA is reached with the binary value of the digit 
in the A-register, D-Zl is shifted three bits left; the new digit is inserted 
in bits 0-2 of D.Zl; and exit is normal- If a byte contains anything else, 
it is treated as an error but no message is given; the level number is zeroed 
in D.Zl and the exit is straight to EOEM. 

161- At EORM; for better or worse, the level number is in D.Zl; but if it is above 
17E, it is zeroed before being used. Thus the valid level number punches are 
0 to 7 in column 2 with blank in column 3, or OOB to 17B in columns 2 and 3. 

Then zeroes are put in bits 12-23 of the 6 th word of the FET (CCT), the count 
of cards within a record, to ready it for the next record, as well as NUMCHY,PS 
and M0DCHY,PS- The latter cells may have been set non-zero during this record 

if a mode change or bad serial number was found. They are set whenever a message 
of the relevant type has to be written on the pre-OUTPUT file, so that only 
one such message will be given per record. Then the level number in D-Zl is 
inserted in the FET, and with 26B, for write-end-of-record, in the A-register, 
we go to CEORF. 

162- Arriving at EOF, because IMAGA,PS contains 17B, end-of-file can be written on the 
input file only if the buffer is now empty, and the last thing written on the file 
was end-of-record. If so, control goes straight to EOJ, where 36B, for write- 
end- of- file, is put in the A-register and processing continues at CEORF- Other- 
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wise> EOFl is reached; it is necessary to write out a zero-level end-o£-record, 
which will also empty the buffer if necessary; so D.Zl is set to 0 and IIR goes 
to BIN3 as if the card had been end-of-record in the first placet But first 
FL.EOJ is set to 1. Now after any end-of-record/file action taken on a card 
read file, there is a wait (calling LPG as necessary) at REOFQ until the FET 
shows not busy. Then the buffet will certainly be empty, and by looking at the 
FET status and at FL.EOJ, we can tell whether; 

1. End-of-file has just been written to be followed by termination. 

2. End-of-record has just been written and we must now write end-of-file. 

3. End-of-record has just been written and we must look for the next record 
in the card input. 

163. At GEORF the level number in CURFET3 has already been Inserted, and 26B or 36B 

is in the A-register. First subroutine WTFET is called to set CURFET4 to 26B 

or 36B, and then CURFET through CURFET4 are copied back to the first word of 

the FET. Next the FNT entry address is picked up from DEST3 and subroutine 
PEERQ is called to begin setting up a stack request. PRERQ has read the FNT 
entry to MYFNT through MYFNT+14; its status and level number are set the same 
as those in the FET, except that if the status is 36B the level number is made 

17B instead of OOB. Then the FNT entry is returned to the FNT. Then the FET 

address is added to the stack request; then the level number, taken from the 
copy of the FNT entry, is combined with the order code for write-end-of-record, 
and with this in the A-register subroutine DORQ is called to complete the stack 
request and get it inserted in the stack. Then there is a return to the per- 
rnatient p3,rt of IXR at REOFQ, to aw3,it coiupletlon* 

164. At REOFQ, UR keeps pausing, calling LPG, and testing the FET status until it 
shows not busy. Then, if the status shows that it has just written end-of-file, 
it branches to REOFF to call overlay B.RTER and terminate the file. Otherwise, 
end-of-record has just been written; now if FL.EOJ is 0, this is an ordinary 
end-of-record and there is a branch to START to begin a new card cycle. But 

If ^h.EOJ is 1, the last card read was a 6-7-8-9 card not preceded by a 7-8-9 
card; then the flag was set and processing continued as if for a 7-8-9 card; 
now we must proceed as for a 6-7-8-9 card, so we go to REOFL, put 17B (16789) 
in IMAGE, as if a 6-7-8-9 card had just been read, and branch to REOF. 

165. At REOFF, having written end of file on the disk file, we call overlay B.RTER 

to terminate the file. The overlay begins by testing FL.WTfNT. This could 
only be 1 if this overlay had already been done for this file, and had got stuck 

because there was no FNT slot free for the pre-OUTPUT file for the job; if 

FL.WTFNX is 1, control jumps straight to RTERVY, effectively the point at which 
we got stuck on the last try. Otherwise, we are beginning to terminate the file 
for the first time. Now if FL.IMAGE is I, the first card of the next file in 

the same card reader has already been read into the storage area after the buffer, 

so the card reader, FET and buffer will not be released. Specifically, we go 
directly to RTERB so as not to call overlay subroutine B.DROPBF to release the 
buffer this file was using. If FL.IMAGE Is 0, however, the card reader is ap¬ 
parently empty, everything will be dropped and B.DROPBF is called before arriving 
at RTERB. ® 
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166. At RTERB, overlay subroutine B.AMSG is called in to write an accounting message 
on the system dayfile, giving the job name and the number of cards read in the 
file. Next the second word of the FNT entry is altered so that ils fourth byte 
represents rewound status (RBT chain ordinal 0, byte number 0) but its second 
byte (current RBT pointer) and 4th byte (PEN number) are set to the EGS field 
length and CM field length, taken from the 6th word of the FET. However, if 
FL.PREAB=1, both are set =0. Next the third word of the FNT entry is altered 

so that bits 36-50 contain the time limit, taken from the 7th word of the FET. 

If FL.J0BER=l, bits 51-53 are set =6, or if FL.PEEABf= 1, those bits are set =7. 

167. Bits 48-58 of the 7th word of the FET contain a count of the number of CM words 
of message to be written out on the pre-OUTPUT file for this job. If the count 
is 0, we go straight to filEEMA - see below. If not, the following is done before 
getting to RTERMA. If the job is to be pre-aborted, we will certainly not go 

to RTERMA right away, as there must be at least one message. Now if FL.PREAB=1, 
there is one more message to add - JOB PRE-ABORTED - which is done by putting 
the address of the message in D.TO and calling the overlay subroutine B.WUMES. 
Whether the job is pre-aborted or not, we then arrive at RTERVY, and call 
overlay subroutine B.SKENT to set up a dummy FNT entry for the pre-OUTPUT file. 

If the exit from B.SKFNT is with non-zero in the A register, a free FNT slot 
was not found, so FL.WTFNT is set to 1 and we return to REOFQ, from which cont¬ 
rol will return to the overlay and to RTERVY after a trip through subroutine LPC. 

168. If the return from B.SKFNT is with 0 in the A register, we go to RTERVB; a free 
FNT slot was found and filled with an entry for an empty local file called 
MESSAGE at our control point, whose address has been saved at PSl. Now the name 
is to be changed to that of the input file being terminated, the messages 
written out on it, and then its control point number changed to 0. Whenever the 
input file is brought to a control point as a job, the system will look for a local 
file at control point 0 with the same namej if one is found, its name will be 
changed to OUTPUT and it will be assigned to the same control point, without 
rewinding, but positioned at the end of the first record, which will comprise 

the card-read-time messages written by HR. 

169. Now to write out the messages, a minimum FET will be set up in cells RA+2 through 
RA46. The messages to be written are in a mini-buffer of 200B words, whose 
beginning is at a-b*200B, where a is the starting address of buffer 0, found 

in ZERBUF, and b is the number of the present ordinary FET. Remember that FET 
numbers from 1 up to n, where n is the number of card readers in the system but 

not more than 4, are for card readers; punch and print FET's have the higher 

numbers. When initializing the JANUS control point, HQ reserved 200B words of 
field length for each card reader to accumulate its pre-OUTPUT messages, 
immediately below buffer number 0. The FIRST and OUT pointers in the special 

FET must point to the beginning of the 200B-word area; the LIMIT pointer must 

point 200B words further ahead (there will not be more than 176B words of mes¬ 
sages in the mini-buffer); and the IN pointer must point to the beginning of 
the mini-buffer plus the number of words of messages In it, which number is in 
bits 48-58 of the 7th word of the FET (bit 59, FL.WTFNT, has been set to 0 
not because it has any further logical significance, but to make the arithmetic 
easier.) On this basis the four pointer words are set up in RA+3 through RA+6, 
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as well as the FIRST pointer in subroutine FIRST. The first word of the FET* at 
RA+2, is supplied from MASS through MASS+A^ which contains the file name 
MESSAGE and status 26B, as one record is about to be written. FETAD is altered 
from 16*(PS) to 2, the exceptional FET address. 

170. The address of the FNT entry was saved at PSl by overlay B.SKFNT; with this in 
the A register, subroutine PRERQ is called, which begins to set up the stack 
request, and copies the FNT entry into HYFNT through MYFNT+IA. We set the FNT 
status to 26B, and copy it back to the FNT* The FET address, 2, is inserted into 
the stack request (as the field for this address runs from bit 6 of MYRQ+b 
through bit 11 of MYRQ+5, 200B is added to the former byte.) Then the code for 
write-e.o.r. is put in the A register and we call subroutine DORQ to insert the 
code in the request and get the request inserted in the stack. Finally, we 
restore FETAD to its normal value. 

171. At RTERMB we wait until the FET status shows completion, with a pause for storage 
relocation etc. after each test. At this point there is a risk of holding up all 
JANUS operations while wa'^ting for this one write to be con^leted. The wait 
should be tolerably short, and should happen fairly rarely, as most jobs do not 
produce any pre-OUT^UT file- If it did become a serious problem, one could, 
instead of merely pausing after each inspection of the FET, set bit 58 of the 
7th word (the bit next right of FL.WTFNT), which is otherwise unused, to 1, 

and return to REOFQ. Overlay B.RTER would have to check this bit right after 
checking FL-WTFKT, and branch to RTERMB If it was 1- CM location RA+T, which is 
not now used, could be an interlock for preventing us from trying to use Ra-^2 
through for more than one card read file at a time. In this overlay, this 

interlock would have to be checked immediately before calling overlay subroutine 
B.SKINT, and if it was occupied, things would proceed as for the case that the 
return from B*SKFNT was with non-zero in the A register, no PNT slot being 
available at the moment. 

172. When, below RTERMB, we find the write action to be completed, we change the first 
word of the FNT entry for the pre-OUTPUT file from MESSAGE, type local, at our 
control point, to the same name as the real job file, type local, control point 
zero* Note that if some adjustment has to be made to meet the problem suggested 
in the preceding paragraph, this alteration of the FNT entry has to be done 
before HR goes to RTERMA or its equivalent. The pre-OUTPUT file FNT entry must 
be finalized before that for the job file, as otherwise the system might find the 
job file, and then look for the pre-OUTPUT file without finding it, only to have 
the pre-OUTPUT file arrive uselessly a few microseconds later. Finally we arrive 
at RTEBMA. 

173. When we get to RTERMA, either there was no pre-OUTPUT file to write, or we have 
written it. If FL.PREAB—1, the priority in the FNT entry for the job file is 
changed to 7777B, so as to get the bad job processed as soon as possible (if 
FL.J0B£R=1, the. priority was set to this by 2TJ.) Then the FNT entry, good or bad, 
is changed from type local at our control point to type input at control point 
zero. Now if FL.IMAGE=0, the card reader was apparently eiopty after the end of the 
terminated file, and everything can be dropped. We branch to RTEEMS, where the 
card reader is dropped from the control point (its E3T ordinal is in PSTAK,PS); 
PSTaK,PS is zeroed to indicate that the FET is now free; the FET area is zeroed; 
and then we go to LPCK in subroutine LPC, The entry to LPC is not normal, 
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as by a branch to LPD99, since nothing need be stored back in the no-longer- 
active FET. The buffer has already been released at the very beginning of 
overlay B.RTER. 

174. If FL,IMAGE is 1, however, the first card of the next job has already been 
read through the same card reader to the area after the buffer, the new file 
should be initialized with as little work as possible. The file name in the 
first word of the FET is changed to 9999, and the FET status to INITA (=3). 

The name has no significance, but the status will be seen just below CRD7F, 
and will-Cause us to initialize the new file. Skip down to RTE^fV for the 
moment. There DEST3 is zeroed since the address that was in it pointed to what 
has been released from this control point. The 0 in DEST3 will be seen at CRD, 
and will cause overlay subroutine B.SKFNT to be called to get an FNT slot for 
the new file. With 0 in IN, overlay subroutine B.SETP is called to set the 
FET pointers so that IN = OUT = FIRST, the proper condition for the beginning 
of the next file. Then exit to LPD99. Subroutine LPC can be allowed to store 
things back in the FET normally. 

175. Before going to RTERMV, however, an attempt should be made to move the buffer 
downward. If this is not done, and if there is a very long unbroken input of 
short jobs in this card reader, the buffer will never be freed (it cannot be 
freed between jobs as the 20B words at the end of the buffer area always hold 
a needed card image) and it will never be moved downward, because moving is 
attempted only about every 30 seconds, but every job in the series may load 
in less time than that. It is bad for a buffer to remain immovably assigned 
for a long time, because it may be rather high in the field length while buffers 
below it have become free; not moving the buffer downward prevents us from 
shrinking the field length at the control point. So here subroutine MAYMOV 

is called to see if the conditions for buffer-moving are fulfilled; if not, 
the exit from MAYMOV is with non-zero in the A-register and control goes 
straight to RTEEMV. But if the exit is with 0 in the A-register, the con¬ 
ditions are apparently fulfilled, and the interlock still exists on the buffer 
assignment registers. So subroutine PUT is called to release the interlock, 
and then overlay subroutine B.MOVBF• Then RTERMV is reached. Note that in 
the other place in UR where B.MOVBF is called, subroutine FILWT is called 
after subroutine PUT, to wait until the FET shows not busy. But here in over¬ 
lay B.RTER, it Is already known to be not busy. 
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SUBROUTINES 

Below is a list, for each subroutine, of the other subroutines it calls and 
the registers it destroys itself, apart from the ones that may be destroyed by 
the subroutines it calls. This makes it a little more convenient to work out 
the whole chain of calls, and the whole list of registers destroyed, that may 
result from a call to any one subroutine. 


Subroutine 

Calls 

Destroys 

LLWT 

LDCA 

D.ZI 

LLRD 

LDCA 

D.Zl 

HOL 

UMES 

D.ZI through D.Z7 

MODMEST 

UMES 


UMES 

CONVERT, B.WUMES 

D.Zl, D.Z2, D.TO 

CONVERT 


D.Z2, D.Z3 

CLE1!MES 


D.Zl through D.27 

FCN 

STATUS, CFR 


READY 

CLERMES, STATUS, REL, SW, LPC, RES 


FILWT 

PAUSE, NODAT, LPC 


RES 

R.RGH, R.STB, ACC, SW 

D.T2 

CFR/ACC 

STS 

MAYMES, EEL 


STATUS 

STS, MAYMES 


REL 

R.DCH, PAUSE 


RELCR 

REL, CFR 


NSD 

MAYMES, RELCR, EXECUTE 


PAUSE 

R. PAUSE 


FETCH 

PUT 

PAUSE 

D.Zl through D.Z5 

RCD 

SALARM, RELCR, LDCA 

D.Zl 

PRT 


D.Zl, D.Z2, D.Z4, D.Z6 

PCHOLD/PGHNEW 

FCN, PRT, SALASM 


SALASM 


D.Zl through D.Z5 

MAYMOV 

FETCH, PUT, FIRST 

D.T5, D.T6 

EXECUTE 


D.Zl through D.26 

PRERQ 


D.Z6 through D.T4 

NODAT 

WTFET, PRERQ 


DORQ 

R.EREQS 

D.TO through D.T4 

CIO 

WTFET 

PAUSE, NODAT, DORQ 

WRITE 

PAUSE, NODAT, DORQ 


MAYMES 

B.MSG 

D.TO 

SW 

EXECUTE, R.PROCES 

D.Z2 through D.T5 

CLR 


D.Zl, D.Z2 

YFR 

FIRST 


MOVIM 

FIRST 

D.Zl, D.Z2 

SAVOUT 

MAKPTR 


LDCA 

SETBR 

FIRST 

• 

RUDDY 

STATUS,REL,SW,LPC,RES 
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176. 


177- 


Subroutine 

Calls 

Destroys 

XFR 

FIRST, MAKPTR 

D.21, D.Z2 

IMFIL 

RES, READY, FGN, PRT, REL 


FIRST 

MAKPTR 

FIRST 

D.TO through D.T5 

WFR 

YFR 

D.Z3, D.Z5 

B.DROPBF 

FETCH, PUT, FIRST 

D.TO 

B.MOVBF 

MAYMOV, PUT, FIRST 

D.Tl, D.T2, D.T7 

B.STEP 


D.TO through D.T4 

B.WUMES 

B.AMSG 

FIG, R.DEM 

D.22, CT, CT+1 

B.MSG 

R.DFM 

D.Zl, D.Z2, D.TO, 

FIG 


D.Zl, D.Z3, D.Z3 

B.FCIA 

B.EEW 

WTFET 

D.Zl through D.Z5 

B.SKFNT 

R.RCH, R.DCH 

D.Zl through D.Z7 

B.SETFT 

FETCH,. PUT 

D.Z3 through D.T7 

LPG 


except D.TO, D.T6 
ALL 

R.OVL 


D.Zl through D.T7 

R,EREQS 


D.TO through D.T7 

R.DFM 


D.TO through D.T7 

R.RCH 


D.TO through D.T4 

R.DCH 


D.TO through D.T4 

R. PAUSE 


D.TO through D.T4 

R.PROCES 


D.TO through D.T4 

R.STB 


D.TO, D.T2 


Note that any call to an overlay subroutine also involves a call to EXECUTE* 


Ijon-Over lay Non-Hardware Subroutines 
LLWT 


This is called during the preparation of a print line image to copy the control 
word in KEY through KEY+4 and the image in BUF through BUFH-154 C^EY+5 through 
KEY+159) into the 40B CM words that lie between the end of the relevant buffer, 
which is BUFLG-40B words long, and the beginning of the next buffer or the end 
of the field length* 

Entry and Exit Information 

None * 


LLED 


This is called during the preparation of a print line image to do the converse 
of LLWT- 

Entry and Exit Information 
None« 
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178. 

This is called at two points in HR, to translate the image of a Hollerith- 
punched card into display code information: at CED7A, in the course of ordi¬ 
nary card reading, and below CRD7F, to translate a job card. The card has been 
read, one column per PP word, into XMAGE through IMAGE“i79; note that for this 
routine to work, IMAGE must be an even address, as is apparent from the narra¬ 
tive at VGO below. As the information will be compressed, IMAGE ff. can be 
used to store the output of this subroutine as well. D.Zl, D.Z2, and D.Z7 are 
set to point to IMAGE: D.Z7 points to the next byte from which a Hollerith 
column is to be taken, D.Z2 points to the next byte into which a pair of dis¬ 
play code characters is to be stored, and D.Zl points to the byte in which 
something other than a pair of display code blanks was last stored. Of course 
nothing of the sort has been stored yet, but if the entire card turns out to 
be blank, this cell should show that one byte of information was obtained from 
it. D.26 is zeroed; this will be set non-zero if any column contains an in¬ 
valid combination of punches. Then we go to VMORE to start processing a column. 

179- At VMORE, the Hollerith column to which D.Z7 points is taken up; if this is 

OOOOB, control can immediately go to VBLANK, put the display code blank in the 
A register, and proceed to VGO to store the display code character. Otherwise, 
some decoding must be done. First, the 1, 8, and 9 punches (403B) are masked 
off; if none of them is punched, we go to V80 with 0 In the A register; if only 
the 9 punch, we go to V9; if only the 8 punch, to V8, and hence to V80 with 
8 in the A register} if only the 1 punch, we go to VI. If more than one of 
them is punched, we go to VBAD for an invalid combination. At VBAD, D.Z6 is 
set non-zero, to mark the error, and then control goes to VBLANK to treat the 
column as blank. At V9 or VI, D.Z5 is set to 9, or 1, the value the numerical 
punch should contribute to the BCD version of the column. Then the column is 
picked up again and checked for punches 2 through 7 (376B). If any of them is 
present, it Is an invalid combination and we go to VBAD; otherwise, to VD, where 
we always go when the numerical punches have been evaluated. 

180. When I and 9 punches are excluded, the allowable nximerical punch combinations 
aygi any single punch 2 through 8, or 8 and one other punch 2 through 7; i.e., 

8 yes or no, and no other or one other numerical punch. The BCD values of the 
punches are additive; lOB for the 8 punch, and the nominal values for the others. 
So at V80, D.Z5 is set to contain lOB or 0, depending on whether there was an 

8 punch; it has been established that there is no 1 or 9 punch; now the 2 through 
7 punches are masked out, evaluated, and the resulting 0, 2, 3, 4, 5, 6, or 7 
is added to D.Z5, after which we go to VD. If there turns out to be more chan 
one punch in the range 2 through 7, this is an invalid combination and we go 
to VBAD. 

181, At VD, the column is picked up again, and the zone punches isolated. For con¬ 
venience, zone punches will be evaluated as for external BCD: 0 is worth 2OB, 

- is worth 40B, and + is worth BOB; then the right half of table ALPH contains 
display code values of characters, in ascending sequence (apart from zero and 
blank) of the corresponding external BCD values. If and - or +- and 0 are 
punched. It indicates an invalid combination and we go to VBAD. If + and 0, 
we go to VZ5, and If - and 0 to VZ3. In these two cases, the only valid com- 
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binations are the two zone punchesj and nothing punched in the range 1 through 
9. So at VZ5 and VZ3, control goes to VBAD if D-Z5 does not contain 0; other¬ 
wise, the A register is set directly to the display code for +0 or -0 respec¬ 
tively, and we go straight to VGO. If there is only a plus zone punch, control 
goes to VDB with 0 in the A register, and adds 3, shifts to make 60B, and adds 
this to D-Z5* If there is only a minus zone punch, or only a zero zone punch, 
or no zone punch, VDB is reached with -1, -2, or -3 in the A register, to which 
3 is added and a shift performed to make 40E, 20B or OOB respectively, which 
is then added to D*Z5. This gives us the external BCD value; now the corre¬ 
sponding display code value is picked up out of the right half of table ALPH, 
and return to VGO is with this in the A register* Bowever, if the value in 
table ALPH is OOB, we go to VESCAPE instead; as things stand, this is just 
another branch to VBLANK, and means that an 8-6 punch is read as a blank. 

182, Because there are 64 different valid punch combinations (actually 66, but 

plus-8-2 and miiius-8-2 are universally allowed to count as plus-0 and minus-O) 
and only 63 possible display code characters (since OOB has to be reserved as 
a trailing blank), two punch combinations must either be treated as equivalent 
(blank and 8-6 the way table ALPH now stands) or else each of two or more in¬ 
put characters translated into a pair of characters in memory. This could be 
done by giving each of these special input characters the value OOB in table 
ALPH, On branching to VESCAPE, instead of just going to VBLANK, we would then 
look at the original column or at D-Z5, to see which special character was 
present, and accordingly choose two display code characters to add to the 
translated card image. However, this would require an adjustment of what is 
done at VGO and VGOA, as it would no longer be possible to tell from the mere 
address of a column in the original card image whether the corresponding dis¬ 
play code character was to go into the left or the right half of a byte in the 
translated card image. 

183* At VGO, the display code value of a Hollerith column is in the A register, and 
it is saved In D.Z3. Now 1 is added to D*Z7 to make it point to the next Hol¬ 
lerith column. If this is an odd address, we go to VGOA to put the display 
code character in the left half of the byte in the translated card image to which 
D.Z2 points. If it is an even address, the display code character is inserted 
Into the right half of the byte D.Z2 points to. As the byte is full, we compare 
it with two blanks; if it is not two blanks, its address goes in D.Zl, which 
is to contain the address of the rightmost non-double-blank byte. Then 1 is 
added to D-Z2- Finally, there is a return to VMORE for the next Hollerith 
column unless a display code character has just been inserted in the right half 
of IMAGE+39j, whereupon the whole card has been translated* 

184. At HOLA, the address of the last non-double-blank byte, or the address of the 

first byte if the whole card was blank, is in D.Zl; it is saved at HOLB+l because 
subroutine UMES may be called, and would destroy D.Zl, Later 1 is added to 
this address, and five zero bytes are read into that cell and the following 
4, to make a terminator for the card image. Now if D-E6 contains 0, control 
goes straight to HOLE. Otherwise, at least one column on the card contained 
an invalid combination of punches, and subroutine UMES is callod, with RS.HOL 
in the A register to select a HOLLERITH CHECK message for the pre-OUTPUT file 
of the job. At HOLE, we find the number of bytes in the translated card image 
up to and including the last non-double-blank byte, plus 1 because the image 
must end with at least one zero byte* Then the result is divided by 5, and the 
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quotient, increased by L if there Is any remainder, is put in ¥C. This is the 
count of CM words, including from 1 to 5 zero bytes in the last word, that must 
be transferred to the buffer as the card image. The five zero bytes are read 
in as explained already, and an exit is taken from subroutine HOL. 

Entry Information 

The Hollerith card image in IMAGE through IMAGE+79. 

Exit Information 


The display code card image, with trailing blanks replaced by 1 to 5 zero bytes, 
in IMAGE through IMAGE+5n-l, where n is the CM word count in WC. 


185. MODMEST 

This subroutine is called whenever a mode change is found within a record of 
cards being read inj i.e., when a normal binary or BCD card follows a card not 
of the same type, or when 80-column binary reading is initiated other than at 
the beginning of the record. If cell MODCHY,PS is non-zero, a mode change 
message has already been added to the pre-OUTPUT file on account of this record, 
and an exit is taken from MODMEST without adding another message- Otherwise, 
MODCHYjPS is set non-zero, and then, with RS.MOD in the A register to select 
the MODE CHANGE message, subroutine UMES is called. MODGHY,PS is zeroed at 
the end of each record. 

Entry Information 

Zero or non-zero in MODCHY,PS. 

Exit Information 

Non-zero in MODCHY,PS. 


186. UMES 

This subroutine is called with some number between 1 and 6 (RS.MOD and RS.END) 
in the A register, to add the corresponding message to the pre-OUTPUT file for 
the job that is being read in from a card reader at the current FET. The message 
number is saved in D.TO; then overlay B.UMES is called. The overlay includes 
the messages; it gets the message number from D.TO and finds the starting address 
of the corresponding message and saves it in D.Zl. Then it copies the message 
into MESSAGE through MESSAGE+5, immediately before the counts. Next it calls 
subroutine CONVERT twice; one to convert the nianber of the current record (in 
RCT, which corresponds to bits 24-35 of the 6th word of the FET) to decimal 
and insert it after RC. in the total message; and again to convert the number 
of the current card within its record (in CCT, which corresponds to bits 12-23 
of the 6th word of the FET) to decimal and insert it after CD. in the total 
message. Then the total message is something like 

ROLL.CHECK RC.00001,CD.0012 
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which would mean that an invalid Hollerith punch was found in at least one 
column of the 12th card of the 2nd record of the job. This makes a message 
of 3 CM words, of which the last byte is OOOOB, the format required by subroutine 
WUMES. The starting address of the message, MESSAGE, is put in D.TO, and overlay 
subroutine B.WUMES is called to add it to the pre-OUTPUT file for the job. Then 
control returns to exit from subroutine IMES in the permanent part of IIR. 

Entry Information 

The message number in the A register- 
Exit Information 


None- 


187. CONVERT 

This is called twice in the overlay part of subroutine UMES (B-UMES) to convert 
the number in the A register (which may range up to 9999^ although in fact no 
number greater than 2^'^12-1 could be fed to CONVERT^ as the count of records 
in a file* or cards in a record, would loop back to 0 after this maximum) to 
four decimal digits, each between OOB and IIB, and add them into the 4-character 
field in the byte D*Z1 points to and the one following it. These bytes already 
contain display code 0000. 

Entry Information 

The number to be converted in the A register, and the pointer in D.Zl* 


Exit Information 


None. 


188. CLERMES 

This subroutine is called whenever (with a few exceptions) a unit is found to 
be ready and not busy, in order to clear any B-display message there may be in 
the FET for the file, and to set LSTAT to GOOD if necessary. CLERMES is also 
called to do these things when the operator types in OK to end the display of 
a FM-line from a print file. 

189. If LSTAT contains GOOD, it can be assumed there is no display message in the 
FET, and an exit taken immediately. Otherwise, LSTAT is set to GOOD, and then 
we zero bits 0-35 of the lOth, and all of the Xlth through 14th words of the 
FET. This cancels any display message for the file, and cuts the J-display 
line back to the equipment type, EST ordinal, and job name in the 9th word of 
the FET and bits 36-59 of the 10th word- 

Entry Information 

None. 

Exit Information 


LSTAT contains GOOD. 
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190, ready 


This subroutine is called at various points in the main loop for printing and 
punching, to wait until the unit is ready, or to call for switching to a 
different unit if requested by a type-in, without holding up other files. 

This means that subroutine LPG has to be called; and whenever LPC is called from 
a subroutine, the return address has to be preserved beforehand and restored 
afterwards, (indeed if the subroutine that calls LPC were itself called from a 
subroutine, not from the main loop, then the return addresses for both the inner 
and the outer subroutines would have to be preserved and restored* This is just 
an extension of what LPC itself does.) 

191. We get OOOIB (for a printer) or OIOIB (for a putich^from STaTGON,TYPE, alter it 
to 0003B or. 0103B, and save.it. Then, we call subroutine STATUS, from which we 
return with the status byte from the unit in the A register. Now we mask it 
with 0003B or 0103B, invert the rightmost bit, and branch to REaDYX if the 
result is 0* This means that the unit is ready and not busy, and is not in 
fail-to-feed status if it Is a punch* At REaDYX, for printers but not punches, 
we call subroutine GLEEMES to set LSTaT to GOOD and clear away any B-display 
message; then exit from REaDY. 

192* If the status is not satisfactory, we call subroutine REL to release the channel, 
6681, and equipment. Now we call subroutine SW with 2 (HS.BUSY) in the A 
register* The 2 means that SW will do nothing if the same bit of the status byte 
is 1, indicating busy; presumably it is just a question of waiting till the unit 
is not busy again. But if the trouble with the status was rather a non-ready 
or fail*to-feed status, SW will try to switch to a different unit of the same 
type if this has been called for by an operator type-in* 

193. Now LPC is called to give other files a chance; then subroutine RES is called so 
that the status test can be repeated* If the return from RES is with 0 in the 
A register, we go back to REaDYB to repeat the whole cycle* If not, however, the 
unit has rejected a function, and everything has been released; now we return 
to READYC, as if we had found unsatisfactory status and called REL* But this 
time the A register contains 1 (the return from RES is always with either 0 or 1 
in the A register); entering SW with this will cause it to try to switch units 
even if the status is busy. We do this because if the unit is rejecting functions 
there is no way of reading a new status byte from it, so there is no point in 
considering whether it has busy status or not. 
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194. Note that DEEP is at LSTAT+1, and is saved in bits 36-47 of the i6th word of 
the FET, and restored from there, by subroutine LPC. 

Entry Information 

None, but the unit must be connected. 

Exit Information 

None, but the unit is still connected. 


FILWT 

195. Just as READY waits economically for a printer or punch to be ready, FILWT 
waits econimically for the current FET to show not busy status. If FILWT was 
entered with 0 in the A register, this is all it does. Otherwise, after the 
FET becomes not busy, the original contents of the A register are reloaded, 
and then subroutine NODAT is called to insert the status in the FET and the FNT 
entry, and to begin setting up a stack request to carry out the action specified 
by the status. 

196. As subroutine LPC is called while waiting for the FET to be not busy, it is 
necessary to preserve the return address of FILWT, and the number that was in 
the A register on entry to it. These are saved in DEEP and DEEP3 respectively, 
which are preserved in bits 36-47 and 0-11 of the 16th word of the FET. 

Entry Information 

The A register contains 0 if FILWT is merely to wait, or some active file status 
(40B and 240B are the ones actually used at present) for an action to be initiated 
when the FET shows not busy. 

Exit Information 

If the A register contained non-zero on entry, this value has become the status 
in the FET and FNT, and subroutine NODAT has begun setting up a stack request, 
and has put a copy of the FNT entry in MYFNT through MYFKT+14. 


PAUSE 

197. This is called whenever there is a risk of being held up by a storage move: 

1. In subroutine FILWT, and at EEOFQ, while waiting for an FET to be not busy. 

2. In subroutine REL, which is called when an equipment is not ready. 

3. In subroutine FETCH, which is called to secure access to the buffer assignment 
registers, IIR may be locked out by IIQ while the Utter expands or contracts 
storage at the JANUS control point. 
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4, In subroutines CIO and WRITE^ for reading and writing, respectively, itmne- 
diately after the request has been put in the stack, or after it has been 
decided not to make a new request. The only necessity for PAUSE here is 
probably when no new request is made because the status is already read 
or write incomplete. Processing may be held up by lack of space or infor¬ 
mation in the buffer until the earliest request is complete, while the re¬ 
quest may be held up until a storage move has been done- 

5- In overlay B.RTER, while waiting for the completion of writing a pre-OUTPUT 
file for a job just read in- 

198. Subroutine PAUSE merely calls subroutine R-PAUSE, and then resets D.EA and D-FL; 

if the error flag is 0, exit from PaHSB; if F-ERPP, drop the BF; if anything else, 
set switches LPCM and LPGN to prevent future calls to B-FNT and E-FORAG, so that 
HR will drop after completing current files. 

Entry and Exit Information 

None - 


199. FETCH 


This secures access for HR to the buffer assignment registers in control point 
“fyys through I04B, locks out IIQ from them, and copies the registers to KEY 
through KEY-h4 and BUFAS through EUFAS+24 p For a full explanation, see the 
description of subroutine FETCH in program IIQ* 

Entry Information 

None • 

Exit Information 


The buffer assignment registers in KEY through BUFAS+24- The A register contains 
address CP+105B, a fact made use of in overlays B-FNT and B-FORAG- 


200. PUT 

This returns the buffer assignment registers to control point +77B through 104B, 
after updating KEY+2, and releases the interlock so that IIQ can get at them- 
For a full explanation, see the description of subroutine PUT in program IIQ. 

Entry Information 

The buffer assignment registers in KEY through BUFAS+24- KEY+2 may need up¬ 
dating, so that it will be at least equal to KEY+3. 

Exit Information 


The A register is non-zero, a fact used in subroutine MAYMOV. 
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201. SALABM 


This subroutine sets the alarm for the current FETT to the present value of the 

millisecond clock plus the number in the A register on entry. It is called: 

1. In subroutine RCD, just after reading a card, with AL*CR (—33) in the A 
register, because the next card cannot be read until 50 msec, from now- 

2. In subroutine PCHOLD/PCHNEW, just after subroutine PRT has been called to 
punch a Card, with AL.CP (—200) in the A register, because the next card 
cannot be punched until 240 msec- from now. 

3- Below SPG52, after'subroutine PRT has been called to print a line, with 

AL.LP (^0) in the A register, because the next line cannot be punched until 
60 msec, from now* 

4. At BACKA, with the maximum useful value of 740B in the A register, while 
waiting for IIU to complete a backspace- 

5. In overlay B-FNT, when setting up a file to print or punch is begun, with 
0 in the A register, as the equipment may be ready now. 

Entry Information 

In the A register, the number of milliseconds ahead by which the alarm is to 

be set. 

Exit Information 


The alarm duly set. 


MAYMOV 


202. This subroutine is called, about every 30 seconds for any file, to see whether 
there should be a switch from the buffer now in use to one lower down in memory* 
It is also called in overlay B-RTER when a card reader file has just been termi¬ 
nated, but the first card of the next file is already in memory- If such a 
buffer move is not desirable and possible, nothing special has to be done. If 
it is, on exit from MAYMOV the HR PP has the interlock and access to the buffer 
assignment registers, and this must be dropped by subroutine PUT as soon as 
possible. In that case, the number of the current buffer is in D-T5, and the 
number of the buffer into which its contents could move is in D-T6. (Buffers 
should be used as low in memory as possible, so that inactive buffers will be 
concentrated at the upper end of the field length, and program IIQ may be able 
to shrink the field length when more than one buffer Is unused. See the de¬ 
scription of program HQ, at KC.) 

203. MAYMOV begins by calculating the number of the current buffer, using the starting 
address of buffer number 0 in 2ERBUF, and saves It in D.T5 (permanently) and 
D.T6 (temporarily). If this is less than 2, exit immediately with the A register 
non-zero, indicating nothing doing, because we could not move down from buffer 

0, and there would be no point in moving from buffer 1 to buffer 0, as we do 
not deliberately get rid of the only free buffer in the field length. Otherwise, 
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subroutine FETCH Is called to get access to the buffer assignment registers 
and copy them to KEY through KEY+A and BUFAS through BUFAS+25. Now if the 
count of all buffers in the field length, in KEY+1, equals the count of buffers 
assigned, in KEY+3, there is no free buffer to move to, so control goes to 
MAYMOVB and calls subroutine PUT to release the interlock on the buffer assign¬ 
ment registers. PUT exits with non-zero in the A register, and control exits 
from MAYMOV with the same non-zero to Indicate nothing doing. Otherwise, it 
goes to MAYMOVA. Let the number of buffers in the field length be n; then scan 
back from BUFAS+n-1 to BUFAS+k, where k is the number of our present buffer; 
if any of these cells contain non-zero, ours is not the highest buffer in use, 
and there is no need to try to move it, so go to MAYMOVB as above. Otherwise, 
scan BUFAS through BUFAS+k-2; if none of these is zero, there is no free buffer 
below ours and control goes to MAYMOVB as above. Otherwise, leaving the number 
of the lowest free buffer in D-T6, exit from MAYMOV with 0 in the A register, 
indicating that the move can be made. 

Entry Information 

None. 

Exit Information 


If the move cannot be made, none except the non-zero in the A register. If 
it can, the A register contains 0, the number of the present buffer is in D.T5 
and the number of the buffer into which the move can be made is in D.T6; we 
have the interlock for the buffer assignment registers and so must not drop the 
project without calling subroutine PUT. 


EXECUTE 


20A. The macro EXECUTE k is expanded to LDN k; RJM EXECUTE. So the subroutine is 
entered with the number of an overlay (B.something) in the A register. The 
directory of overlay is in RA+lOB through RA+17B. The first word in the table 
contains the addresses of overlays 1 to 5, the second word those of overlays 
6 to 10, and so on. Now we multiply k by .144B and discard the fractional part 
of the result; as k is always below SOB this gives the integral part of the 
quotient (k-l)/5, q, which is stored in D.Z2. Adding RA+lOB to this will give 
the address of the wanted word in the index. Then we subtract 5q from k and 
add 1, which gives the byte number, 1 to 5, within the word. Then fetch the 
byte from the index, and in turn fetch the word it points to, at RA+ru, which 
has the form: 

VFD 12/a,12/b,12/c,24/0 

where a is the length of the overlay in CM words, not counting this first word; 
b Is the starting address of the area in this PP into which it is to be loaded, 
somewhere between lOOOB and 1777B; and c is 0 if the overlay is to be treated 
as a subroutine and non-zero otherwise. So from RA+nrfl through RA+m+a a CM 
words are copied into cells b through b+5a-l in our PP. Then c (in D.Z3) is 
checked. If it is non-zero, a branch Is taken to the start of the overlay, 
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at b. If c is zero, the return address at EXECUTE is copied into the second 
cell of the overlay, at b+1, the first cell being assumed to be LJM; then branch 
to b+2 in the overlay, so that if the overlay exits by branching to its first 
cell at b, this will return control to the point in HR immediately after the 
call to EXECUTE. 

Entry Information 

The overlay number in the A register. 

Exit Information 


The overlay set up and entered. 


PRERQ 

205. This is called, with the address of the FNT entry for the current file in the A 
register to copy that entry to MYFNT through MYFKT+IA, and to begin setting 
up a stack request in MYRQ through MYRQ+9, byj 

1. putting the address of the FNT entry in bits 36-47 of the first CM word. 

2. putting the physical unit number, or 1 if the file is empty, into bits 
0-5 of the first CM word, setting bits 6-11 to 0. 

3. putting the FIRST and LIMIT pointers into bits 24-41 and 0-17 of the second 
CM word, and setting the rest of the word to 0. 

4. setting bits 48-59 and 24-35 of the first CM word to 0. 

5. leaving bits 12-23 of the first CM word to be set to the order code by 
subroutine DORQ, just before it calls R.EREQS. 

206. All that needs to be explained is how to get the physical unit number. Bits 
36-47 of the second word of the FNT entry contain k, the number of the first 
RBT word pair for the file. If this is 0, control goes to PRERQA to set the 

PU number arbitrarily to 1. Otherwise, q is gotten from bits 0-11 of CM location 
P.RBR. 100B*q is the length of central memory. The first RBT word pair for 
the file is at 100B*q-2k and 100B*q-2k+l, and the first word of the pair is 
read. Bits 39-47 of this CM word contain r, the RBR ordinal. The starting 
address of RBRs is in bits 36-53 of the word at CM location P.RBRj call It s. 

Then s+38r is the address of the first word of the RBR for the file; bits 42- 
47 of this word contain the physical unit number. 

Entry Information 

FNT entry address in the A register. 

Exit Information 

The FNT entry has been copied into MYFNT through MYFNT+14; the stack request 
has been partly set up in MYRQ through MYRQb9 as explained above; the A register 
contains 0 (this is used in overlay B.TER.) 
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207. NODAT 


This subroutine is called from subroutines FILWT, WRITE and CIO, to set up a 
stack request and to set the FNT entry and the FET to a new active status. 

It is entered with the status code in the A register; this is saved and also 
filled into the FET using subroutine WTFET. Then the address of the FNT entry 
is loaded from DEST3 to the A register, and subroutine PRERQ is called to fetch 
the FNT entry to MYFNT through MYFNT+IA and set up most of the stack request. 
Then the FET address is inserted in bits 42-59 of the second CM word of the 
stack request. Then the level number field in the FNT entry is zeroed, and 
the entry is written back to central memory- Then an exit is taken. 

Entry Information 

The new active status code in the A register. 

Exit Information 

The stack request has been partially set up in MYRQ through MYRQ+9; in fact 
it is complete except for the function code that will be put into MYRQh3 at 
the beginning of subroutine DORQ, and the control point number, which will be 
inserted in bits 6-11 of the first CM word of the request by subroutine R.EREQS. 


208. DORQ 

This subroutine is called, with a stack request function code in the A register, 
when a stack request has been set up in MYRQ through MYRQ+9 all but the function 
code, and is to be inserted in the request stack. 

The function code (including level number in the case of write-end-of-record) 
is inserted in bits 12-23 of the first CM word of the request; then (as sub¬ 
routine R.EREQS requires), D.Tl through D.T4 are zeroed and D.TO is set to point 
to the first byte of the stack request. Then R.EREQS is called, on return from 
which it is known that the request has been inserted in the stack, so there 
is an exit from DORQ. 

Entry Information 

The function code (including level number if write-end-of-record) in the A 
register; the request, lacking only this and the control point number, in 
MYRQ ff. 

Exit Information 


None. 


CIO 

209. This subroutine Is called to do all the reading from disk for print and punch 
files. A check is made to see whether the FET showed busy the last time its 
first word awas read into CURFET through CURFET4. If so, there is no point 
in making up a stack request, because stack processor will already have read 
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as much as possible into the buffert and no more than one card or line could 
have been removed since the first word of the FET was last read. Or if the 
FET shows end-of-information, an exit is taken from CIO without doing anything, 
because an attempt to read would be useless* If there has been no exit from 
CIO for any of these reasons, 12B is put in the A register and subroutine NODAT 
called to set that status C read incomplete) in the FET and the FNT entry, and 
to set up a stack request to read the file, all but the function code in bits 
12-23 of the first CM word of the stack request. Finally, with the function 
code for reading in the A register, subroutine DORQ is called to complete the 
stack request and get it inserted in the stack. Then exit from CIO. 

210, Note that whenever there is an exit from CIO, subroutine PAUSE is called first 
to pause for storage relocation. We may be waiting for stack processor to do 
a read for us, while stack processor is waiting until a storage relocation is 
done. 

Entry Information 
None- 

Exit Information 


None- 


WTFET 

211* This subroutine is called with some FET status in the A register, to store that 

status in CURFET4 and then insert it in the FET by copying GURFET through CUEFET4 
Into the first word of the FET- 

Entry Information 

In the A register, the new FET status. 

Exit Information 
None - 


WRITE 


212, This subroutine does for card read files what CIO does for punch and print files, 
i.e.j causes disk transmission, in this case writing- First CURFET4 is examined 
to see whether, the last time we read the first word of the FET, it showed busy 
status- If so, exit after pausing for storage relocation. There is no point 
in making a further request to write, because stack processor will have tried 
to write as much as possible from the buffer anyway, and more than 16 CM words 
could not possibly have been put into the buffer since we last called it. But 
there should be a pause, because stack processor might be waiting for a storage 
relocation to be completed. 
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213. Otherwise, we set to 0 the level number field in CURFET3; this will be copied 
into the FET itself when NODAT calls WTFET in a moment, and NODAT always sets 
the corresponding field of the FNT entry zero. Note that the only time this field 
iti the FET and the FNX entry should be nonzero is when an end—of^record/file 
card has just been read; at that time, not subroutine WRITE but overlay B.REOF 

is called. With 16B in the A register, for write incomplete, we call subroutine 
NODAT to set that status in the FET and the ENT entry, and to set up a stack 
request, all but the function code in bits 12-23 of the first CM word, to write 
tlis file. Finally, with the function code for writing in the A register, we call 
subroutine DORQ to complete the stack request and get it inserted in the stack. 
Then we exit from WRITE, this time without calling PAUSE; if the write action 
just called for is held up because of a storage move, at any rate WRITE will be 
called again soon; we shall see the busy status then and exit with a PAUSE call. 

Entry and Exit Information 

None. 

MAYMES 

214. This subroutine is called to produce one or two appropriate messages whenever 
an equipment gives a bad status, unless that status has already been recog¬ 
nized and signalled, and no different status has been recognized in the 
meantime. The calling sequence is: 

LDC X*10000B+z*100B4y 

RJM MAYMES 

If LSTAT contains status x, nothing needs to be done and we exit immediately. 
Otherwise, LSTAT is set to contain x; VFD 6/z,6/y is stored in D.TO, and we 
call overlay subroutine B.MSG to produce the messages. If only one message is 
wanted, z will be zero. On return from B.MSG, we exit from MAYMES. Note that the 
values X may have are not hardware statuses, but arbitrary numbers from 1 to 
5 named GOOD, UNREADY, REJFNC, XMSNPE, and WROGER. 

Entry Information 

The calling sequence, and LSTAT. 

Exit Information 

LSTAT updated, 

SV 

215. This subroutine is called in three ways: 

1. In subroutines READY and RUDDY, while waiting for a printer or punch to be 
ready and not busy, or ready and memory not busy, SW is called with HS.BUSY (=2) 
or HS.MEM (=100B) in the A register. 

2. In subroutines READY and RUDDY, SW is called with 1 in the A register, after 
getting a non-zero (i.e. 1) response from subroutine RES, showing that the punch 
or printer has rejected a function. 

3. In subroutine RES Itself, SW is called with 0 in the A register, after a punch 
or printer has given a non-zero response from subroutine ACC, showing we were 
unable to connect it. 
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216, We want to treat cases (2.) and (3.) In the preceding paragraph alike; so 
on entering SW we zero the rightmost bit of the A register. Then we match 
the remaining content of the A register with the content of location STAT, 
which is where the printer or punch status byte is stored whenever it is 
read- If they have a 1 bit in common, exit from SW without doing anything. 

When we call SW with HS.BUSY or HS.MEM in the A register, it i Sf^because the 
equipment status either shows the corresponding bit on, or shows the ready 
bit off, or both. If the HS-BUSY or HS.MEM bit is on, probably we have only 

to wait for it to go off in the normal way, so there is no need to think about 
switching, and we exit from SW. If HS-BUSY or HS-MEM is off, but the ready bit 
is also off, something is wrong with the equipment and we want to continue. 

If HS.BUSY or HS.MEM is on, but ready is off, we exit though it would be reason¬ 
able to continue. However, we assume that HS.BUSY or HS-M0! will shortly go 
off, and on a future trip through SW we will have the situation of HS.BUSY 
or HS.MEM off and ready off, and at that time will try to switch. 

When we call SW with 0 or 1 in the A register, we want to try to switch units 
no matter what the status. 

217. If we do not exit from SW as described in the preceding section, we check 
FL.SWGH and exit If it is 0. If a type*in *^/SWuu.^^ has been processed at the 
beginning of the main loop, or in subroutine PEE called by LPC, this bit will 
be 1. If so, we get the two letters for the proper equipment type from the 9th 
word of the FET, and request monitor for another of this type* If the response 
is zero, no other is available, so we exit from SW. Otherwise, call overlay 
B.SWICH. There would have been no logical difficulty about moving more of this 
routine from the permanent part of HE into the overlay, as there is no ques¬ 
tion of calling LPC. But SW may be called very frequently while one equipment is 
disabled and the file is waiting for another one to become free, and it seems 
better not to spend the time on repeatedly loading the overlay until there is 

a free equipment. 

218* When we enter B.SWICH, the EST ordinal of the new equipment is in D.TO. First 
we zero FL.SWGH, as its request is now being obeyed. Then read the EST entry 
for the equipment, and copy its connect code and channel number(s) into DEST4 
and DESTl. We save the old EST ordinal from PSTAK,PS and replace it with the 
new one. Then set the old unit to off status in the EST (bit 23 becomes 1) 
and ask monitor to release it from this control point. Then we replace the old 
EST ordinal by the new one at both positions in the FET where it is recorded - 
in binary in bits 48-59 of the 15th word of the FET, and as two octal digits 
in display code, in bits 36*47 of the 9th word. Finally, if TYPE indicates a 
print file, we set FL.PAGE to 1 to ensure that the continuation of this file 
will start on a fresh page on the new printer. Then return to the permanent 
part of Hr, to exit from SW. 

Entry and Exit Information 

None. 

CLR 

219. This subroutine is called to zero a card image area in IM4GE through IMAGE+79; 
whenever preparing to punch out a card (except for the first card of a file, 
with the^job name visible on it); and also in overlay B-TER just to get a large 
zeroed area to copy into the FET area in central memory. 
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Entry Informtion 


None* 

Exit Information 


The A register contains 0^ a fact used in overlay B-EOFCH* 

YFR 

220, This is called for a print or punch file with a PP address x in the A register. 
If the buffer is empty, it exits with 0 in the A register; otherwise, it reads 
the next GH word from the buffer into x through x-l-4, updates the pointer in OUT, 
and exits with non-zero in the A register. 

Entry Information 

The address of the destination in PP memory. In the A register* 

Exit Information 


Zero in the A register if the buffer was already empty; otherwise the A register 
is non-zero and the PP OUT pointer has been updated- 


MOVIM 

221, This is called to save the image of a card about to be punched, or to recover 
the card image most recently created or its immediate predecessor. The image 
area in PP memory is IMAGE through IMAGE“K79, The save area in CM is either 
x4-BUFLG-40B through x^-BUFLG-21B, or X+BUFLG-20B through x+BUFLG-lB, where 

X is the address of the first word of the buffer, A buffer of BUFLG words is 
provided for every file, but in a punch file the LIMIT pointer is set only to 
FIRST+BUFLG-40B, so that these two areas are free for image saving. They are 
used alternately, and FL.FLIP Is inverted to alternate them, after each card 
has been physically punched and its predecessor successfully checked, 

222, MOVIM is entered with 777776B, or OOOOOOB, or 00000IE in the A register. Only 
bits 17 and 0 are significant. If bit 17 is 1, the image is written to the 
free save area, i.e,, the one not used the last time a card image was saved; 
the choice of save area is specified by bit 0 being 0. If bit 17 is 0, we 
should read back from a save area into IMAGE through IMAGE'h79; if bit 0 is 0, 
this is the save area most recently used, i.e*, MOVIM fetches the image that 
was most recently constructed for punching, and stored by a call to MOVIM with 
777776B in the A register. But if bit 0 is 1, MOVIM fetches the card image from 
the other save area, i-e. the second-most-recently constructed card image, which 
is the image of the card to be checked for compare error. Remember that when 

a card is found to give a bad punch status, the next card has already been 
punched, so both have to be repunched. 
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223. When MOVIM is entered, the A register is saved (bit 0 is the only interesting 

thing saved) and then a central memory read or central memory write instruction 
selected according as bit 17 is 1 or Cl Then the save area is selected; this 
begins at LIMIT if bit 0 of the A register on entry is the same as FL.FLIP, 
and L1MIT+20B if the two bits differ. Then the image is read/written from/to 
this area, and an exit is taken from MOVIM. 

Entry Information 

In the A register, bit 17 is 1 for saving and 0 for recovering a card image; 
bit 0 is 0 for saving a card image not yet punched, or for recovering such 
an image or the image of the card last punched before its predecessor has been 
successfully punched; bit 0 is 1 for recovering the image of the preceding card. 

Exit Information 

None. 


SAVOUT 


224. This subroutine sets the OUT pointer in the FET according to the pointer in 

PP memory. Galling it has the effect of making irrevocable the removal of words 
from the CM buffer. 

Entry and Exit Information 

None. 


224a. LDCA 

This subroutine puts the absolute address of the last+1 word of the buffer 
into the A-reglster; it is equivalent to what LDCA D.LIMIT would do if D,LIMIT 

and D.LIMIT+l were used in the normal way. A special subroutine is provided 

for this "LDCA” because it is so often called to get at the card or print line 

image that follows the buffer. First subroutine FIRST is called, to put the 
absolute address of the beginning of the buffer in the A register; then the length 
of the buffer, taken from the table at LIMIT, is added. 

Entry Information 

None. 

Exit Information 

The absolute address of the last+1 word of the current file buffer, in the A 
register. 

224b. SETER 

This is called at various points in the construction of a print line image, to 
put the address of the instruction next following the RJM SETBR instruction into 
the second byte of the control word for the line image. Then we return to the 
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instruction following RJM SETBR. This is done so that if the construction is 
interrupted by a branch to LPD99, then the next time this file is taken up, sub¬ 
routine LPC will exit to START, from which we shall branch to LPR; then we shall 
come to LPRQ, and because FL.LINE=1, branch to the address given in the second 
byte of the control word, at KEY+1. 

Entry and Exit Information 

None • 


224c. 5^ 

This is called to add to the current contents of the circular buffer a number 
of CM words given in WC, which begin at the address in XFR2, The IN pointers 
in the PP and the FET are adjusted accordingly. This is called most commonly 
during card reading, to store a new card image in the buffer. It is also called 
in overlay B.LPEOR, during printing, to add a zero word after the last word in 
a logical record, if this word does not end in a zero byte. 

First we subtract the content of IN from the length of the buffer, to find the 
number of empty words at the end of the buffer. Then we store in D.21 this 
number, or the content of WC, whichever is less; i.e-, the number of CM words 
to be stored beginning where IN points. Then, at XFRl, branch straight to 
XFR4 if WC contains 0, as there are no words to be moved and we have effectively 
finished. Probably this never happens. Next store the difference between WC 
and D.Zl in D.Z2; this is the number of words, if any, that will have to be 
stored at the beginning of the buffer after filling the vacant space at the 
end. Now call subroutine FIRST and add the IN pointer to the A register, giving 
the absolute address of the word in the buffer to which IN points; then store 
(D.Zl) words, taken from the area to which XFR2 points, in the buffer. 

Note that if D.Zl contained 0 this would be a desastrous proceeding, so that 
we depend on JANUS and the stack processor never to leave the IN pointer equal, 
in effect, to the LIMIT pointer, but to reset it to the FIRST pointer in every 
such case. 

After moving information to the empty space at the end of the buffer, we check 
D.Z2, which contains the number of CM words to be moved to the beginning of the 
buffer; if this is 0, we are finished and branch to XFR4. Otherwise, take the 
starting address of the material just copied from XFR2; add five times the number 
of CM words so far, and store the result in XFR3 as the starting address of 
the rest of the material to be copied. D.Z2 already contains the number of 
CM words in this remainder, so we call FIRST to get the beginning address of 
the buffer, and copy the rest of the information to the buffer. 

At XFR4, WC still contains the total number of CM words moved, and we add it 
to the IN pointer in the PP. If this is now equal to or greater than the length 
of the buffer, it must be reduced by the length of the buffer; hence it will 
never point to LIMIT. Then call MAKPTR to make an FET pointer word showing 
the true relative value of IN, store it in the third (IN) word of the FET, 
and exit. 
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Entry Information 

XFR2 has been set to point to the first byte of the first word to be copied 
to the buffer, and WC contains the number of CM words to be moved. 

Exit Information 

IN and the the FET IN pointer have been updated, and WC remains unchanged. 


224d. FIRST 

This subroutine does what LDCA D.FIRST would do, if D.FIRST and D.FIRST+1 were 
used in the normal way. We set it up as a subroutine to free those two direct 
cells for another use. Calling the subroutine does not take much longer than 
the LDCA procedure, and the only inconvenience is having to set up the instruc 
tion at FIRSTA, and to extract the pointer from there when it is needed as a 
relative rather than an absolute address. But all instances of those actions 
are infrequently carried out, except for setting FIRSTA each time control 
switches from one file to another. 

Entry Information 

None. 

Exit Information 

The absolute address of the first word of the buffer, in the A register. 


224e. MAKPTR 

This is Called whenever we have to reset the FET IN or OUT pointer. On entry, 
the content of PP pointer IN or OUT is in the A register. This is saved; then 
we call subroutine FIRST to get the absolute address of the start of the buffer 
in the A register; subtracting lOOB times the content of D.RA gives the relative 
address, which the FIRST pointer of the FET contains. We add the content of 
IN or OUT to this, and store the result in the right two bytes of D.TO through 
D.T4, which was previously zeroed. Then D.TO through D.T4 is the wanted pointer 
word. On return from MAKPTR, we shall want to write this word Into the FET; 
so before leaving, we put the address of the first word of the FET in the A 
register. 

Entry Information 

In the A register, the amount by which the new pointer is to exceed the address 
In the FIRST pointer of the FET. 

Exit Information 

D.TO through D.T4 hold the new pointer, and the A register contains the address 
of the FIRST pointer in the FET. 
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224f. IMFIL 


This is called in two situations when printing a file on a 512 printer: when 
beginning the file, and whenever we resume printing after stopping because 
bit 10 or bit 2 of the printer status byte was 1. The subroutine fills the 
^^Image buffer^^ of the printer, thus defining, for each position on the printer 
train, the character code as transmitted by the PP that is to correspond to it. 

First we store the return address in DEEPl, as we shall call subroutine READY, 
which calls LPC, and may also call LPC directly, and in either case other files 
may be worked on and may cause this subroutine to be called. Note that READY 
saves its return address in DEEP; so there is no conflict. Then we call subroutine 
RES to reserve the channel, select ^the 6681, and connect the printer. If the 
return is with O.in the A register, all is well and we go ahead; otherwise the 
connect was rejected and everything has been released already; so we call LPC 
to allow other files to go ahead and then return to the RES call at IMFILE. When 
RES has been successful, we call subroutine READY to wait until the printer is 
ready and not busy. Then put function code 12B in the A register and call 
subroutine FGN to send it to the printer. This function will cause the next print 
line image sent to the printer to be copied into its print image buffer, rather 
than being printed. 

If the return from FCN is with non-zero in the A register, the function was 
rejected; everything has been released already, and we return to IMFILE to 
start over. Otherwise, call READY again to wait until the printer is ready and 
not busy. 

The code up to this point could not be included in the overlay, because of 
the calls to LPC and READY* But now we call overlay B.FILL to build the line 
image, a purely internal process with no delays. 


224g. E.FILL 

At FILLX, we alter the first word of table ALPH so that display code GOB will 
be translated and sent to the printer as BCD 16B rather than 60B (blank). 

In actual printing (and BCD punching) of display code, OOB has to be treated 
as blank, as well as display code 55B; so this leaves one of the 64 possible 
BCD codes, namely 16B, unrepresented and impossible to output. The percent sign 
is never printed, but it may be on the printer train, and we want to have a 
distinct code, 16B, associated with it in the printer's image buffer so that 
at least no other code will ever cause it to print. 

Now we check the disposition code to see if the printer is using a 48-, 64-, 
or 288-character train; according to this we branch to FILLZ, FILLC, or FILLR 
respectively. 

The line image is to be set up in IM288 through IM288+237, and subroutine PRT 
will be altered temporarily to transmit from there rather than from IMAGE as 
usual- This is because an ordinary print line can never be more than 155 bytes 
long, and HR will assemble correctly as long as there are 160 bytes above 
IMAGE in the PP memory. But here we deal with a 288-byte image, that might 
overflow the memory. 
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So the 288-character is simplest. The 288-byte train image is already at 1M288 
(but the table is en^jty in the current version of HR-IIS) and we branch straight 
to FILLR. For the 48- and 64-character cases, we use the tables at 1MAGE48 and 
IMAGE63 to build up a 144-byte image beginning at IMAGE. The 48-character case 
is trivial, as we just copy the 24 bytes of the table six times over, corresponding 
to the sixfold repetition of the character set on the train. The 64-character 
case is more complicated, and not worth describing in detail, but we build a 
144_byte image corresponding to the arrangement of the train as given in the 
first descriptions of the 512 printer. For both 48 and 64 characters, we come to 
FILLK after: the 144-byte image is formed, to expand it to a 288-byte image 
beginning at IM288, The two characters in each byte are separated and made the 
right halves of two consecutive bytes, of which the left halves contain zero. 

For all three types of train, we arrive at FILLR; store 288 in WC, as the length 
of the "line image" to be sent out; alter an address in subroutine PRI so that 
it will find the line at IM288 ff. rather than IMAGE £f.; and return to 
the main part of the subroutine at FILLQ. Here we call PKT to transmit the 
image, then restore the first byte of table ALPH to its original value, 6055B, 
and restore the address IMAGE in subroutine FRT. 

At IMFILA, we call READY to wait until the printer is ready and not busy. On 
return, send either 13B or 14B to the printer as a function code, accofding as 
the disposition code is for 288-character printing or not. These two functions 
select and deselect, respectively, extended array printing. If the return from 
FCN is with non-zero in the A register, the function has been rejected and 
everything released. Then we must call RES again to reserve and connect every¬ 
thing, and return to IMFILA to try again. But if the return from RES is with 
non-zero in the A register, we must call subroutine LPC to give other files 
their turns, and then go to IMFILB to try RES again. 

When the function code has been accepted, we get to IMFILF and call subroutine 
READY once more. On return, send function 30B to the printer to cancel 8-line 
spacing and auto-page-skipping. If the return from FCN is with non-zero in 
the A-register, go back to IMFILB and start over as if the 13B or 14B function had 
been rejected. If the 30B function is accepted, continue by calling READY again, 
and then checking FL.AUTO. If =0, go to IMFILC; otherwise, we must renew the 
auto-page-skip select by sending function code 5 through subroutine FCN. Once 
again, if this is rejected, return to IMFILB and start all the functions over; 
if accepted, continue to IMFILC, after calling subroutine READY. 

At IMFILC, check FL.8LL; if =0, go to IMFILD; otherwise, we must renew the 
8-line spacing selection by sending function code lOB through subroutine FCN. 

If this is rejected, return to IMFILB and start all the functions over; if 
accepted, continue to IMFILD. 

At IMFILD, we release the channel, 6681, and printer through subroutine REL, and 
then exit from IMFIL to the return address that was stored on entry at DEEPl. 

Entry Information 

Only the disposition code, in F5. The printer, 6681, and channel, are 
disconnected, unselected, and unreserved. 

Exit Information 

None. The hardware is again disconnected, unselected, and unreserved. 
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Non-Hardware Overlay Subroutines 


B.MSG 


Z25f THi.5 is called wltli one or two message numbers in D*T0^ to get tbe corresponding 
messages written on the system dayfile or displayed on the J- and B-displays. 
D.TO contains 6/z, 6/y where y is the number of the first message and z is 
the number of the second or 0 if there is only one message* 

226. First, at MSGZ, the 9th through 14th words of the FET are read to IMAGE through 
lMAGE+29- This puts the equipment type and EST ordinal, in display code, in 
IMAGE and IMAGE+1, two blanks in IMAGE+2, the file name in IMAGE+3 through 
IMAGE+6, and either zeroes or a previous B-display message in IMAGE+7 through 
IMAGE+29. Now D.TO is picked up, 6/0,6/z formed and saved in MSGY+l, and y 
considered. It is logically l/ya,5/yb where yb is the message number and ya 

is 0 for a B-display message or 1 for a system dayfile message. After yb is 
isolated, it is stored in D.TI, and used to consult table MSDIC, fetching the 
starting address of the message and storing it in D.Zl. Then, if ya is 0, 
the message is copied into IMAGE+7 ff.; if it is 1, into IMAGE+2 ff.; in either 
case, the process stops at the first zero byte in the message. Then, if ya 
is 0, control goes to MSGB; otherwise subroutine R.DFM is called to add the 
message beginning at IMAGE to the system dayfile. This gives the device type 
and number, and one of messages CFEB, CMEA, PRES, and CFRA. 

227. if ya is 0 and control goes to MSGB, all the bytes after the end of the message, 
up to and including IMAGE+29 are zeroed. Then IMAGE through lMAGE+29 are written 
back to the 9th through 14th words of the FET. This means that one of the 
messages XFRB, STSA, CMEB, REJ, XMS, PRER, and XTRAY has been copied into the 
right three bytes of the 10th word, and all of the 11th through 14th words 

of the FET. This extends the J-display for the equipment, and causes a B-dis¬ 
play if one of the four lines for the control point is free. The message will 
be cleared away the next time subroutine CLERMES is called. 

228. After disposal of the message one way or the other, MSGY is reached and 6/0, 

6/z picked up. If z is 0, there was only one message and there is an exit 
from the subroutine. Otherwise, 6/0,6z is stored in D.TO, and B.MSG returns 
to MSGZ to deal with the second message just as if D.TO contained 6/z,6/y 
where z was 0, and it were dealing with the first message. The next time it 
gets to MSGY, MSGY+l will contain 0 and there will be an exit from the sub¬ 
routine. 

Entry Information 

6/z,6/y in D.TO where y is the first message number and z is the second message 
number or 0 if only one message. In both z and y, the right 5 bits are the 
message number proper, and the left bit is 0 for a B-display message or 1 for 
a dayfile message. 

Exit Information 

None. 


16-110 


March 1969 



SCOPE 


B^MOVBF 


229. This is called after subroutine MAYMOV if MAYMOV shows that a buffer move is 
possible and desirable. But the first thing done in B.MOVBF is to call MAYMOV 
again. This is because in one of the two places where we consider buffer moving, 
between STARTK and START?, MAYMOV must be called and if the answer is favorable, 
FILWT is called to wait for file activity to cease before calling B-MOVBF. 

Buffer assignments may have changed during the wait, so MAYMOV must be called 
again, but the chance of getting a good answer again is good, so it is worth 
loading B.MOVBF; hence, the second MAYMOV call is left in the overlay rather 
than in the permanent part of HR, and here it is. 

230. The A register will be non-^ero on exit from MAYMOV if a buffer move is not 
to be done, and in this case, there is simply an exit from B.MOVBF. If the 
A register is zero, MAYMOV will have left the number of our buffer in D.T5, 
and the number of the buffer we are to move to in D-T6; and the interlock 
will exist for the buffer assignment registers, which will have been copied 
into KEY through BUFAS+24. Now the distance by whichthe contents of our present 
buffer are to be moved down in central memory is calculated and they are moved 
down, 8 words at a time. Then the buffer assignments are changed in BUFAS ff- 
Then subroutine PUT is called to release the interlock and replace the buffer 
assignment registers in CP+77B through CF'M04B. Finally the distance by which 
the contents of our former buffer were moved down is subtracted from the FET 
pointers, and the new FIRST address is copied to subroutine FIRST. 

Entry and Exit Information 

None. 


231. B.DROPBF 

This is called by overlays B-FINIS, B.RTER and B.TER to drop the buffer that 
was being used for the current file, and leave it available. First subroutine 
FETCH is Called to get access to the buffer assignment registers and copy them 
to KEY through KEY+4 and BUFAS through EUFAS+24- 1 is subtracted from KEY+3, 
the count of buffers in use. Knowing the FIRST pointer of the current FET, 
and having the starting address of buffer number 0 in 2EEBUP, calculate the 
number of the current buffer, n, and then zero BUFAS+n to show that buffer 
number n is now free. Then call subroutine PUT to replace the buffer assign* 
ment registers in control point +77B through 104B, and release the interlock 
on them. Then exit- 

Entry and Exit Information 

None. 


231a- B.SETP 


This is called to set the buffer pointers, both in the FET and in the PP, 
to Indicate either an empty buffer, or a buffer in which the first n CM words 
contain Information; IN contains n, which is 0 for an empty buffer, on entry. 
Thus, we set OUT = FIRST and IN = FIRSTHti. 
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Entry Information 

IN contains the number of CM words of information which the buffer is, according 
to the IN and OUT pointers, to appear to contain. 

Exit Information 

OUT in the PP contains 0. 


232. B-WUMES 


This is called to add a message of three CM words to the pre-OUTPUT file for 
the job being read in on the current card reader file- D-TO, on entry, contains 
the starting address of the message- The number of words of message that have 
already been put in the file is contained in bits 48-58 of the 7th word of 
the FET* 3 is added to this, but if it becomes greater than 126 (the mini¬ 
buffer has room for only 127 words) it is restored and exit taken- This means 
that messages after the 42nd on the pre-OUTPUT file are lost. If there is 
room for the new message, the mini-buffer is located. If there are n card 
readers, the FET number in PS will be between 1 and n; call it k. Then the 
mini-buffer associated with the current FET is 200B words long and begins at 
p-200B^k where p is the starting address of buffer number 0, contained in ZERBUF. 
The first of the 3 words into which the new message must be written is at 
p-200B^k plus the number in bits 48-58 of the 7th word of the FET, minus 3, 
as 3 has already been added to that number for this message. The message is 
written to central memory and followed by an exit* 

Entry Information 

The starting address of the message In PP memory, in D.TO* 

Exit Information 
None • 


233- B.AMSG 


This Is called by overlays B-TER and B.RTER to write on the system dayfile, 
after a file has been completely read, punched, or printed, an accounting 
message giving the job name and the number of cards read or punched, or of 
lines printed- First D-Z2 is set to point to the beginning of one of the 
messages DAX, DAY, or DAZ, according to the type of file indicated by TYPE- 
Then the job name is gotten from CURFET through CURFET-h3 and its 7 characters, 
preceded by a blank, copied into the first four bytes of the message area- 
A normal job name contains exactly 7 characters, but there are names like DIS 
created by the system, which could produce zero in the third or fourth bytes 
of the message; so a check is made for this using 5555B instead of OOOOE if 
necessary. The message area contains 5 display code zeroes, into which 
decimal digits must be added to give a decimal count of cards or lines read, 
punched, or printed. So subroutine FIG is called four times, with divisors 
10000, 1000, 100, and 10 in the A register. FIG subtracts the divisor, as 
many times as possible without getting a negative result, from the line/card 
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count in bits 0-23 of the 7th word of the FET (CT and GT+1). On exit from 
FIG, the quotient, the number be added to the corresponding zero in the 

message, is in the A register, and is added to the appropriate 6-bit area in 
the message- At the end, the units addend is left in CT+1 and Is added directly 
to the last zero in the message without going through FIG* Then subroutine 
R-DFM is called to write the message on the system dayfile, and an exit is 
taken- 

Entrv and Exit Infortoation 
None* 


234* B-FGIA 


This is really just two tables, one a table of visible character images, and 
the other a table of Hollerith column images, for all the letters and digits* 
The second table (HOLLER) could just as well have been provided as part of 
overlay B.INIT; the first one (FCIA) is used by both B-INIT and E,LIMIT, hence 
the advantage of providing it as part of a separate overlay. In execution, 
this overlay subroutine immediately exits from itself, so that executing it 
simply copies the tables into the high end of the overlay area* 

Entry and Exit Information 

None. 


235- B-REW 


This is called from overlays B.MTER and B.FINIS to rewind a file- The FNT 
entry, whose address is in DEST3 Is copied into MYFNT through MYFNT+14. Then 
the status byte of the FNT entry is set to 53B, for rewound, and subroutine 
WTFET is called in to set the status of the FET likewise. Then the level number 
field of the FNT is set to 0* Then the current RBT pointer in the FNT entry 
is set the same as the initial RBT pointer- Then, with the use of that pointer 
and the size of central memory (which is given, divided by lOOB, in bits 0-11 
of the CM word at P.RBR) the first word of the first RBT word pair is read; 
the initial RBT byte number is taken from bits 36-38 of this word, and this is 
made the current byte number in the FNT entry, and the current RBT ordinal 
in the FNT entry zeroed. Then the PRH number in the FNT entry is set to zero, 
the entry is copied back to central memory, and an exit taken- 

Entry and Exit Information 

None. 


236. B.SKFNT 


This is called at three points to find a free FNT slot, if there is one, and 
claim it for JANUS: 

1- In overlay B.FORAGE, before starting to look for a previously idle card 

reader with a job card ready to be read from it; if such a reader is found, 
an FNT entry will be needed for the new job file. 
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2. In the main loop just after CSD, when it is found that there is a card read 
file, but the FNT entry address (in DEST3) is 0; this must be a file that 
follows on the heels of its predecessor without a break; everything in our 
setup was kept intact when the predecessor was terminated except that its 
FNT entry became that of an input file at control point 0, and now a new 
entry is needed. 

3. In overlay B.BTER, in terminating a card read file, if a pre-OUTPUT file 
has to be written an FNT entry is needed for it. 

237. The control point is inserted into the model at MESS of the first word of an 
FNT entry for a local file called MESSAGE. Then the FNT pseudo-channe1 is 
secured and the FNT scanned for an empty slot. If none is found, the FNT 
pseudo-channel is dropped and exit taken with non-zero in the A register. If 
one is found, its address is saved at PSl, and an FNT entry copied into it, 
composed of the first-word model in MESS through MESS+4; 60/0 as the second word 
and 60/1 as the third word. Then the FNT pseudo-channel is dropped and an 

exit taken with 0 in the A register. 

238. It is possible that if there is more than one card reader in the system, there 
could be more than one FNT entry for a file called MESSAGE at one time at the 
JANUS control point. But every FNT entry is identified, as far as JANUS is 
concerned, by its address and not by the name in its first word; and JANUS 
never releases an FNT entry to control point 0 without giving it its proper 
name • 

Entry Information 
None. 

Exit Information 

Non-zero in the A register if there was no room in the FNT for a new entry; 
otherwise zero in the A register, a dummy entry in thr first vacant FNT slot 
found, and the address of that entry in PSl. 


238a. B.SETFT 

This is called by overlay E.FNT, for a print or punch file, and overlay B.FORAG, 
for a card reader file, to secure a buffer for the file and set up the pointer 
words of its FET. D.LIMIT contains the amount to be subtracted from BUFLG 
to give the actual length of the buffer; this subtrahend is the length of the 
print line or card image area to be left after the end of the buffer. PS con¬ 
tains the FET number, and FETAD contains 16 times this, l.e. the address of 
the beginning of the FET. 

We call subroutine FETCH to secure access to the buffer assignment words in the 
control point area, and to fetch them. Then read the control point word in 
which UR may earlier have requested a new buffer from IIQ, the field length 
then being exhausted. If the first byte of this word contains 2, a buffer 
has been assigned; we can now use it; and its number is in the last byte of 
the word, i.e. D.Z7. So we zero the first byte of the word to show acceptance, 
and branch directly to SETFETB. 


16-114 


March 1969 



SCOPE 


Otherwise, we must look for a free buffer. From SETFETA, if there is at Least 
one buffer free, we branch to SETFETC; otherwise, we set the first byte of 
the word at control point -fYSB to 1, to request a new buffer from IIQ; then 
call subroutine PUT to release the buffer assignment registers, and exit from B. 
SETFT with a negative number in the A register to indicate failure- At 
SETFETC, we increase by one the count of buffers now in use, and scan the 
assignment registers to find the lowest free one- This brings us to SETFETB 
with the free buffer number in D-Z7- 

At SETFETB, we claim the buffer by copying the FET number into the corresponding 
register, and call subroutine PUT to copy the buffer assignment registers back 
to the control point and release our interlock on them. Then multiply the 
buffer number by the length of a buffer, add the address of buffer number 0, 
and put the result in subroutine FIRST (this is the relative address of the 
start of the buffer) and also in a FIRST pointer for the FET, with the error 
processing bit set to 1 (if this EP bit were 0, a parity error in a JANUS disk 
file would cause JANUS to drop). Then copy the FIRST pointer word to the FET; 
zero the EP bit, and copy the same word to the FET as IN and OUT pointers. 
Finally, add BUFLG minus the content of D.LIMIT (as explained above) to the 
pointer to get the value of LIMIT, and copy the LIMIT pointer into the FET; 
then exit with a positive number in the A register to indicate success. 

Entry Information 

D.LIMIT contains the difference between BUFLG and the wanted buffer length; 

PS contains the FET number; FETAD contains the relative address of the start 
of the FET. 

Exit Information 

The A register is positive for success, or negative for failure. 
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Hardware Subroutines 


FCN 


239- This is called with a format function in the A register* to be sent to the 
punch or printer for the current file. The equipment has already been checked 
for readiness* however, the code is saved and subroutine STATUS called to re¬ 
check it for busyness. If it is busy, STATUS is called repeatedly until it 

is not busy. It seems as though this could never happen. On entering FCN, 
the equipment has already been connected, and STATUS does not release it or 
its channel. 

240- At FCKl, the function code that was in the A register In the first place is 
picked up and subroutine CFR called to send it to the equipment. If the return 
is with 0 in the A register, the function has been accepted; the equipment 

and its channel have not been released, and we exit from FCN with 0 in the 
A register. 

241. If the exit from CFR is with non-zero in the A register, the function has been 
rejected and the equipment and its channel have been released* The exit from 
FCN is with 1 in the A register. 

Entry Information 

The A register contains the function to be sent to the equipment, and the channel, 
6681, and equipment have been reserved, selected, and connected* 

Exit Xnfomation 

If the A register contains 0, the function was accepted and everything ts still 
reserved and connected; otherwise the A register contains 1, and the function 
was rejected, and everything has been released. 

RES 


242. This subroutine reserves the channel, selects the 6681, and connects the equip¬ 
ment for the current file* First it requests a channel. DESTl contains one 
or two channel numbers for the equipment; this byte is copied to D.TT, to form 
part of the request. D.T2 may also contain one or two channel numbers in a 
channel request, so this cell is zeroed to prevent it. Then R.RCH is called. 
On return, the number of the channel that was granted is in D*Tl, and is at 
CHAN. All the instructions in HR that involve channel numbers are listed 
in table RESA, beginning at RESA+1. (They all contain the symbol NULLGH for 
nominal 0 channel number, to produce a list of the locations of these instruc¬ 
tions in the cross-reference table.) Initially they all refer to channel 0, 
and their channel references are altered only by subroutine R-STB, in such 
a way that they are all changed to refer to the same channel* So now CHAN 
can be matched against the channel-number in one suqh instruction, RES4. If 
they match, then all the channel-referencing instructions in HR refer to the 
same channel, the one just reserved, and RES goes straight to RES3. Other- 
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wise, subroutine R-STB is called to alter all the instructions listed in table 
RESA to refer to the channel whose number is in CHAN, Then EES proceeds to 
RES3- 

243* At RES3, the 6681, whose select code is 2000E, is selected and the equip¬ 
ment, whose connect code is in DEST4,connected- Next, if TYPE shows that a 
card reader is involved, function code OQOIB is sent on the channel to negate 
automatic Hollerith-to-BCD conversion. Next subroutine ACC is called to see 
whether the unit has accepted the last code sent; this is the negate-conver¬ 
sion code for a card reader, or the connect code for a punch or printer- If 
the return from ACC is with 0 in the A register, the code was accepted, and 
the channel and equipment are still reserved and connected- Otherwise, re¬ 
jected, released, and disconnected- For a card reader (according to TYPE), 
exit with 0 in the A register, to switch to a different unit if possible (the 
fact that SW is called with bit 1 of tine A register a 0 means that SW may try 
to switch even if the last-known status of the unit was busy)- Then an exit 
is taken from RES with 1 in the A register. 

Entry Information 

None, but the channel, 6681, and device are unreserved, unselected, and un¬ 
connected* 

Exit Information 


If the A register contains 0, they are reserved, selected, and connected; 
otherwise, the A register contain 1 and they are still unreserved, unselected, 
and unconnected. 


CFR 

244* This is entered with an equipment function code in the A register, which is 
immediately passed to the equipment by a FAN instruction- Then the return 
address is moved to the return address cell of subroutine ACC, and branch to 
ACC+l is taken as though RJM ACC had been done in the first place rather than 
EJM CFR. 

Entry and Exit Information 

The same as for subroutine ACC, except that CFR is entered with equipment 
function code in the A register- 

ACC 

245* This is entered immediately after a function code has been sent to an equip¬ 
ment by a FAN or FNG instruction, to check whether the code was accepted. The 
6681 status word is read from the channel, and if bits 0, 1 and 2 are all zero, 
there is an immediate exit with 0 in the A register* If bit 2 is 0, subroutine 
MAYMES is called, which will probably put the message REJECT FUNCTION on the 
system dayfile and the B-display; then subroutine REL is called to deselect 
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the 6681 and release the channel; then there is an exit from ACC with 1 in the 
A register. If bit 2 of the 6681 status is 1, control goes to ACC7 and sub¬ 
routine MAYMES is called which will probably put the message 6681 XMSN PARITY 
ERROR on the system dayfile and the B-display; then after a one second wait 
(in the hopes that this allows any other devices that might be using the channel 
at the moment to finish transmitting data successfully) a clear channel in¬ 
struction is given. Then at ACC6 subroutine REL is called to deselect the 
6681 and release the channel, followed by an exit from ACC with 1 in the A 
register. 

Entry Information 

None, but the channel, 6681, and device are reserved, selected, and connected 
respectively, and a function has just been sent to the device. 

Exit Information 

If the A register contains 0, the function was accepted and the channel, 6681, 
and device are still reserved, selected, and connected. Otherwise, the A reg¬ 
ister contains 1 and the channel, 6681, and device are released, deselected, 
and disconnected. 


STS 


246. This reads the status of the device for the current file, stores it in STAT, 
and exits with it in the A register. Note that for punches and printers, STS 
is Called only through subroutine STATUS. 

Entry Information 

None; but the channel, 6681, and device are already reserved, selected and 
connected. 

Exit Information 

The status of the device in STAT and in the A register; the channel, 6681, 
and devices are still reserved, selected, and connected. 


STATUS 

247. This subroutine is used to call STS for a punch or printer. It calls STS, 
and then exits with the status in the A register if bit 0 (HS.READY) is 1, 
and if, for a punch, bit 6 (HS.NFEED) is 0. Otherwise, before exiting with 
the status in the A register, it calls subroutine MAYMES, which probably puts 
the message NOT READY on the J and B displays. 

Entry and Exit Information 

As for subroutine STS. 
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REL 


248. This is called to deselect the 6681 for the current file and release its channel. 

On entry, they are selected and reserved respectively. The 6681 deselect code 
is ^issued with a FAN instruction. With the current channel number, R.DCH is called 
to end this c-PP^s reservation of the channel- Finally, PAUSE is called to allow 
for storage relocation. Whenever an equipment turns out to be not ready for 
some reason, REL is called immediately afterwards, so calling PAUSE from REL 
prevents a storage move hang-up from occurring because a device is persistently 
unready- 

Entry and Exit information 

None, but the channel and 6681 are reserved and selected on entry, and released 
and deselected on exit* 


RELCR 

249. This is called, rather than REL, for card reader files- First, RELCR tries to 
send a 0000B code (clear and disconnect) to the reader by subroutine GFR. 

If this is accepted, the return from GFR is with 0 in the A register, and 
subroutine REL has not been called by CFR. So REL is called before exiting from 
RELCR- If the return from GFR is with non-zero in the A register, the function 
was not accepted by the card reader, but REL has been called from CFR. So we 
exit immediately from RELCR. 

250. It is hard to see why this is done, instead of just using REL for card readers 
as is done for printers and punches. The only possible reason seems to be that 
if a reader were connected through a 3649 controller to two 6681's on two 
channels, and it were connected on one 6681 without the OOOOB code being sent 
later to release it, the other 6681 would never be able to connect to it. 
However, the OOOOB can be rejected, and in that case RELCR does nothing 
further about it. If the rejection is merely because the reader is busy, then 
the OOOOB code has not been sent and it has not been disconnected- 

Entry and Exit Information 

Same as for subroutine REL* 


NRD 

251. This subroutine is calleds 

1. just above GHD7E, in the course of continuous card reading, when a reader 
is found to be not biiey but not iready. 

2. in overlay B-FORaG, when a reader that was not previously in use Is found 

to be not ready, but not because of either fail-to-feed or tray-empty status- 

Thus it is called when a card reader is not ready for an unexpected reason, and 
it gives the appropriate message. 
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252* If bit 10 of the status byte is 1, indicating a compare error on the last 

card read, control goes to NRDA, where (unless LSTAT already contains UNREADY) 
subroutine MAYMES sets LSTAT to UNREADY, puts the message COMPARE ERROR on 
the dayfile, and puts the message RE-READ LAST CARD on the B-displays. Then 
FL*IMAGE is zeroed; the card image that is now stored after the end of the 
buffer is that of the card that gave the compare error^ which will be re-read; 
so this image is discarded by zeroing the flag* Then NRD goes to NEDB to drop 
the card reader, using subroutine RELCR, and exit from NED- 

252a- If there is no compare error bit, bit 5 of the status byte is tested for tray- 

empty status- If this is 1, NRD goes to NRDC. Here FL*IMAGE is checked; if 

it is 1, we just go to NRDB to drop the card reader and exit from NRD. FL.IMAGE 
indicates that card image is still in hand; it will simply be used now, and 

the next time a card is read NRD will be called, FL.IMAGE will be found = 0, 

and a message given, 

253. But if there is no compare error, the tray is empty, and FL-IMAGE is 0, there 
are no more cards and it must be taken seriously- Now it is certain that con¬ 
trol has come to NRD from just above CRD7E, not from overlay B-FORAG, as NRD 
is not called from the overlay if the tray-empty status bit is 1. If the FET 
status in CURFET4 is not INITA (—3) the tray has become empty In the middle 

of a file, and this deserves a message; so subroutine KAYMES is called, which 
will, unless LSTAT already contains UNREADY, set LSTAT to UNREADY and put the 
message TRAY EMPTY on the B-display. Then NRD goes to NRDB to drop the card 
reader and exit from NRD. 

254, But if the FET status is INITA, the situation on the card reader must be this: 

1. An end-of-file card terminating a job file has previously been read in 
this card reader, and FL,IMAGE was found to be 1. So the reader was not 
dropped, but the FET status was set to INITA, expecting that the card al¬ 
ready in the hold would be a job card. 

2- The card in the hold, however, turned out to be a binary card, probably 
an extra 6-7-8-9 card; so it was ignored and the next card awaited- This 
could have been repeated any number of t lines- 

3. However, the series of binary cards is now ended and the tray is empty- 
What should be done, then, is to make the situation what it would have 
been if the tray had become empty immediately after the 6-7-8-9 card that 
closed the preceding file; that is, if FL,IMAGE had been 0 when we logically 
read the 6-7-8-9 card. So a branch is taken to NRDD; RELGR is called to 
drop the card reader logically, and then overlay B.RTER. In that overlay, 
because FL.IMAGE is 0 and CURFET4 contains INITA, everything associated 
with this FET will be dropped, without creating a new job file in the 
input stack. 

Entry Information 

None, but the channel, 6681, and reader must be reserved, selected, and connected 
on entry. 

Exit Information 


The A register contains 0, a fact used just above CRD7E. The channel, 6681, 
and reader are all released. 


16-120 


March 1969 



SCOPE 


ROD 

255m This subroutine is called in overlay B.FORAG to read the first card through 

a reader that was previously empty and not in use, and at CRD7E for all other 
cards* It is entered with zero or non-zero in the A register; if non-zero 
the next card physically will be read and saved in CM after the buffer* If 
FL.IMAGE is 1, it will be reset to 0 and the card image that was previously 
in the hold following the buffer copied to IMAGE through IMAGE‘r79 in PP memory* 

256. On entry to RCD, the A register is stored at D*ZI. Then if FL.IMAGE is 0, 

a branch to RCD A is taken and HAVECAED is zeroed to show that a card will not 
have been read logically when the return from RCD is taken* (A new card will, 
perhaps, have been read physically, but it is still unclear whether it gave 
a compare error or not; that cannot be ascertained until the card reader next 
becomes not busy, normally when the next card Is just about to be read physi¬ 
cally). If FL.IMAGE is 1, the image of the last card physically read, which 
is in CM following the buffer^is copied into IMAGE through IHAGE+79* Then 
FL.IMAGE is set to 0 and HAVECARD to non-zero, to show that a card has been 
Logically read. 

257. After RGDA, if D.Zl contains 0, the card reader was not ready when RCD was 
called, so a return is made from RCD. Otherwise, it was ready, and the next 
Card is read from the card reader to lMAGE+80 through IMAGE+159. Then sub¬ 
routine RELCR is Called to release the card reader; then subroutine SALARM with 
AL.CR (^33) in the A register, is called in to set the alarm for this file 

33 milliseconds ahead of the current value of the millisecond clock. Now, if 
this card produced a ^'compare error" status on the reader, this status probably 
will not appear until the reader next becomes not busy; at that time the status 
will be *^not busy but not ready", and the card Image will be rejected by the 
calling of subroutine NRD, just below CRD5X. However, it also seems to happen 
occasionally that the reader status is "ready and not busy" even though it 
is also "compare error", indicating that the card image about to be read into 
the PP may be faulty* So to guard against the possibility that we have just 
read such a card, we check STAT, which contains the reader status as it was 
just before reading the new image In the PP. If STAT shows compare error status, 
exit from RCD and discard the image just read into IMAGE-rSO through IMAGEH-I59. 
Otherwise, move it to the 16 CM words immediately after the buffer, whence 
it will be recovered when it is certain that it did not give a compare error- 
Then set FL.IMAGE to 1, indicating the waiting card image, and exit from CRD- 

Entry Information 

If the A register contains 0, the card reader is connected and ready, and the 
channel and 6681 are reserved and selected* Otherwise the reader is not ready 
nor connected, and the channel and 6681 are not reserved and selected. FL.IMAGE 
is 1 if a card is to be logically read, and 0 if not. 

Exit Information 


HAVECARD contains non-zero if a card has been logically read, and zero if 
not* FL.IMAGE is 1 if a new card image has been read and saved in central 
memory, and 0 if not. The channel, 6681, and reader are not reserved, selected, 
or connected. 
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PRT 

258. This subroutine is called from the main loop to print a line, or from subroutine 
FCHOLD/PCHNEW to punch a card in BCD mode. The line or card image is in IMAGE 
ffi in display code (or in extended array printer code; see below) and the 
number of bytes in the image is in WC. Though SCOPE at the moment provides 
for 512 printers only with 64-character trains, 48- and 288-character trains 
will eventually be provided for, and with them it becomes possible for a char¬ 
acter to be unprintable. If it is sent to the printer, it causes an error 
status that could be confused with hardware trouble. So PET has been coded 
to check the print line image on the following assumptions: 

1- The disposition code for a file being printed with a 48-character train 

will be 43B, and with a 288-character train 44B. These codes in fact never 
occur at present. 

2. For a 48-character train, the allowed characters correspond to display 
codes OIB through 54B and 56B through 61B. (Blank, for display code OOB 
or 55B, is not included in the count of 48.) Thus any display code over 
61B is unprintable. 

3. For a 288-character train, the allowed characters are OOOOB through 0441B, 
of which 0040 b is a blank by hardware necessity, and OOOOB is also to be 
treated as blank, by SCOPE convention. Thus any byte over 044IE (“289) 

is unprintable. 

4. If the disposition code is not 43B or 44B, all 64 possible display code 
characters are printable, on the 501 or 512 printer, or are punchabie in 
BCD mode. 

On entry to PRT, then, we check the disposition code and set the program switch 
at PRTAX accordingly- Then connect the unit, activate the channel, and zbto 
the byte counter (D-Zl) and error counter (D-Z6). 

At PRTA, pick up the next byte of the image. 

1. for a 288-character printer, go to PRTA2. If the byte is zero, change 
it to 0040B (blank) and go to PRT3- If it is unprintable, do the same 
and add one to the error counter. 

2. for a 48-character printer, check both halves of the byte, and if either 
half is unprintable replace it by OOB, which counts as blank, and add one 
to the error counter. Then go to PRTAW- 

3. for a 64-character printer or punch, go straight to PRXAW- At PRTAW, 
convert according to the left half of table ALPH- Then go to PRT3- 

At PRT3, output the byte, whether one character (288-character printer) or 
two (all other cases) and wait till the channel is empty. Step the byte counter, 
compare it with WC, and return to PRTA if necessary. When the line is completed, 
disconnect the channel and exit from PRT. But if the error count is non-zero, 
set FL.CMESA=1 before exiting. This will cause the print line to be followed 
by an extra line with an X below each unprintable position in the original line, 
and then the message ttu^^printaBLE CHARACTERS IN PRECEDING LINE*^ 
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Entry Infomation 

The image is set up in IbiAGE ff *, and the byte count is in WC- The channel 
has been reserved, the 6681 has been selected, the punch or printer has been 
connected, and a BCD mode control function has been sent to the equipment 
function if it is a punch. 

Exit Information 

None, but the channel and 6681 have not been released. 


PGHOLD/PCHNEW 

259, This Is practically one subroutine, which punches a card whose image is in 
IMAGE ff. The reason for having two entry points is that it may be called 
to punch the card image most recently set up (PCHNEW) or the image of the 
preceding card (PCHOLD) when re-punching due to a compare error is called 
for. The subroutine must know whether the card is BCD or binary; FL-BCDN 

is set 1 if the most recent card is BCD} while FL,BCD0 is 1 if the preceding 
card is BCD. So whichever way the subroutine is entered, at PCHA the rele¬ 
vant flag bit is in the sign position of the A register, and a branch is taken 
to PCHB if it is 1, At PGHB, WC is set to 40, as the image of a BCD card is 
only 40 bytes long; then function 2 is sent through subroutine FCN to select 
BCD punching. If the return from FCN is with non-zero in the A register, there 
is an immediate exit from PCHOLD/PGMEW with non-zero in the A register Vin¬ 
dicating non-success; the channel, 6681, and punch will already have been re¬ 
leased, Otherwise, subroutine PRT is called to punch the BCD card, and go 
to PCHC, 

259a. If the relevant flag for BCD is 0, there is no branch from PCDA to PGDB, but 

1 is sent through subroutine FCN to select binary punchung. The non-zero exit 
possibility from FCN is the same as described in the preceding paragraph. Then 
the 80 bytes beginning at IMAGE, are punched and control goes to PCHC. 

260. At PCHC, subroutine SALAEM is called to set the alarm for this file AL.CP 
(-200) milliseconds ahead of the current value of the millisecond clock, and 
then there is an exit from PCHOLD/PCHNEW. 

Entry Information 

The card image is in IMAGE ff., and FL.BCDN or FL.BCDO, depending on which 
entry point is osed. Is 1 if it Is to be punched in BCD and 0 otherwise* The 
channel, 6681, and punchare already reserved, selected, and connected. 

Exit InformatloR 

If the A register contains 0, the card has been punched and everything is 
still reserved, selected, and connected. Otherwise, it has not been punched 
because the unit rejected a 1 or 2 function, and everything has been released 
and disconnected. 
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RUDDY 


26Ip This subroutine is a variant of READY, which waits, with file-switching as 

necessary, until the current filers 512 printer is ready and not memory-busy* 
This condition, rather than ready and not busy, is what has to be awaited before 
sending a line to the 512 for printing* 

First we save the return address at DEEP (which is necessary because LPC is 
going to be called, so that RUDDY might serve another file before coupleting 
action on this one); then call subroutine STATUS and check the returned status 
Yor ready and memory not busy. If the status is good, exit immediately from 
RUDDY, by going to READYX, calling CLERMES, and returning to the address 
stored at DEEP. Otherwise, call subroutine REL to release the printer, 6681, 
and channel, and call subroutine S¥ with bit 6 of the A register (the one that 
corresponds to the memory-busy bit in the printer status byte) =1. SW will try 
to switch the file to another 512 printer if this has been requested by a 
type-in, but not if that bit of the status byte is still 1- 

On return from SW, we call subroutine LPC, to give other files their turns, and 
subroutine RES, to return the hardware to the reserved and selected condition 
it was in when we entered RUDDY* If the return from RES is with 0 in the A 
register, all is well and we return to RUDDYB to repeat the cycle* If with non¬ 
zero, the A register must in fact contain 1 (see RES) and everything is unreser¬ 
ved and unselected* So we return to RUDDYC and call SW, this time with 1 in the 
A register; SW will now try to switch (if requested by a type-in) even if the 
printer status is memory busy* If subroutine RES is failing, we cannot even 
read the printer status byte, so waiting for it to change would be hopeless* 


Entry Information 

None, but the printer, 6681, and channel are connected, selected, and reserved. 
Exit Information 

The same as entry information, but the printer is known also to be in ready and 
memory not busy status* 
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16.1.3 IIS and 2IS - General 

IIS is a PP program, always loaded at lOOOB. It is called twice by IIQ when 
it is initializing the JANUS control point; once to comoiunicate the length 
of the overlays it CHS) will later put into the field length, so that IIQ 
will know how much FL to ask for; and a second time, after the field length 
is obtained, to store the overlays and their directory in the field length. 
2IS is merely an overlay to IIS, loaded at 2000B, to contain additional over¬ 
lays to be copied to the field length. 


Function 

IIS copies out of itself, into an area immediately following the FET*s in 
JANUS field length, a number of overlays for later use by HR. It also stores 
in RA+lOB through RA+17B an index to these overlays. It is called by IIQ 
to communicate the length of these overlays, so that HQ will knew how much 
storage to request in the first place. 

The overlays, since they will work with HR, contain frequent references to 
address symbols in HR. So the most practical way to assemble HS and 2IS 
is as a second and third segment of HR, with OEG lOOOB and ORG 2000B at 
their beginnings. For the way HR uses an overlay, see subroutine EXECUTE 
in HR. 


Entry Information 

The input register contains 

VFD 18/OHlIS,3/0,3/c,24/0,12/v 

where c is the control point number, and v is 0 the first time HQ calls IIS, 
and, the second time, the address of the first cell in central memory after 
the last FET. 


Exit Information 


When HS has finished and is about to drop itself, it copies its input re¬ 
gister into GP+76B. The only significance of this is to make bits 48-59 of 
that word non-zero, so as to inform HQ that IIS is finished. 

Bits O-ll of the word at RA+17B will then contain the total length of the 
overlays provided by HS, in CM words. If bits 0-11 of the HS input register 
were 0, this will be the only information furnished by IIS, although it will 
also have written into the rest of RA+lOB through RA+17B. 

If bits 0-11 of the HS input register were not zero, the overlays will have 
been stored beginning at RA+v, where v is the content of that byte. RA+lOB 
through RA+17B will then (except for the rightmost byte of EA+17B, as noted 
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above) contain an index to the overlays- Overlays are numbered 1 to 39j but 
need not all exist- The address of the beginning of overlay n is found by 
dividing (n-1) by 5, producing quotient q and remainder r- In the word at 
RA+lOB+q, bits 48-12r to 59-12r contain either 0, in which case the overlay 
does not exist, or the address of the overlay relative to EA. 


Other Programs Called 

2IS, as an overlay containing further overlays to copy into the field length, 
but no code for IIS to execute- 


Narrative 

The action of IIS begins at XIS, which is found in the assembly listing of 
IIR and IIS at the end of the sequence of pages that do not have L in the 
left margin, before the pages of overlays that do have the L- IIS reads Its 
input register, sets the control point address, and checks the control point 
error flag, dropping the PP if this is non-zero, at DEAF- 

At USA, we zero D-FNT so that it will certainly not show a drop in address 
the first time it is used below. At USB look successively at bytes INDEX 
through INDEX+38, If a byte is zero, we assume we have reached the end of 
the index, and go to IISDX- Otherwise, if the byte is equal to or greater 
than the preceding byte, which has been stored in D-FNT, go to USE, But 
if the new address is less than the preceding one, we must have reached the 
break between IIS and 2IS* So we call in overlay 2IS and return to USA, 
to zero D-FNT and then continue normally- 

At USE, we process a byte from the index by storing it In D-FNT, for com¬ 
parison with the next byte, and as a pointer to the start of the overlays 
also insert it in the CWM instruction at IISC to control the copying into 
the field length. Next pick up the first byte of the overlay, which gives its 
length-1 in CM words (minus 1 because this byte is mostly used by HR 
subroutine EXECUTE, where a value that excludes the control word at the be¬ 
ginning of the overlay is more convenient)- Put the total length in D,Z4, 
to control the CWM instruction at lISC, and add it to the cumulative total 
of overlay lengths in INDEX+39- 

Now if bits 0-11 of the input register contain 0, this is all that has to 
be done about this overlay, and we branch to USD, to step ahead in the scan 
of INDEX through INDEX+38, Otherwise, this byte contains the CM address of 
the beginning of the area to which the overlay is to be copied. Initially 
this is the address of the first word after the last FET, and after copying 
each overlay to CM its length is added to this byte. So now store this ad¬ 
dress back in the cell of the index from which the PP address of the beginning 
of the overlay was just taken; the PP address has already been saved at lISC+l- 
Finally, at IISC, write the overlay to central memory; then subtract RA from 
the A register, which the hardware has updated automatically, and store the 
result back in bits 0-11 of the input register- 
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At USD, continue the scan of cells INDEX through INDEX+38 and either go 
back to USB, or, having completed the scan, copy the index to EA+lOB 
through RA+17B. Then the input register is copied to control point +76B, 
to tell IIQ that US has finished its work, and control goes to DEAP to 
d rop the PP. 
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16.1.4 IIU General 


IIU is a PP program^ always loaded at lOOOB. It is called by HR when a print 
file has to be backspaced. 


Entry Information 

The input register initially contains 

VFD 18/0H1IU3/0,3/n, 12/0,6/p,6/c,12/f 

where n is the control point number, p is the number of pages to be backspaced 
(if p - 0, 1 is used), c is the character that defines the beginning of a 
page, in display code (if c = 0, 34B, the format character 1, is used) and 
f is the FET number of the file to be affected, taken from cell PS in HR. 


Exit InforTBation 


When backspacing is completed, or the file has been rewound without satis¬ 
fying the page count, IIU sets bits 0-5 of the first word of the FET to 17B, 
i.e., a write status. This false status is taken by HR as a signal that 
11U is finished, and HR can proceed with the file. Write status is never 
found otherwise in a print file FET, and in any case HR is, as far as this 
file is concerned, in a tight loop waiting for the 17B status to appear; so 
a write status could be used as a signal in some other part of the main loop 
of HR for print files, as long as a read status was set before calling HU. 
It is highly desirable to have IIU set its completion signal in the first 
word rather than in the 7th word, which contains most of the flag bits, be¬ 
cause while HR is waiting it repeatedly calls its subroutine LPG. This sub 
routine always writes the 6th, 7th, and 8th words of the FET from PF memory 
to the CM as it puts one file aside, but reads back the first word as well 
as these three when it picks a file up. So if IIU tried to alter the 7th 
word, it would risk a clash with HR; but no clash is possible on the first 
word if HR is merely calling LPC in its wait loop. 


Other Programs Called 
None. 


Narrative 


IIU initially sets constants 1 and 3, finds the control point address, the 
RA and FL, and drops itself if there is an error flag. Using the FET number 
in bits 0-12 of the input register, it reads the FNT entry address for the 
file from bits 12^23 of the 8th word of the FET, and stores it in D.FNT, 
where it will remaim throughout- Then it finds the number of words currently 
in the buffer, and stoises it In D.FNT‘f2. Then it sets the FET pointers 
to indicate an empty buffer, with IN OUT = FIRST, and LIMIT = 
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F1EST^"65* The buffer is temporarily shrunk in this way so that every read 
on the file will read exactly one PRU; this shrinking is necessary because 
there is no special read-one-PRU function available for an allocatable de¬ 
vice, The first task is to manipulate the file so that only the PRU con¬ 
taining the word to which OUT pointed when IIU was called is the buffer, 
and to make OUT point again to that word* In the case that the buffer was 
empty when IIU was called, the buffer will be made to contain the PRU last 
read before IIU was called, and both IN and OUT will be made to point to 
the last+1 word of that PRU* So a backspace is performed over consecutive 
PRU*s backwards, beginning with the last one read before IIU was called, 
accumulating a total of the words in the PRU^s backspaced over, until this 
total is greater than the number of words the buffer contained when IIU was 
called* After backspacing over each PRU, XIU has had to re-read it imme¬ 
diately to find out how long it was* So when the total of words backspaced 
is greater than the number to be backspaced, the desired PRU is already in 
the buffer, and IN points to its last+1 word* Then OUT is set to FIRST plus 
the difference between the number of words backspaced and the number which 
were to be backspaced, and IIU is ready to begin the real job of backspacing* 

This initial backspacing is done from BA to a point a few instructions below 
BB* Subroutine BACK backspaces the file one PRU, while subroutine READ reads 
one PRU into the 65-word buffer, and puts its length into D-FNT4-3- First we 
backspace and reread the last PRU that was read before IIU was called, and 
subtract its length from D-FNT-h2* If this makes D*FNT+2 negative, we branch 
to BB- Otherwise,we backspace over that PRU again, and return to BA to back¬ 
space and reread the next previous PRU, and so on. At BB, we invert the sign 
of the difference, giving the number of CM words, at the beginning of the 
PRU just read,that must not be backspaced initially^ this is added to FIRST, 
resulting in the proper setting of OIIT- 

Now OUT points to the first unprinted word in the file, and backspacing over 
words that have already been printed can begin. From bits 18*23 of the input 
register, the number of pages to be backspaced is obtained, or 1 if this num¬ 
ber is 0, and it is stored in D.EST. From bits 12-17 of the input register, 
is obtained the page format character to be used, or 34B (display code I) 
if this field contains 0, Then IIU initializes the count of lines per page 
to 66, in D.EST+2, and zeroes D.FNT+4 and D.FNT+5. D-FNT+5 will contain 
the first byte of each CM word read, when the word next preceding it is 
checked* D*FNT+4 will be set to non-aero by subroutine READ whenever it reads 
a PRU giving an end of record/file response, or to zero otherwise. 

At AG a check is made for OUT = FIRST* If not, scanning the current PRU 

backwards is not complete and we go to ACA. If they are equal, we must back 

up another PRU, so call subroutine BACK twice to backspace over the PRU just 
scanned and its predecessor, and subroutine READ to read in the predecessor. 
Then set OUT IN (not = FIRST, since it is to scan backwards not forwards) 
and return to AC. 

At ACA, OUT points to the word last looked at, so we read in the CM word pre¬ 
ceding that one. (Though the first clause of the preceding sentence is some¬ 

times logically but not literally true, the second clause is literally true). 
If D.FNT+4 does not contain zero the last word of a logical record has just 
been read into PP memory; in this case D.FNT+4 is reset to zero as well 
as the fifth byte of the word just read; if it was not formatted as a line 
terminator, it should have been. Next a check is made of the fifth byte of 
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the word just read. If it is not zero, it is not the last CM word of a 
line, and we go to ACB, where we save the first byte of the CM word in 

reduce OUT by 1, and return to continue the backward scan of the 
buffer. But if this is the last GM word of a line, the first byte of the 

next line must be the first byte of the next following CM word, which has 

been saved in D.FNT+S (OUT points to this word.) So we compare the first 
character of the next line with the format character in D.EST+1* If they are 
the same, we have backspaced over a page, and go to ACE# If not the same, we 
have at any rate backspaced over a line, and go to ACC, where the Iines*per- 
page count in D-EST+2 is reduced, and we go to ADB if it is not exhausted* 

If it is exhausted, we go to ACE as if the next following line had begun with 
the page format character- This may not give an exact page count if page 
format characters are not properly placed in the portion of the file being 
backspaced over, but it will prevent us from going right back to the beginning 
of the file In a vain search for page format characters. 

We come to ACE on deciding, either by format character or by line count, that 

we have just finished backspacing a page- Subtract 1 from the page count in 
D-EST, and go to DONE if it is exhausted. If not, reset the lines-per-page 
count in D.EST4-2 to 67, and pass to ACC where it is immediately reduced to 66; 
then go to ACB to continue the backward scan. 

DONE is reached when we have, just above, exhausted the page count, or have 
reached the beginning of the file in subroutine BACK. In the former case, 

OUT points to the first word of the first page to be printed after the 
backspace; or if OUT^^IN, the first word of the next PRU is that word. In the 
latter case, OUT=FIRST and the buffer is empty. Now copy the OUT pointer from 
the PP to the FET in CM; reset the limit pointer to FIRST+BUFLG-40B, and set 
the status in the first word of the FET to 17B* Note that the first word of 
the FET must be the last that IIU alters at this point; otherwise, lIR might 
get the completion signal too soon and use a wrong value for OUT or LIMIT. 

Then go to DROP to drop IIU- 


Subroutines 


PAUSE 

This is called only by subroutine FWAIT, while waiting for the FET to show not 
busy. It calls subroutine R-PAUSE; then resets D.RA and D.FL, and goes to DROP 
if the error flag Is F-EEFP. If the error flag is something else, IIU does not 
drop because JANUS is supposed to be completing any pending files before 
dropping. 

Entry and Exit Information 
None. 

Other Subroutines Called 
R, PAUSE 

Registers Destroyed 
D.TO through D.T4 
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FWAIT 


This is called during the initialization of lIUj to wait for the file to be 
not busy, and by subroutine DORQ to wait for not busy after each read or back¬ 
space Initiated by IIU* It checks the completion bit in the FNT entry. When 
this is 1, it branches to FWAITA; otherwise. It waits one millisecond, calls 
PAUSE, and then checks the completion bit again* At F¥A1TA, all four of the 
PP pointers are set according to the pointers in the FET; then B¥AIT exits. 

Entry InformatiOTi 

None* 

Exit Information 


The PP pointers updated* 

Other Subroutines Called 
PAUSE, which calls R.PAUSE* 

Registers Destroyed 

D*Zl through D*Z5| also D•FIRST-1, which is not used by IIU. 


BACK 


This backspaces the file one PRU. If the PRU number in the FNT entry is 
non-zero, it suffices to reduce It by 1 and exit. Otherwise, a stack request 
must be made- But if, at BACKA, it is found that bits 12-23 of the second 
word of the FNT entry are 0002B, the FNT entry is in rewound position where 
no further backspace can be performed, so control goes to DONEA- This can¬ 
not happen during the preliminary backspacing of the file except in the case 
that the backspace was called for before any of the file had been printed- 
If the same point is reached later in IIU, because the page count requested 
was impossibly high, it is also true that the best thing to be done is to 
begin from the beginning of the file- So if the rewound position is reached, 
it is desirable to ensure that the buffer is empty before turning the file 
back to HR* At DONEA, the PP OUT pointer is set equal to the PP IN pointer- 
At DONE, the FET OUT pointer is set equal to the PP OUT pointer* The PP IN 
pointer already equals the FET IN pointer because it was set so after the last 
read (subroutine READ) and is not altered in the PP or the FET between reads* 

If a stack request to backspace one PRU is necessary and possible, subroutine 
NODAT is called with 44B in the A-register; this code is inserted in the FET 
and the FNT entry and the stack request at MYRQ is partially set up* Then the 
PRU count in bits 24-41 of the second CM word of the request is set to 1- Then 
with function O.BPRU in the A register, subroutine DORQ is called to complete 
the stack request by inserting the function code, get it issued, and wait till 
it has been completed- Then exit from BACK- 
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Entry and Exit Information 
None. 

Other Subroutines Called 

NODAT: DORQ, which calls R.EREQS and FWAIT, which calls PAUSEj which calls 
R-PAUSE* 

Registers Destroyed 

D-Zl through D*Z5 directly. D.Z6 through D-T4 by the called subroutines* 
Also D.FIRST-1 by FWAIT* 


READ 

This is called to read one PRU into the buffer, which is 65 words long; to 
update the PP pointers accordingly; to store the length of the PRU in D.BNT+3; 
and to set D.FNT+4 to 20B if reading the PRU gave end of record/file status 
or zero otherwise* First set IN=OUT=FIRST in the FET* Then call subroutine 
NODAT with 12B in the A register, to insert this status in the FET and the 
FNT entry and partly set up the stack request* Then call subroutine DORQ 
with function O.READ in the A register, to complete the stack request by in¬ 
serting the function code in it, get it issued, and wait until it is completed. 
Then reset the PP pointers according to the FET pointers- Then set D.FNT+3 
and D.FNT+4 as noted above* 

Entry Information 

None. 

Exit Information 

The four buffer pointers in the PP are updated- D*FNT+3 contains the number 
of CM words in the PRU just read. D-FNT+4 contains 20B if reading the PRU 
gave end of record/file status, or zero otherwise. 

Other Subroutines Called 

NODAT: DORQ, which calls R.EREQS and FWAIT, which calls PAUSE, which calls 
R.PAUSE* 

Registers Destroyed 

D.Zl through D.Z5 and D.TO through D-T4 directly; D.Z6 and D-Z7 by NODAT* 

D-FIRST by FWAIT. 


NODAT 


This is called by READ and BACK with 12B or 44B respectively in the A register, 
to insert this status in the FET and the FNT entry, and to set up a stack re¬ 
quest in MYEQ through MYRQ+9, all but the function code in MYRQ+S* However, 
for the call from BACK, the FWA field of the request has to be altered from 
FIRST to the PRU count (1) after NODAT has been called. 
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First get the first word of the FET from CM, insert the new status in its 
5th byte, and return it. Then zero MYEQ through MYRQ+9, read the FNT entry 
to MYFNT through MYFNT+14, and insert the address of the second CM word of 
the FNT entry in bits 36-47 of the first CM word of the request (MYHJfl). 

Then check the Initial RBT pointer of the FNT entry. If this is 0 (impossible) 
go to PREEQA to use 1 as the physical unit number. Otherwise, read from CM 
cell P.RBR the memory size/lOOB (bits 0-11, in D.T2) and the KBR starting 
address (bits 36-59, in D.Z6 and D.Z7). Then read the first RBT word pair, 
get the RBR ordinal from bis 39-47 of its first CM word, and from the RBR 
starting address plus 38 times this ordinal read the first word of the RBR. 

Bits 42-47 of this word give the physical unit number, which we store in 
MYRQ+1, or if it is 0, use 1. Then copy the FIRST and LIMIT pointers into 
bits 24-41 and 0-17 respectively of the second CM word of the stack request. 
Then calculate the FET address from the FET nimber in bits 0-11 of the input 
register, and Insert it in bits 42-59 of the second word of the stack request. 
Finally, set the level number in the FNT entry to 0, and copy 44B or 12B, 
which has been saved in D.Zl since entry occurred at NODAT, into bits 0-11 
of its third CM word. Then return the FNT entry to central memory and exit 
from NODAT. 

Entry Information 

The A register contains 44B for backspacing one PRU, or 12B for reading. 

Exit Information 

The FET and the FNT entry have been completely prepared for the stack re¬ 
quest, and the request itself has been almost completely set up in MYRQ 
through MYFQf9. 

Other Subroutines Called 


None. 

Registers Destroyed 
D.Zl, D.Z6 through D.T4. 

DORQ 

This is called, with function code O.BPRU or O.EEAD in the A register, when 
the stack request in MYRQ through MYRQ+9 is complete except for this code 
in MYSQ+l. It inserts the code there; then calls R.EREQS to issue the stack 
request; then calls subroutine FWAIT to wait until the file shows not busy; 
then exits. 

Entry Information 

The function code O.BPRU or O.READ in the A register. 

Exit Information 

The stack request has been completed, and the four PP pointers have been 
updated. 
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Other Subroutines Called 

R.EREQS; FWAIT, which calls PAUSE, which calls R.PAUSE. 

Registers Destroyed 

D.TO through D.T4 directly; D.Zl through D.Z5 and D.FIRST-1 (which is not 
used by IIU) by FWAIT. 
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SCOPE 


17.0 TAPE I/O 


17.1 ^ 

The following tape drivers IRS, IBT, IWS, IWI, IWX, IMT, 2Tr, and 2TB 
are loaded directly by CIO in response to 1/0 requests Issued on tape 
files. Refer to chapter 7 for a detailed analysis of the operation of 
CIO. 
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17.2 IMT - LONG RECORD STRANGER TAPE DRIVER 


Purpose 


IflT provides the capability to read and write variable 
length records which are larger than the 512 CN word 
maximum restriction of the S tape drivers. The size of 
any record may vary from the installation parameter IP.NOISE 
as a minimum to the size of the Cfl buffer as a maximum. 

In all other ways the use and function of the long record 
driver is the same as that of the S tape drivers. The L 
tape driver should be used only where records will be 
longer than SIE CM words» however, as IHT operates slower 
than the S tape drivers. 


Entry Informatxin 

IMT will be loaded whenever an L appears in a REQUEST 
function or on a REc-iUEST card* An indication that IMT 
has been loaded can be found in the DEVICE TYPE field in 
either the FNT or FET- L tape format is specified when the 
top 2 bits of the right hand six bits are on. li-e. . 1 DO r □□□ 
llx xxx>- CIO will load IMT in the same PP beginning at !□□□• 


Low Core at Entry Time 


Location Systext Name Description 


2D-EM 

D.FNT 

End word of FNT 

25-31 


3rd word of FNT 

32-3L 

D.EST 

1st word of EST 


D.BA 

1st word of FET 

45 

BS 

Last buffer status 
in FNT 

50-54 

D-PPIRB 

Input register 

55 

D.RA 

CM Reference Address/ 

IDOB 

5h 

D.FL 

CM Field Length/IODB 

57 

D.FA 

CM address of End word 
of FNT 

bD-Ll 

D.FIRST 


t.E-t.3 

D.IN 

Address of CM buffer 

b4-bS 

D. OUT 

pointers 

bb-b? 

D.LIMIT 


74 

D-CPAD 

Control point address 

75 

D-PPIR 

Address of input register 

7b 

D.PPOR 

Address of output register 

77 

D.PPMESl 

Address of 1st word of 

PP message buffer 
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Exit Information 


For a normal exit IdT will update thePRU count in the 
FNT( mark the function code complete in the FNT and FET 
and update the CM circular buffer pointers. 

If a physical tape mark and/or the end of reel reflective 
spot is encountered on any of the read functions IdT sets 
the end of information and/or the end of reel bit in D.FNT+T 
and calls 3RP. 3RP will decide whether to return to the 
user or to IdT- See 3RP for detailed description. 

If on a write the end of reel is encountered and the UP 
bit is off IdT calls CLO with a 3?D function -[close Reel 
Unload} in another PP and makes a normal return to the 
user. If the UP bit is on. howeveri IdT returns to the 
user program without calling Close Reel Unload. 

An exit without updating the Cd buffer pointers and with the 
appropriate error flags set will be made for the following 
situations: 

1. Unrecoverable parity error 
3. Device capacity exceeded 
3- Illegal function code 

Error bits set during a storage move 
S. FET word ? or LIdIT not within field length following 
a storage move. 


General Logic 
WRITE OPERATIONS 


The IdT I/O method differs greatly from that of the other 
tape drivers. IdT cannot use a PP buffer but must transfer 
data directly to or from central memory- For a write the 
S tape driver would transfer the data between OUT and IN to 
its PP buffer# calculate the number of PP words contained 
in that block# then issue one OAd to write the entire block 
to tape in one operation. IdT cannot do this as one tape 
block may be larger than the available PP space or even 
larger than the PP itself. Therefore# on a write# it 
transfers each record one CM word at a time from the CP 
to the PP and then one or two bytes at a time from the HP 
to tape- 

The method used for write operations is described first- 
For WRITE or lilPHR the PRU size is the number of words be¬ 
tween and including OUT to IN-1- Each write causes the 
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entire buffer to be written out- For URITEN the PRU size 
is defined in the record header word- In either case this 
length can be modified by the unused bit count so that the 
last word in the record is a partial CN word- The PRU size 
is compared to the (ILRS field in the FET and if it is less 
than or equal to flLRS the write continaes i otherwise the 
job is terminated and the device capacity exceeded flag is 
set • 

If buffer wrap around can occur the write is done in two 
sections- The CH buffer is considered in two segments; the 
data contained between OUT and LIf1IT-l and that contained 
between FIRST and IN-l- If a partial CH word is to be 
written there is the possibility of a third write section- 
The write falls through each section exhausting the word 
count for that buffer segment before going to the next 
section- The jump instruction at the end of each section 
is modifed to cause a jump either to the next section or 
to the terminating procedure • 

In each write section a central memory word is read into PP 
locations D-TO through D-TM and then is output one or two 
bytes at a time- Between each CH word the CH address of the 
location of the next word to write is incrementedf the word 
count for this segment is decremented and compared to zero; 
and the channel is checked for empty to insure that bytes 
are being transmitted at the expected rate- 

Each write loop may be left in three ways: 

li If the channel remains full after each 5 bytes are 

output- This condition means that bytes are no longer 
being removed from the channel buffer- IThe unit could 
have dropped ready during the operation or some other 
equipment malfunction could have occuredl- In any 
case the record is bad and must be rewritten- The channel 
is disconnectedr lilEO Iwait end of operationi is calledi 
the tape is backspaced and the write is retried- 

Bn Following each OAH the A register is checked to deter¬ 
mine if it went to zero- If it didn^'t the bytes in 
question have not been written out- The unit may have 
accidentally been cleared or some hardware malfunction 
may have occurred- 'he record should be rewritten< 
thereforei an exit from the write loop is made- 

3- The word count for this segment is exhausted. If there 
is wrap around a jump to the second write loop is made 
and the above process continues until the second word 
count becomes negative> channel buffer remains full- or 
the A register does not go to zero- If wrap around 
does not occur or at the conclusion of the second write 
loop a jump is made to the section which outputs the 
remaining bytes of the last CH word- 
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When the entire record has been output error checking begins. 

The channel is disconnected and tiJEO is called which checks 
for transmission parity errors or unit not ready during the 
last operation- If either condition is foundi the lost 
data bit in the status word is set. This does not mean true 
lost data occurred but is used as a flag to lilTT to cause 
the write to be reattempted. Final!yt if there were no 
errors-i lilEO pauses waiting until end of operation and then 
returns to liITT . 

Upon return to UTT is lost data status is found the tape is 
backspaced and the record rewritten. If the lost data flag 
is not seti UTT next looks for parity errors. If they exist 
the write is reattempted up to ten times- At that time the 
parity error routine PAR is called. If the EP bit is on 
the message PARITY ERROR is written in the dayfile-i the parity 
error flag in the code and status field of the FET and FNT is 
setT and a return to the user program is made. If the EP bit 
Is off the same message is posted at both the control and 
the dayfile. The operator then has the option to type either 
n.GO which causes the job to terminate without error bits 
set or to type n-DROP. If parity errors were encountered 
while trying to write a record but a successful write was 
made the message UPE RECOVERED is written in the dayfile. 

Uhen a successful write has been accomplished the PRU count 
is incremented and the new OUT and IN are written in the FET. 

If the request is a URITE or a UPHR a return to the user 
program is made- If the request is a URITEN another record is 
written and the above process continues until 0UT=IN. 

Switches that need attention are mostly concerned with 
BCD/DC conversion. If the file is BCD and a bUSl is in 
use the central memory buffer must be converted from DC to 
BCD before the record is written. Conversion is done by 
reading blocks of the record into the PPt converting iti 
and writing it back to the central memory buffer. The buffer 
must also be restored to its original form so it is converted 
from BCD back to DC after it is written to tape. {Herein lies the 
speed problem for IflTI The parameters needed for CNVRT are 
calculated and saved. CNVRT is called first before the record 
is written and again at the end of the write as though the 
operation were a read. For each record the switches must be 
set to first convert from DC to BCD and then to convert BCD 
back to DC as though the request were a read* 


READ OPERATIONS 


The circular buffer parameters IN-i OUT-, FIRST i and LIMIT 
have been checked for validity in CIO before entering HIT 
and are now used to determine the maximum PRU size for the 
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next read- For a READN request the new OUT is read ■From 
the FET before processing each record. For READ* RPHR and 
READN the available buffer space* which is IN to OUT-l* 
must be greater than or equal to MLRS or the read is not 
attempted. This restriction does not apply to READSKP as 
the entire record is not required to fit in the circular 
buffer. At the conclusion of the READSKP* however* the total 
record length passed over is compared to fILRS. It must be 
less than or equal to flLRS or an error is returned. 

As in the write procedure the read is divided into two 
possible segments dependent upon wrap around. Unlike the 
write it cannot be determined until the end of record is 
hit that buffer wrap around actually occurred. It is nec¬ 
essary to provide for the possibility. The first section is 
from IN to LlfllT-l for READ* RPHR or READSKP and from IN-^1 
to LiniT-l for READN. If wrap around cannot possibly 
occur only one section is used which begins at IN lor IN+1> 
and ends at OUT-l- 

The absolute central memory address of the first word 
address of the second section for the conversion routine 
is not stored until after the record has been read when it 
can be determined that wrap around actually occurred* 

If wrap around is possible the jump instruction at the end 
of the first segment is modified to cause a jump to the 
second section rather than to the terminating procedure. 

The read loop inputs IS bit bytes one or two at a time and 
stores them beginning in D-TQ through D.TM. When S bytes 
have accumulated they are written to the Ctl address stored 
in line in each read section. Between each CH word the fol¬ 
lowing book keeping must occur: the CM address of the 
location in the buffer for the next word must be incre- 
mentedi the word count must be decremented and compared to 
zero. Between each PP byte a check for end of record is 
made. This is necessary for a tape containing other than 
full bD bit words* All of the above checks must be done 
within the time limits discussed in the section '^I/O Timing 
Constraints''. 

There are two exits from the read loop. The first occurs when 
the word count is exhausted -Cgoes negative! and the 
second occurs when the end of record is hit. If the last CM 
word is partial the remaining bytes are filled with binary 
zeros and the byte count indicator is set to the number of 
IS bit bytes of zero that were needed. This count is later 
multiplied by twelve and returned as the unused bit count. 

If the read finished before the word count went negative 
a flag is set to indicate the read finished in the buffer. 

If the word count went negative in the last possible read 
segment buffer overflow occurred. IN=0UT-1 and there is not 
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enough room in the Cfl buffer for the rest of the record* 

The remaining words are flushed and the record length indi¬ 
cator is incremented once for every 5 bytes and once for 
the last partial Cn word should it exist* This is necess¬ 
ary to calculate if the record on tape was larger than 
flLSS since this check cannot be made for a READSKP before 
the operation begins. If on any request the record was 
larger than HLRS an exit is made with the device capacity 
exceeded error flag set. 

If the record just read was less than or equal to the 
installation parameter IP.NOISE the record is flushed as 
noise and the read is reattempted. 

Uhen end of record is hit lilEO fwait end of operation! is 
called which calls STS to obtain unit status then loops 
until end of operation. RDT later checks the status word 
for lost data or for parity errors. If lost data is found 
the read is reattempted until it is successful- If parity 
errors are found the read is tried up to nine times. If it 
is still unsuccessful the parity error routine PAR is called 
If the EP bit is on the parity error flag is set in the 
code and status field- the message READ PARITY ERROR is 
displayed in the dayfile only and a return is made to the 
user program- If the EP bit is off the message is dis¬ 
played at both the control point and in the dayfile and a 
pause is made waiting for the operator to type either 
n.GO or n.DROP. 

If there were no errors on the last attempt the conversion 
routine is called when need and the PRU count is incremented 
If the request was a READN the record length in CFI words and 
the unused bit count are returned to the data header word 
which is the previous IN. If the request is not a READN 
the unused bit count is returned to word 7 of the FET * For 
all requests the new IN is written in the FET and for RPHR 
the new OUT must also be returned as it was set to IN before 
the read started* If the request is a READN an attempt is 
made to read the next record- otherwise a normal return to 
the user program is taken. 

Timing Constraints 


The following situation is for a read* The underlying 
principle of HIT is to transfer words from tape to central 
memory at the same speed that the tape is moving. This is 
accomplished by allowing bytes to remain in the PP only long 
enough to assemble one central memory word- The following 
diagram should clarify the critical timing dependent situa¬ 
tion . 
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transfer 


Ib-b usee max time between IS bit bytes entering PP 
at ADO bpi- 

Updating of necessary parameters must be done between PP 
bytesf while each CH word is being assembled. The key 
facotr is than an lAM must be executed every It.b usee 

-caua bpi>. 

The channel buffer must be empty when the controller is 
ready to transfer the next 1/S byte. Similarly the control¬ 
ler must continue transferring data to the channel at the 
same rate it is receiving data from the tape. the PP 

falls behind and fails to remove data from the channel at 
least every lU•U usee lost data occurs. 

The most likely possibility for failure occurs when the PP 
tries to write the data word to central memory. If the PP 
cannot gain access to the write pyramid it will be unable 
to get back to the lAH instruction in time to receive the 
first byte of the next word. 

The problem in the case of a write is similar. The PP 
must continue to supply the channel wi1h data at the same 
rate the tape is moving. Here again the conflict comes at 
the read pyramid. If the PP should be forced to wait for 
data from centra memory, the channel also will not receive 
information. After a wait equal to the time necessary to 
output 5 1/2 characters the end of record procedure is 
initiated. 

For these reasons timing must be carefully considered before 
changing code in the central read or write loops. 


SUBROUTINES 


CCH Close Channel 

CCH calls R.DCH which causes the channel to be dropped. 
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ELECT Selects ttai or UbfiM mode 


ELECT looks at the EST then selects the proper mode. If 
the file is BCD and a ttSl is present switches are set to 
cause the convert routine iCNVRTl to be called. 


CEOR Check End of Reel 

CEOR loads the A register with bits S-13 of the code and 
status field. These bits contain the end of reel indicator 
as well as other error flags. 


Ct^LP Check Load Point 

If the PRU count is greater than zero an immediate return 
to the oiling program is taken* Otherwise the tape is at 
load point and OPE function 3MD is called to position the 
tape correctly. OPE will leave the tape ready to read the 
first data record- CKLP loops monitoring the PRU count. 

In the process it calls CEOR to check the code and status 
field for errors. If errors are found an exit from IMT 
through NORM is made. Otherwise a normal return is taken 
when the PRU count becomes positive zero. 


CKR Check Ready 

CKR checks for unit ready- If the unit is not ready the 
message nTXX-.CHXX-.NOT READY is written at the control 
point and a pause is made until the operator readies 
the tape or drops the job- 

If the function is a write CKR also checks for a write ring. 
If it is not present the mesa ge PIT XX tCH XX -i NO WRITE ENABLE 
is displayed until a ring is inserted or the job is dropped. 


CLEAR Issue Clear and Disconnect 

Issues a clear and disconnect* Checks for converter errors 
but does not call subroutine STS where the unit status 
would zero out the status word. ST. which is necessary so 
that the last status is available when checking for end of 
reel in RCRU- 
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CON Connect 

CON reads D-EST+M and connects either the bbfll or bbSM. 
If for any reason the converter does not accept itr the 
connect is retied until successful. 


ERR Error Message 

ERR is called with the address of an error message in the 
A register. The message is written in the dayfile only 
using R.DFPl. 


FCN Function 

FNC issues function codes. The desired code is loaded in 
the A register and FCN is called. If the function code is 
not accepted for any reason the appropriate message is 
written and the process is retried until successful- 


ILEG Illegal Function Code 

ILEG is called when an illegal or non-existent function 
code is found- ILEG calls ERR to write the messager ItlT 
ARG ERRORr and if the EP bit is on* sets the il]^al func¬ 
tion code bits in the code and status field. 


MSG Message 

MSG is entered with the address of a message to be written 
in the A register. This becomes the second line of the 
message which is to be written at the control point only. 


MUCH Mask Unit and Channel Number into Message 

MUCH is called to mask the unit and channel number into the 
first line of the two line message. 

i.e. MTXX CHXX 

NO WRITE ENABLE- 

It is dons separately from MSG so that the message may be 
sent to either the dayfile or the control point- 
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OCH Open Channel 

OCH gets the channel number from the EST entry and if it 
is different from the primary channel number calls R-STB 
to mask it into the channel table* Next the btfll/bbSH 
select code is issued and the response is checked* If the 
converter does not respond within a given time period the 
channel is disconnected and the message HTXXtCHXXtNO RESPONSE 
is written. A pause is mader the EST entry reread and the 
code is issued once more* This continues until a success¬ 
ful select is made* 


PAUSE Release Equipr Pausei Reconnect 


PAUSE through a series of other subroutines closes and 
releases the channel pauses for relocation and finally 
opens the channel and reconnects* 


PREP Prepare for I/O 

PREP is a series of calls to other subroutines- the 
seriesi OCHiCONiCKRiCLECT when combined make a tape 
ready for I/O* 


PRL Pause for Relocation 

PRL goes first to R*PAUSE where it waits until a storage 
move is completed. Upon return it stores the new RA and 
checks for errors. If the field length was decreased PRL 
determines if LIPIIT and the seventh word of the FET are 
still within the new field length* If any errors are found 
an exit from IHT is made- Otherwise the new field length 
is stored in D-FL and a normal return is taken* 


RCRU Call Close Reel Unload 

RCRU is called only for the write operations when the 
reflective spot has been found and the UP bit is off CLO 
is called into another PP with 37D function* Uhtn the 
end of reel bit is turned off in the FNT a normal return 
is made* If the UP bit is onr howeverr a return to the user 
is made. 


STS Status 

STS requests bbai/btfi4 and unit status. It leaves the 
bbai/bbfiM status in Temp 1 and bits 16-12 of the A 
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rsgisten. When if the end of reel bit -CEOR is turned off 
a normal exit from IMT is taken- 

IjEO Wait for End of Reel 

UEO is called at the end of an operation. It calls STS 
and checks for transmission parity errors or unit not 
ready. Either could have occurred during the operation. 

If either is found a flag Host data! is put in ST and 
a return to the calling routine is made where the appropriate 
action will be taken. If there were no errors lilEO loops 
waiting for the end of operation status to be set- 


XPE Transmission Parity Error 


First a delay loop is entered which waits for the slowest 
equipment on the channel to complete its operation- Then 
a master clear is issued and calls to CCH. OCH- and C0N_are 
made. The effect is to clear the channel drop the equip¬ 
ment- pause for relocation, and- finally- reconnect. 


ERROR MESSAGES 


The following are two line messages issued by IMT. The 
first line is MTXX CHXX» and the second is listed below. 


EflUIPnENT REJECT 


Written by CON after a connect code has been issued and re¬ 
jected by the tbfil- The possibilities of unit not ready, 
unit reserved and transmission parity error have been 
checked and found negative. A master clear is done and the 
connect is retried- 


NO RESPONSE 


Written by OCH when bbfll select code has been issued but 
no response was made. The select is retried. 


NOT READY 


L7-12 


Output from either CKR of CON when the requested unit is 
found not ready- Pauses while operator makes unit ready. 
Processing resumes when operator readies unit* 
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NO WRITE ENABLE 


Written by CKR when a write has been issued and the tape on 
the requested unit does not have a write ring. When operator 
inserts ring processing resumes. 


READ PARITY ERROR 


Written by PAR after 10 unsuccessful attempts to read a 
record.^ When the message is displayed the block of words 
containing the parity error is in the central memory buffer* 
but the buffer parameters have not been updated. Operator 
may type either N-GO which causes the job to resume processing 
the next record- or N.DROP which terminates the job. 


RESERVED 


Written by CON when a connect is attempted to a unit reserved 
by another computer. The connect is reattempted until the 
job is dropped. 

X nSN PARIT Y ERROR 

Issued by CON. FCN* or PAUSE whenever a connect code or 
function code is rejected because of a transmission parity 
error. A master clear is done and the code is issued again- 


WPE RECOVERED 


Written by PAR whenever a successful write has been accom¬ 
plished after parity errors were found during earlier attempts. 


PARITY ERROR 


Written by PAR after ID unsuccessful writes have been 
attempted- If EP bit is off execution is continued when 
N.60 is typed- or terminated when N.DROP is typed. 


The following are one line messages issued by IHT. 


INT ARG ERROR 

Issued by ILEG after comparing the operation code to all 
the accepted function codes without finding a match. If 
the EP bit is off abort the control point. 
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FET LESS THAN 7 WORDS 


The FET length parameter in word 2 of the FET is less than 
2- A 7 word FET is required for IflT - 


niRS CHANGED to MAX BUFFER SIZE 

The HLRS field was zero and has been changed to either 

LIMIT - FIRST - 3 for READN or WRITEN or the LIMIT - FIRST - 1 

for the standard Reads and Writes and the operation is completed. 


RECORD SIZE GJ MLRS 


The record just read was longer than MLRS or the record 
length request in the data header word for a URITEN is 
larger than MLRS. 


REQUESTED RECORD SIZE^D 


The record length requested in the data header word for 
a WRITEN is zero- 


REQUESTED RECORD SIZE^NOISE 


The requested record size in the data header word for a 
WRITEN is less than or equal to IP. NOISE. 


UNUSED BIT COUNT GT 5=i 


The unused bit count in either word 7 of the 
writes or in the data header word for WRITEN 


FET for standard 
is less than SR. 
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17.3 IPE - TAPE WRITE PARITY ERROR RECOVERY ROUTINE 


General Description 

IPE is the tape write parity error recovery routine used in conjunction 
with IWI, IWX, and IWS, to recover write parity errors on Scope, X, and 
S tapes. IPE is loaded on top of the calling driver and has a copy of 
the record to be recovered beginning around 2777B of PP memory. If the 
record to be recovered is in BCD, the calling driver will have previous¬ 
ly converted it to internal BCD. 


Communications 

The chief communications between IPE and the calling tape write driver 
is via the following direct cell contents: 

1. IPE scans these cells upon entry 
D.SVl = FWA of data in PP memory 
D.SV2 = Data byte count 

D.SV3 = CM word count used to update the "OUT" pointer (X-tapes only). 

2. IPE sets these cells on return to the driver 

D.FR6 = Converter status 

D.FR7 = Equipment status (including end-of-reel if detected 
during recovery) 

D.SVl = FWA of data in PP buffer (unless a zero length PRU of 
level 17 was recovered, in which case D.SVl is set to 
17.) 

D.SV2 = Data byte count 

D.VS3 = CM word count used to update the "OUT" pointer 

3. The following direct cells must never be altered by IPE if it is going 
to return control back to the calling driver. 

D.FIRST 
D.IN 
D.OUT 
D. LIMIT 

4. The following direct cells must be re-initialized at IPE entry time 
and be current upon return to the calling driver. 

D.FNT through D.FNT+4 
D.EST through D.EST+4 
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Tape Positioning Philosophy 

When IPE receives control from a tape write driver, the tape will be 
positioned immediately after the bad record- At this point a reverse 
read is issued and the number of bytes that are sent down the channel 
are counted. The count thus obtained is compared with the actual byte 
count (D,SV2) of the record written* There are three possibilities, 
read count greater than data length, read count equal to data length, 
and read count less than data length- 

CASE I Read count greater than data length. 

This condition may be caused by excess skew on the frames of 
the record just written. It could also be caused by noise 
(incomplete or unsuccessful erasure) in the inter-record gap 
between the last good record written and the record that in¬ 
curred the parity error. It could, of course, be caused by 
a combination of the above. If the CASE I condition is caused 
by noise in the gap (GIG), then there is no way for the soft¬ 
ware to know whether or not the reverse read has "carried back^‘ 
into any or all of the last good record. Accordingly, the 
message "MT XX FILE POSITION UNCERTAIN" is posted and a pause 
for operator decision then follows* A ^^GO^^ response is ac¬ 
knowledgment of the fact that the last good record may be 
damaged in the continuation of the recovery attetopt that 
follows as a consequence of the operator "GO" decision* If 
the integrity of the file is at all critical, it is suggested 
that a "GO" never be alven when the above message is encountered , 
but that the job be dropped and ra-run using another reel of 
tape* 

CASE II Read count equal to data length 

If the read count is exactly equal to the data length, then 
the file is assumed to be positioned correctly in front of the 
bad record* There is actually a "tolerance^^ associated with 
this check such that if the read count is within 6 bytes (12 
frames) of the data length, it is assumed to be close enough 
to be properly positioned in front of the bad record* The 
causes of a low reverse read byte count and the action taken 
if it is not within 6 bytes of the data length is discussed 
under CASE Ill. 

CASE III Read count less than data length 

There are several possible reasons for obtaining a low byte 
count on the reverse read* As a result of edge damage, oxide 
damage or dirt, an occasional frame may not be detected by 
the read head- Thus; the entire record could have been re¬ 
verse read and many frames just not detected (the data will 
appear shifted together where the frames were missed) by the 
read head. If only a few frames are dropped in the above 
manner, the read byte count will still be within 6 bytes of 
the data length and it is safe to continue recovery, l*e., 
the tape has been correctly positioned before the bad record. 


17-16 


March 1969 



SCOPE 


If two or more consecutive frames are not detected by the read 
heads^ the transport sends an end of record signal and stops the 
tape motion. If this happens during the first part or middle of 
the reverse read» IPE cannot be certain that the entire record 
will be positioned in front of the erase head (for the ensuing 
skip bad spot). Accordingly, the message XX POSSIBLE RECORD 
FRAGMENT^* is published when the byte count is not within 6 of the 
data length. A response to this message iiq^lies acceptance 

of the possibility that a portion of the bad record might still 
exist on the tape. The causes a continuation of the re¬ 

covery procedure* 


Re-Vrite of Bad Record 


After the tape has been successfully positioned (or a ^^GO'^ was given to 
either XX FILE POSITION UNCERTAIN” or ”MT XX POSSIBLE RECORD FRAGMENT”) 
IPE issues a skip bad spot and then re-writes the record. If the parity 
on the write is now good, control passes to a verification (see below) 
procedure. If the parity is bad, control will pass to the positioning al¬ 
gorithm as long as the retry count has not been eadiausted. For each retry, 
therefore, another skip bad spot is issued causing successive re-writes to 
take place farther along the tape* 


Record Validation 


After the record has been re-written In good parity all data In the record 
is verified* To do this, the record is reverse read and the byte count 
read is compared to the data length. If they are equal and if every byte 
of the data read back matches every byte of the data written, then a for¬ 
ward read is issued* Again, the byte count must be exactly correct, the 
data must compare exactly, and parity on the forward read must be good. 

If all of the above conditions are met, the message ”MT XX WPE RECOVERED” 
is posted and the record is considered recovered. If any one of the above 
conditions is not satisfied, control will go to the positioning algorithm 
for another retry* If the retrys are all used up and the EP bit is not 
set, the message XX WPE UNRECOVERED” is issued and operator action is 
required (GO or DROP). If the EP bit is on, the parity error flag is set 
in the last code and status and control returned to the user- 
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17,4 IRS 


General Description 

iRS reads one or more records in S tape format Ca logical record is a 
physical tape block) from half inch seven track magnetic tape. No special 
significance is attached to any character or series of characters so that 
the data transferred to the circular buffer accurately reflects what was 
read from tape. For coded files, of course, the data is converted into 
display code. The only data structure limitations are hardware imposed 
and consist of limiting the read ”resolution^^ to the nearest byte (2 char¬ 
acters) and record size to 5120 characters. The maximum record size of 
:;120 characters is a consequence of PP buffer size limitations and applies 
to both binary and coded records- 


Functlons Recognized by IRS 

iRS recognizes the following functionsi READN, READ, and READSKP. Each 
function Is described In detail in the following paragraphs. 


READN Request 

The READN request is the only means of executing high speed data transfer 
reading with an S-tape. It allows the central processor to dynamically 
remove data from its circular buffer while the read driver simultaneously 
transfers data from the tape into the circular buffer. If the user pro¬ 
gram is removing data from the circular buffer at a sufficiently high rate 
(at least as fast as the read driver is filling the circular buffer) the 
READN can continue until end of reel or some error condition is detected. 

The user interfaces with IRS via his FET and his circular buffer during a 
READN request. 

A. Utilization of FET word seven 

During initiation of the READN request IRS scans the MLRS field in FET 
word seven to obtain the size of the maximum allowable record for this 
particular READN request. If a record greater than MLRS words is de¬ 
tected during the non-stop read, the read will be terminated with de¬ 
vice capacity exceeded status, and no data from the excessively large 
record will be transferred to the circular buffer- If the MLRS field 
is zero, IRS will set it to device capacity (512^^^ CM words) and assume 
this value for execution. If the MLRS field exceeds 512, it is set to 
512 and that value is again assumed for execution. Thus, for a READN 
request, FET word seven is accessed only at the start of the operation, 
and will only be written into if MLRS is zero or an invalid quantity. 

B. FET word one 

The first word of the FET Is used in the normal way; with the code and 
status updated on completion of the READN request. 
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C> FET IN and OUT pointers. 

Each time a record is read from tape and transferred to the circular 
buffer, the IN pointer is updated and the OUT pointer Is re-read from 
the FET. Non-stop reading will continue as long as there Is enough 
room to insert the next record (unless an error is encountered). 

D, Circular buffer 

With each record read from tape, IRS constructs a header word containing 
a central memory word count and an unused bit count. The unused bit 
count denotes the number of unused bits (this will be a multiple of 
12.„) in the last word of the record. The header word is Chen appended 
to the beginning of the record data and the header and record are trans¬ 
mitted to the circular buffer. For example, suppose a user issues a 
READN request under the following conditions: 

FET word 7, MLRS = 20B 
FIRST « IN * OUT = lOOOB 
LIMIT = 1043B 


IRS will initiate tape reading and suppose, for the sake of illustration, 
the first record Is exactly 20B CM words in length. The circular buffer 
and FET will then look like this: 


FET word 7, unchanged 
FIRST = OUT - lOOOB 
IN = 102IB 
LIMIT = 1043B 

CIRCULAR BUFFER 


FIRST = 1000 


1020 
IN = 1021 


LIMIT = 1043 



OUT 


20B words of data 
from record 1 
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Since there is room for another record (MLRS words plus one word for the 
header), IRS will continue non-stop tape motion and read the next record 
Suppose that this record is 17B full CM words plus 2 bytes In length. After 
reading this record, we have: ° 


FET word 7, unchanged 

FIRST = OUT = lOOOB (Assuming user hasn't removed data from the 
IN — 1042B circular buffer) 

LIMIT = 1043 


CIRCULAR BUFFER 



After IRS has transferred the second record it will con^lete the re 
quest and drop out since the buffer no longer contains enough room 
for another record (the buffer is now full). 


READ REQUEST 


The READ request will cause one record to be read from tape and transferred 
to the user's circular buffer. The interface between iRS and the user's 
FET/clrcular buffsr is defined as follows* 

A. FET word seven 

As in the READN request, the READ uses the contents of the MLRS field 
for the maximum allowable record size. If the record read from tape 
exceeds MLRS words, no data is transmitted to the circular buffer and 
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device capacity exceeded status is returned to the user* Also, If 
MLRS is zero or invalid, it will be set to device capacity (512 CM 
words) and device capacity used for execution. The difference in 
usage of FET word seven between a EEAD.and a HBAON request is that 
a READ will set the unused bit count field (UBC) if the record read 
Is not a full CM word. This is because there is no header word at¬ 
tached to the record and returned to the user's circular buffer. 

B. Circular Buffer 

The record read from tape is transferred to the circular buffer and 
the IN pointer is advanced to show how much data (to the nearest CM 
word) was read from tape. If the last CM word of the record is not 
entirely data, the number of unused low order bits of that word will 
be reflected by the UBC field in FET word seven. The READ request 
causes only one record to be read from tape. 


READSKP REQUEST 

The READSKP differs from the READ request in the following ways: 

A. If the circular buffer has less space available than is required for 

the record read, the buffer will be filled and the excess data discarded. 

B. If the level parameter associated with the READSKP request is equal 

to 17B, then one record is read from tape and the file is skipped over 
until end of file is detected. 


INTERRECORD GAP UTILIZATION 

Below is a simplified description of the scheme employed by IRS to take 
advantage of interxecord gap time (5 ms at 150 IPS), This is the non-stop 
(READN) loop. 

Step 1. Check for room for 1 record (MLRS words +1). 

Step 2. Begin tape motion. 

Step 3- Read a record from tape to FP buffer. 

Step 4. If BCD/6681, convert it to display code. 

Step 5. Check parity (assume good parity). 

Step 6. Space for next record (assume yes). 

Step 7. Re-activate channel (continue tape motion). 

Step 8. Transfer record from PP to circular buffer. 

Step 9. Go to step 3. 
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BCD TRANSFER RATES 


When a 6684 data channel converter is avallable> BCD read rates will be 
the same as binary. In the absence of a 6684, conversion from internal 
BCD to display code must be done by a software algorithm within the PP. 
This algorithm converts forty per cent of the record as it comes into 
the PP from the data channel. The remaining sixty per cent is converted 
In the PP and the entirely converted record is then sent to the user^s 
circular buffer. For each five bytes read from tape, bytes 1 and 3 are 
converted ”on the fly'^ and bytes 2, 4 and 5 converted while waiting for 
end-of-operation. 


TAPE MAPK AND END OF REEL PROCESSING 


IRS unconditionally calls in 3KP when a tape mark is detected. 3RP will 
be loaded into the same PP and will check the end of information bit in 
direct cell D.FKT+9 - the bit set by IRS when a tape mark is detected* 

When end of reel is detected IRS will set the end of reel bit in D.PNT+9 
and call 3RP if the UP bit is not set. See IMS write up for 3RP con¬ 
cerning the action taken in these conditions. 


READ PARITY ERROR RECOVERY 


Read parity error processing is completely contained within IRS. It con¬ 
sists of a number of retrys (backspace/re-read) at the bad spot on tape* 

If these are unsuccessful, the final three attempts will back up over the 
bad record and the two previous good records and try to re-read the bad 
spot ^^on the fly”* In the event recovery Is not possible, the standard 
EP bit conventions will apply. Specifically, an operator GO/DROP is so¬ 
licited if the EP bit is off, and the parity error status returned to the 
user along with control, if the EP bit is set. Also, with the EP bit on, 
the loaction pointed to by the updated ”IN” pointer will contain the user^s 
previous pointer. The area of suspicious data in the circular buffer 

is thus delineated. 
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7.5 im 

The IMS for this will be supplied at a later time. 
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17.6 LWI - TAPE WRITER DRIVER 


General Description 

This driver writes one or more physical record units (PRUs) from a circular 
buffer in central memory to ha If-inch magnetic tape in SCOPE Standard format. 

It recognizes the following request codes- WRITE, WPHR, WRITER and WRITEF. 

A brief discussion of the action taken by IWI for each of these request codes 
may be found immediately after the statement concerning Principles of Operation. 

Principles of Operation 

The most significant technique for throughput improvement used by IWI applies 
to both binary and coded writes and specifically is the efficient utilization 
of inter-record gap time. Assuming that the circular buffer contains N PRUs 
where N is treater than or equal to 2, the driver will enter its high speed 
routine and process PRUs in the following manner- 

Step 1 Read PRU 1 from CM into FP memory. 

Step 2 If BCD and no 6684, convert the first 116 CM words of the 128 word 
PRU. If binary or BCD with a 6684, go to next step. 

Step 3 Begin tape motion. 

Step 4 If binary or BCD with a 6684, go to next step. If BCD without 6684, 

use the tape start-up tirae to convert the remaining 12 words of the 

PRU - an assumption is made at this point namely that the start-up 
time will never be less than 2.0 ms. 

Step 5 Write the PRU In the PP buffer to tape. 

Step 6 Read next PRU from CM into PP memory. 

Step 7 Same as Step 2, above. 

Step 8 Wait for end-of•operation to be returned by the equipment for the 
previous PRU. 

Step 9 Continue if not end-of-tape or parity error- Perform E-O-R procedures 
for end-of-tape and IPE processing for parity errors. 

Step 10 Begin tape motion (or continue non-stop tape motion as the case may 
be). 

Step 11 Go to step 4- 

The above logic flow, while only a summary, indicates how the driver uses inter¬ 
record gap time while in a "non-stop*^ or high speed mode of operation. 

If the user program is putting data in its circular buffer at a rate approximately 
equal to the rate at which IWI is removing data from the buffer, the driver may 
enter its low speed routine. This will happen if at any given instant, IWI 
detects only one PRU in the buffer- In the low speed routine the driver does 
not drop out of the PP, but it does allow tape motion to cease between PRUs. 


17-24 


March 1969 



SCOPE 


A second technique for obtaining increased throughput is used in the BCD 
converion procedure# which is utilized in the absence of a 6684- Since a 
PRU is always a multiple of five PP bytes (short PRTJs are discussed later) 
a series of five macros are used# one for each byte position of a CM word- 
The macro that converts the low order byte of a CM word checks for a line 
terminator before converting- These five macros are executed serially - in 
line thereby reducing the number of passes through the convert loop- In 
addition, two conversion tables are used by each macro- 

In the case of a short PRU, the byte count will always be 4 modulo 5. in 
order to use the above convert macros, the byte count is incremented by one 
to make it 0 modulo 5, a switch is set (SWll) and the convert performed. 

SWll, when set to Indicate a short FRU, will decrement the byte count Just 
before the 0AM instruction is issued, thereby causing the correct number 
of bytes to be written to tape- 

WRITE REQUEST 

The WRITE request is the only one in which the central processor program 
can dynamically transfer data from the circular buffer (by placing data 
into the circular buffer and advancing the IN pointer while the driver 
simultaneously removes data# writes it to tape and updates the OUT pointer). 
Thus, the WRITE request is the only vehicle for sustained high speed writing 
on SCOPE Standard Tapes- 

If a WRITE is issued with less than a full PRU of data in the circular 
buffer (128 words for BCD and 512 words for binary), IWI will return to the 
user- If there is at least one full PRU in the circular buffer, IWl will 
continue writing until the circular buffer contains less than a fiill PRU- 
The user^s OUT pointer is updated after each PRU and the IN pointer read in 
to re-compute the amount of data in the circular buffer. 

WPHR REQUEST 

The WPHR request causes a single PRU to be written in either binary or 
coded mode. On coded requests only conversion from internal to external 
BCD is performed. If the circular buffer contains 512 words or less, the 
buffer is emptied and the OUT pointer is set equal to the IN pointer. If 
the circular buffer contains more than 512 words, the OUT pointer is ad¬ 
vanced to show that 512 words were removed from the buffer and written to 
tape and, additionally, the device capacity exceeded flag returned 

in the status field of the FET- 

WRITER REQUEST 

Data Ls written from the circular buffer to tape in PRUs until the buffer 
is empty { a short PRU written). A level number obtained from bits 14-17 
of word three of the FNT Is appended to the short PRU* If the buffer contains 
an integral multiple of PRUs, IWI will terminate the WRITER request by 
writing a zero length PRU of the specified level. In either case, the OUT 
pointer is set equal to the IN pointer and the level nximber or level mark 
is composed of eight characters having the following appearance* 
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CODED FILES; Level Number External BCD Representation 


0 

2020 

2020 

2020 

2020 

1 

2020 

2020 

2020 

2001 

2 

2020 

2020 

2020 

2002 

m 

• 

12 

« 

■ 

2020 

2020 

2020 

V 

• 

2012* 

¥ 

17 

2020 

m 

2020 

2020 

• 

2017 

BINARY FILES: 0 

0000 

0000 

0000 

0000 

1 

0000 

» 

0000 

9- 

0000 

• 

0001 

17 

f 

0000 

« 

0000 

0000 

0017 


WRITEF REQUEST 

The WRITEF function causes a logical end-of-file to be written on tape* 

A logical end-of-file is a zero length FRU of level 17* If any data is 
in the circular buffer it is first written and terminated with a level 
zero short or zero length PRU* This terminates the logical record. If 
the buffer is empty and the last request was a WRITE, a level zero is 
written denoting logical end*of-record, followed by a level 17 to denote 
Logical end-of-file, 

LOAD POINT 

In order to avoid writing on unexpired labelled tapes, IWI calls OPEN 
REEL when the PRU count is negative. No writing will be done on the 
tape until the PRU count goes to zero, indicating that writing is per¬ 
mitted, 

PARITY ERROR RECOVERY 


While operating in the high speed routine, by the time the status for a 
given PRU has been checked for parity, the next PRU to be written has 
been read into the PP buffer. Hence, when a parity error is encountered, 
the PRU sustaining the error must be re-read from CM into the PP buffer. 

If the PRU in error is in BCD mode, the PRU is converted. This is done 
even if the driver has been using a 6684 (no software conversion necessary). 
At this point IWI is ready to call IPE in ”on top” of itself to recover 
the PRU, IPE will expect to have the PRO (to be recovered) in the proper 
form to be written with a 6681 or a 6684 that is used as a 6681, IWl 


* On coded files (even parity) the tape controller maps an external BCD 
character of 12 into an internal BCD 00 when the 12 characters Is read 
back- The internal BCD 00 character will be converted into a display 
code 33* Hence, for a level 12 on coded files, the read driver must 
search for a display code character 33, 
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supplies the fwa of the PRU in D^SVl and the PP byte count in D»SV2* When 
IPE has successfully re-written the PRU it will load IWI back in ^*on top'’ 
of itself and supply the following direct cell cornmunications- Direct cell 
D.SVl will be zeroed if the PRU recovered by IPE was a zero-length PRU of 
level 17- D.SV2 will contain the byte count of the recovered PRU, and 
D-FR6-7 will contain the converter and equipment status. 

IWI will be entered from IPE at location 1002B and will then examine the 
direct cells supplied by IPE to determine what action should be taken in 
order to complete the request* 

SYSTEM IMPACT 


If a sufficient data level is maintained in the circular buffer (two or 
more PRUs), the driver Is able to sustain high speed writing for long 
periods of time. For properly constructed media conversion programs it 
would be possible, for example, to write an entire reel of tape without 
the PP dropping out and releasing the channel. This type of uninterrupted 
writing is essential if high speed data transfer is to be realized on 
magnetic tape devices. 

Consequently, IWI will retain the channel without pausing, as long as it 
is able to maintain high speed tape writing* 

END-OF-TAPE 


When the end of tape reflective spot is encountered, the end of reel status 
(2000 octal) is set in the code and status. End of reel processing is de* 
termined by the user processing bit, bit 45 in word 2 of the FET* 

A. If the UB bit is not set the tape is backspaced over the reflective 
spot and neither the OUT pointer nor the PRU count is updated. IWI 
requests close reel unload by calling CLO in another FP. IWI stays 
in its PP and waits for the end of reel flag to be cleared from the 
FNT indicating that the next reel is ready to be used. At this 
point IWI reloads Itself to complete the original request on the 
new reel- 

B. If the UP bit is set the PRU count and the OUT pointer are updated 
and control is returned to the user program. 

END-OF-LINE TERMINATOR 

During coded writes IWI must scan each low order byte of a CM word to de- 
determlne if it Is a line terminator (a zero byte) and convert it so that 
it will appear as a 1632 in external BCD. This also applies to coded 
writes using a 6684. Therefore, a loop to check every fifth byte for a 
line terminator must be executed when a 6684 is in use. This loop re¬ 
stricts the effective usage of the 6684 hardware in that the data must 
be ''prepared’' before writing- This "preparation" timfe is around 1.7 ms 
for a 128 word PRU. If, at any time in the future, the BCD PRU size 
were to be increased then the "preparation" time would also Increase and 
cancel the ability to write tape non-stop on coded writes with a 6684. 
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L7,7 IWS-TAPE WHITE DRIVER 


General Descry 


This driver writes one or more records (a logical record is equal to a 
physical record) from a circular buffer in central memory to 1/2-inch 
magnetic tape- special meaning is attached to any character or series 

of characters so that the data is written on tape as it was found in the 
circular buffer. For coded files^ of course, converison from display 
code to external BCD is performed. The only data structure limitations 
are hardware imposed and consist of limiting a record to containing a 
multiple of two characters Cl2 bits) and a maximum length of 5120 
characters. The maximum record length constraint applies to both binary 
and coded records and arises as a consequence of PP buffer size limitations- 

iWS recognizes the following functions: WRITEN, WRITE, WRITER, WPHR and 
WRITER- The action taken by IWS for each of the above functions is dis¬ 
cussed immediately following the section on principles of operation. 


Principles of Operation 


The following stratagems have been employed in an attempt to maximize 
throughput for this type of tape file: 


1. Optimize utilization of interrecord gap time, 

2. Minimize BCD conversion time, and 

3. Optimize use of new hardware features- 


Optimum utilization of interrecord gap time is attempted on both binary 
and coded files. This is exemplified by the steps taken when IWS is 
executing in Its high speed routine (entered only when a WHITEN function 
is issued and the circular buffer contains two or more records)* The 
following procedure is a simplified description of the high speed loop* 


Step 1 Read the first record from circular buffer into the PP buffer- 

Step 2 If binary request (or coded request using a 6684) go to Step 4. 

Step 3 If record size is less than or equal to 34 CM words, convert the 

entire record- If record size is greater than 34 CM words, 
convert all but the last 72 ^ bytes now and set SWIO to complete 
conversion during tape starf-up time- 

Step 4 Begin tape motion (or continue non-stop motion). 

Step 5 If binary (or BCD using a 6684) go to Step 7- 

Step 6 If SWIO is set to complete conversion, convert the low order 

77 10 bytes of the record- 

Step 7 Write record to tape. 

Step 8 Read next record from circular buffer into PP buffer* 

Step 9 If binary (or BCD using a 6684) go to Step II- 

Step 10 If record size is less than or equal to 34 CM words, convert the 

entire record and set SWIO to indicate no more converion necessary* 

If the record size is grater than 34 words convert all but the last 
72 ^q bytes now and set SWIO to complete conversion during tape start¬ 
up t ime. 
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Step 11 Check status on previous record. If parity error call In IPE to 
perform recovery procedures. If end*of*tape perform end-'Of^-tape 
procedures. If status is OK, go to Step 4. 

The above algorithm is an example of double buffering, l.e. Record N+l Is 
read up from CM and converted (if appropriate) during the time that the 
hardware requires to return end-of-operation on record N, the previous 
record. Consequently if the user program can keep at least two records 
in its circular buffer, IWS will have the next record in PP memory when 
status is available from writing the previous record* Under the above 
conditions tape writing will continue in a non-stop manner. 

There are three factors that have to be considered in deciding whether or 
not tape writing in a non-stop fashion can be achieved. They are: 

1, The elapsed time from the 0AM instruction to the point at which 
the tape begins to slow down. 

2, The time required to read a record from central memory- 

3, The overhead contributed by IWS. 

The elapsed time from 0AM to slow down (2.6 ms) is a hardware characteristic 
not under software control. It does, however, indicate the time limit 
that must be observed for tape writing to be non-stop. Item (2), the time 
required to bring a record into the PP, is dependent on central memory 
conflicts (an ambiguity) and the length of the record. Item (3), driver 
overhead. Is a variable but it can be computed and, in fact, is currently 
in the neighborhood of 0.4 ms/record in the high speed routine. It Is 
apparent, therefore, that only two of the factors governing tape speed are 
subject to control; namely, driver overhead and record length. 

The following examples Illustrate the relationship between record size 
and non-stop writing. For the sake of simplicity it is assumed that no CM 
conflicts are encountered and that the request is a WEITEN function on 
either a binary file or on a coded file using a 6684. 

For a record size of 400 CM words we have the following timing considerations 


Central Memory read time ..... 2.00 ms/record 

IWS inherent overhead ...... 0.4Q ms/record 


TOTAL . . 2*40 ms/record 

The total time to process a record is less than the 2.6 ms limit so that 
writing will be non-stop. 

Fox a record size of 512 CM words the timings become: 


Central Memory read time ..... 2.56 ms/record 

IWS inherent overhead. 0.40 ms/record 

TOTAL 2.96 ms/record 


Since this total time exceeds the 2*6 ms limit, the tape will begin to slow 
down inbetween records. 
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On a BCD request to write 512 word records, this time assuming ^ 6684, there 

is a radical change in the timing picture caused by the addition of software 
convert time* The timings are: 


Central Memory read time * - • ♦ • 2-56 ms/record 

IWS inherent overhead . 0-40 ms/record 

IWS software conversion , , , ■ , 66-60 ms/record 

TOTAL 69.56 ms/record 


By taking nearly 70 ms/record it is obvious that the tape will come to a dead 
stop between records. 

Conclusions drawn from the above information: 

1. For binary and BCD/6684 files- 

The effective usage of interrecord gap time and the minimization 
of driver overhead are imperative to maintaining high throughput 
rates. It Is possible to cause a pronounced deterioration in 
throughput by a very modest increase in driver overhead- 

2, For BCD/668X files. 

The most significant factor is the amount of time necessary to 
perform the display code to internal BCD conversion within the PP. 

In fact, interrecord gap time and driver overhead amount to less than 
five percent of the time required to process a large BCD record- 
For very small records, however, these considerations play an 
increasingly major role- 

As a result of the importance of BCD convert time (when no 6684 is 
available) efforts have been made to speed up conversion as much as 
possible. Two conversion tables are employed and whenever possible inter- 
record gap time is used to perform part of the necessary conversion* 

Full use of the 6684 is made easy by virtue of the tape format. Since no 
part of the data has any special meaning assigned to it by the operating 
system (CF. line terminators in SCOPE Standard Tapes) the data does not 
have to be ^^prepared’^ for use with a 6684. 

The low speed routine of IWS may be entered under the following conditions. 

If the user program is placing data in its circular buffer at a rate 
approximately equal to the rate at which IWS is removing data from the buffer 
and if, at any given instant, IWS detects only one record remaining in the 
circular buffer, then IWS is constrained to operate from its low speed 
routine. Operating from the low speed routine does not couse the driver to 
drop out of the PP between records but it does negate effective usage of inter- 
record gap time- IWS will return to the high speed routine if, at any given 
instant, it detects two or more records in the circular buffer. Of course, 
operating from the low speed routine like the high speed routine, is meaning¬ 
ful only for the WRITEN request since, for any other request, only one data 
record is processed per PP load (or request). 

WRITEN REQUEST 

The WRITEN request is the only means under this tape format by which the 
central processor program can dynamically transfer data from the circular 
buffer (by placing a header word and data into the circular buffer and 
advancing the IN pointer while IWS simultaneously removes data, writes it to 


17-30 


March 1969 






SCOPE 


tape and updates the OUT pointer). Thus, the WRITES request is the only 
vehicle for sustained high speed witing under this tape format. 

When the WRITES request is used, each data record placed in the circular 
buffer must be preceded by a control word called the header word. The 
header word effectively acts as a queue entry for its record and has the 
following appearance: 


59 

29 24 ] 

L7 0 


UBC 


CM.WD.COUNT 


where UBC contains the unused bit count of the last word of the record and 
bits 0-17 contain the central memory word count of the record. The above 
convention facilitates the writing of records that are a multiple of two 
characters (12 bits). An error condition is considered to exist (and device 
capacity exceeded status returned) if UBC is greater than 59, if the CM 
word count is greater than 512, or if the record size (in PP bytes) is less 
than or equal to that specified by the installation parameter IF.NOISE, 
l.e., a noise record. 

Writing will continue in the high speed routine if there are at least two 
records (and their associated header words) in the circular buffer at all 
times. Writing will continue in the low speed routine for as long as only 
one record (and its header word) is kept in the circular buffer. Writing 
ftcan both the high and low speed routines will be interrupted by a parity 
error, but if the error is successfully recovered, writing will automatically 
be re-initiated. A similar situation exists at end-of-reel if the UP bit 
is not set. That is, writing (from high or low speed routines) will be 
interrupted In order to swap reels. When the new reel Is ready to be used, 
writing will be re-initiated. The FET is not marked complete as a result 
of either a recovered parity error or an automatic reel swap. 

Writing from either the high or low speed routine will unconditionally 
cease upon detection of an invalid header word or an empty circular buffer. 

Both the PRU count and the OUT pointer will be updated after the writing 
of each record. 

The mode for a WSITEN request (and for all requests on an S-tapa) is 
determined by bit 1 of the request code. 

WRITE REQUEST 

The WRITE request causes one data record to be written from the circular 
buffer to magnetic tape subject to conditions of word 7 of the PET. Word 
seven has the following fom: 


59_ 29 24 17 0 



UBC 


MLRS 


where UBC contains the unused bit count of the last word of the record, and 
MLRS, the Maximum Logical Record Size field. Indicates the maximum number of 
words that a record may contain. 
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As with the WSITEN header word, the maximum value of the UBC field is 59 
and the maximum value of the HLRS field is 512. If either of these values 
are exceeded^ no data will be written and device capacity exceeded will be 
returned in the code and status field of the FET. If UBC = 0 and MLRS — 0 
SCOPE will assume that the UBC Is zero (the last word of the record is a 
full CM word) and that MLRS = 512, Thus, the default condition (word 7 of 
FET all zero) permits writing the largest possible records for the device. 

When a WRITE is issued the amount of data between IN and OUT is compared 
to MLRS. If this data exceeds MLRS, nothing is written and a device 
capacity exceeded error is posted. If the data in the circular buffer is 
less than or equal to MLRS, this data is adjusted by the unused bit count 
(UBC) and then written to tape (provided that the byte count is greater 
than IF.NOISE - cf. WRITEN REQUEST). The PHU count is updated along with 
the OUT pointer. IWS then completes the FET and drops out of the PP- 

WRITER REQUEST 

The WRITER request is identical to the WRITE request. 

WPHR REQUEST 

The WPHR request causes one data record to be written to tap^ under the 
following conditions. If the data between IN and OUT is less than or 
equal to the value specified by the MLRS field of the FET, the data is 
adjusted by the unused bit count (UBC field of FET) and the record is 
written to tape, provided that the adjusted byte count is greater than 
the declared noise record size (IP.NOISE). The OUT pointer will be in¬ 
cremented to indicate an empty buffer- If the record is a noise record, 
nothing is written to tape and the status device capacity exceeded*' is 
returned to the FET. If the data between IN and OUT exceeds the value 
of MLRS, then device capacity exceeded status is returned, and MLRS words 
of the data will be written to tape* The OUT pointer will be updated to 
show that MLRS words of the data have been written. 

On a coded WPHR request only conversion from internal to external BCD is 
performed. 

WRITEF REQUEST 

The WRITEF request causes an end of file mark (tape mark) to be written on 
tape- If there is any data present in the circular buffer it will be 
written to tape first, followed by the file mark. The writing of data 
from the circular buffer is governed by word 7 of the FET (in a manner 
identical to the WRITE request). 

LOAD POINT 


In order to avoid writing on unexplred labelled tapes, IWS calls OPEN 
REEL when the PRU count is negative- No writing will be done on the tape 
until the PRU count goes to zero, indicating that writing is permitted. 

PARITY ERROR RECOVERY 


By the time the status for a given record has been checked (while operating 
In the high speed routine), the next reocrd to be written has already been 


17-32 


March 1969 



SCOPE 


read into the PP buffer. Hence, if a parity error is encountered, the 
record sustaining the error must be re-read from CM into the PP buffer. 

If the record in error is a coded record, it is converted regardless of 
whether or not a 6684 is available (this is because IPE does not use a 
6684 during recovery procedures). 

At this point IWS calls the write parity error recovery routine (IPE) in 
"on top" of Itself as soon as it has set up the following direct cell 
communications s 

CRt.T. CONTENTS 

D.SVl FWA OF DATA IN PP BUFFER 

D.SV2 DATA BYTE COUNT 

After IPE has successfully recovered the parity error it sets up the 
following direct cell communications for IWS. 

CBT.t. contents 

D.FR6 CONVERTER STATUS 

D.FR7 EQUIPMENT STATUS 

IPE calls in IWS (into the same PP) and cuases IWS to receive control at 
location 1002B. 

In order to complete the request IWS must examine the unit status supplied 
by IPE for end-of-tape, since IPE could have encountered end-of-tape in 
attempting to recover the parity error. 

If end-of-tape (reel) was detected IWS will perform end-of-reel procedures, 
and, based on the UP bit, complete processing of the request. If end-of- 
tape was not encountered, the request will either be completed, or, in the 
case of a WHITEN request, it will be resumed. 

SYSTEM IMPACT 

If a sufficient data level is maintained in the circular buffer (two or more 
records), the driver is able to sustain high speed writing for extended 
periods of time, e.g., an entire reel of tape. This type of uninterrupted 
writing is essential if high speed data transfer is to be realized on 
magnetic tape devices. Consequently, IWS will retain the channel as long 
as it is able to write data from the circular buffer. 

END-OF-TAPE 

When the end-of-tape reflective spot is sensed, the end of reel status 
(2000 octal) is set in the code and status. End-of-reel processing is 
determined by the user processing bit, bit 45 of word 2 of the FET. 

A. If the UP bit is not set, IWS requests close reel unload by 

calling CLO in another PP. IWS stays in its PP (the channel is 
dropped, of course, and the equipment has been released) and 
waits for the end-of-reel flag to be cleared from the ^T, 
Indicating that the next reel is ready for use. At this point 
IWS reloads itself to complete the original request on the new 
reel 
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B, If the UP bit is set, the PRU count and OUT pointer are updated, 

the equipment is released and control is returned to the user 
program, 

TIMING MEASUREMENTS 


Through-put of the IWS write driver was measured and recorded on the chart 
below. The measurements were under "ideal” conditions, that is, only the 
test program was in execution and it was coded so that it could make maximum 
use of the WSITEN request- 

The four curves, A through D, have the following significance: 

Curve A. This curve represents the transcribing rate of a 607 tape transport 
writing at 800 BPI. 

Curve B# This curve represents the theoretical maximum transfer rate as a 

function of record size and approaches curve A asymptotically with 
increasing record size* 

Curve C* This curve represents the observed through-put rate as a function 
of record size (for the sizes shown at the bottom of the chart 
along the horizontal axis) for either a binary request or a coded 
request that is executed using a 6684. 

Curve D. This curve reflects the observed through-put rate as a function 
of record size (for the sizes shown at the bottom of the chart 
along the horizontal axis) for a coded request executed on a 6681 
converter. 
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17*8 IWX - WRITE EXTERNAL TAPES 


I. General Description 

IWX performs the external tape writing which was previously done by 
2TW. External tape processing is retained for compatibility with 
SCOPE 2*0 and earlier systems* The external tape write procedure has 
been redesigned for greater efficiency using inter-record gap time to 
prepare to write the next PEU* 

II. Data Format 


Binary Tape * The physical record unit (PRU) size is 512 CM words. 

A logical record is terminated by a short or zero length 
PRU. The zero length PRU is 4 bytes of zeros. No level 
numbers are appended to external tape logical records- 

Coded Tape - A logical record is a physical record of 136 characters* 

If a line terminator is encountered before 136 characters> 
it is converted to blanks and the remainder of the 136 
character PRU Is set to blanks* A line terminator is 12 
bits of zeros in the low order byte of a CM word. For 
all write requests except WPHR, the characters taken from 
the CM buffer are converted from DPG to internal BCD, 
then written on tape in external BCD- If 136 characters 
are converted without encountering a line terminator the 
OUT pointer is incremented to the next CM word, so that 
characters 137-140 are not written. 


111. Write Requests 


The type of request and mode are determined by the code and status 
field in word 2 of the FST entry* There are four write requests pro¬ 
cessed by IWX: 


WPHR (4) 


WRITE (U) 


If the circular buffer is empty, IWX exits without 
writing. Otherwise, one PRU is written containing 512 
words or the number of words in the circular buffer; 
whichever is less- For a coded WPHR request, the display 
code to Internal BCD conversion is bypassed so that the 
PRU Is converted from display code to external BCD as 
It is written on tape* If a WPHR request is Issued with 
more than 512 words in the circular buffer, the device 
capacity exceeded bit is set in the code and status of 
word 2 of the FST entry. 

Binary - PRUs of 512 words are written until less than 
512 words remain in the circular buffer. 

Coded - PRUs of 136 characters in the format described 
above for coded tapes are written until the 
circular buffer contains no more line terminators 
and less than 136 characters. 

For both modes, the IN pointer is read prior to each block 
read from central memory so that IWX will write continuously 
as long as the user keeps enough data in the buffer. 
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WRITER <24) The IN pointer is not reread by IWX so that the number 

of words to be written cannot be altered after the re¬ 
quest is issued. 

Binary - 512 word PRUs are written until less than 512 
words remain in the circular buffer. If any 
words are remaining, they are written as a short 
PRU. Otherwise, a zero length PRU is written. 

The short or zero-length PRU Indicates end-of- 
logical record. 

Coded - The coded WRITER is the same as the coded WRITE 
except that if less than 136 characters remain 
in the buffer with no line terminator, this data 
is expanded with blank fill to 136 characters 
and written as another PRU. 

WRITEF (34) Buffer not empty: 

IWX performs the WRITER function, then writes a file mark. 

Buffer empty: 

Binary - If the last operation was WRITE, a zero length 

PRU is written to end the previous logical record, 
then a file mark is written. If the last operation 
was not WRITE, only a file mark is written. 

Coded - A file mark is written. 

IV. Beginning of Information (Negative PRU Count) 

If the PRU count is negative and the unit is busy, IWX re-issues the 
CIO call with a delay and drops out to avoid waiting in a PP during a 
REWIND. If the PRU count is negative and the unit is not busy, IWX 
calls OPE, then re-issues the CIO call with a delay and drops out. 

V. End-of-Reel Processing 

When the next PRU is ready to be written, IWX loops until end-of-operation 
on the previous PRU, then tests for parity error or end-of-reel status. 

If end-of-reel status is sensed after IWX has detected end-of-operation, 
end-of-reel processing will not be done until the next PRU Is written. 

If no parity error was encountered, IWX checks the UP bit in word 2 of 
the FET. If the UP is on, IWX sets .end-of-reel status in the FET and 
FST code and status fields, updates the FET and FST, and returns to the 
user. If the UP bit Is off, IWX calls CLOSE, REEL in another PP, then 
loops pausing and checking the code and status of the FST until end of 
reel is cleared. The request Is completed on the new reel. 

VI. Parity Errors 

Before the status is checked on the last PRU written, a new PRU is 
constructed in the PP buffer. If a parity error is detected, that 
last PRU written is reconstructed and IPE Is called to recover. On 
return from IPE, If end-of-reel status is set, the end-of-reel pro¬ 
cessing is performed before completing the request 
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VII. General Logic Flow 

The WPHR, WHITER, and WRITEF functions are shown in the IWX flowchart. 

The WRITE function in binary mode is performed as follows: 

1. The first PRU is read from OUT and written on tape. The IN pointer 
is read from central memory. 

2. The next PRU is read from the circular buffer. 

3. IWX waits for end-of-operation on the last PRU written. If no parity 
error was encountered, the PRU count is updated in PP memory and the 
FET OUT pointer is updated in central memory. If end-of-tape status 
was set, end-of-reel processing is performed. 

4. The next PRU is written and the IN pointer is re-read from central 
memory. If there is at least one PRU remaining in the buffer, the 
write loop continues at step (2) above. 

The coded WRITE procedure differs from the binary WRITE function in that 
more than one PRU can be read from the circular buffer with each central 
read instruction. For the first central read, the maximum word count 
used is the number of words that will fit in the PP coded buffer area. 

PRUs are formatted from data in this PP coded buffer into a 136 character 
PRU buffer, so that a central read Is Issued only when the PP coded buffer 
is empty instead of after each PRU written as In the binary case. In 
order to keep the tapes moving across record gaps, the maximum word used 
for subsequent central read instructions is set to 30. The IN pointer is 
read from central memory before each central read. 


VIII, Entry Information 

The following low core cells must be set on entry to IWX: 


D.FNT (20-31) 
D.EST (32-36) 

BS (45) 

D.PPIRB (50-54) 
D.RA (55) 

D.FL (56) 

D.FA 07) 

D.FIRST (60-61) 
D.IN (62-63) 
D.OUT (64-65) 

D.LIMIT (66-67) 
D.CPAD (74) 
D.PPIR (75) 
D.PPOR (76) 
D.PPMESl (77) 


Words I, 2 of FST entry 
EST entry 

Last buffer status 
Input Register 
Relative Address 
Field Length 
FST address 


Control Point Address 
Input Register Address 
Output Register Address 
Message Buffer Address 


In addition, the following cells must be set when IWX Is entered from 
IPE: 

ST (47) Unit Status 

DL (72) Number of PP words in the PRU written by IPE. 
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IX. Other Routines Called 


1. IPE. 

IPE is called to recover from a parity error. In addition to the 
entry information listed above, IWX sets: 

DA (71) PP address of the PRU to be rewritten, 

DL (72) Number of PP words in the PRU located at DA, 

CMDL (73) Number of CM words to update OUT by after the PRU is 

successfully written. 

IPE is expected to update the PRU count in PP low core and the OUT 
pointer in central memory, reload IWX, and jump to 1002 with unit 
status in ST (47) and the entry information set. 

2. OPE 

OPE is called in another PP if the PRU count is negative. The in¬ 
put register for the open reel with rewind function has bit 41 set 
as an internal call flag and bits 24 and 29 set to indicate that 
the call came from IWX. IWX sets bit 39 of its input register to 
show that OPE has been called, issues a request peripheral job with 
this input register and a 2 second delay, and drops from the PP. 

IWX continues to recall itself with a delay and drop out each time 
it is called until the PRU count beccmies positive indicating that 
the OPEN function was completed. 

3. CLO 

CLO is called in another PP. The input register for the close 
reel unload function has bit 41 set as an internal call flag and 
bits 24 and 29 set to indicate that the call came from IWX. After 
calling CLO, IWX loops waiting for end-of-reel to be cleared in 
the FNT. 

X. IWX Timings 

X = maximum possible transfer rate at density = d, assumii^ no record 
gaps. 

X = <l*tape speed 
10 ^ 

30KC for 200 BPI 
X = 83.4KC for 556 BPI 
120KC for 800 BPI 

Y = 7, of this which contains data, assuming PRU size = P, density = D, 
record gap =3/4 inch. 

P/d 1 for 200 BPI 

Y = P+n*4 , 3 where n = 1 for 556 BPI 

d~ 4 2 for 800 BPI 

Z = X*Y = theoretical maximum transfer rate at density d, PRU size P, 
with 3/4 Inch record gap. 
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theoretical 

700 ft. * 
Unit "E” 

in/RPU 

PRU/700ft. 


PP LOW CORE CELL ALLOCATION FOR IWX 


ADR 

SYMBOL 

VALUE 

1 



2 



3 



4 



5 

PKUIN 

IN POINTER FOR PRUBF 

6 

OUTPP 

CM OUT POINTER FOR CURRENT PRU 

7 




10 

CM 

TEMPORARY STORAGE USED FOR CRD 

11 




12 




13 




14 




15 

CH 

CHANNEL NUMBER 

16 

PPNEXT 

OUT POINTER FOR BCD PP BUFFER 

17 

N 

WORD COUNT FOR NEXT CRM 

20 

I 

).FNT+0 

ENT WORD 2 

21 


+1 


22 


+2 


23 


+3 


24 


+4 



BCD 

BINARY 

200 BPI 

556 BPI 

800 BPI 

200 BPI 

556 BPI 

800 BPI 

14.07 

20.40 

21.94 

29.12 

77.1 

107 

9.27 

16.32 

18.07 

29.17 

75.45 

103.46 

1.47 

1.00 

0.93 

26.37 

9.966 

7.16 

5794 

8400 

9033 

319 

840 

1173 


* 700 ft. Is an approximate length 
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ADR 

SYMBOL 

VALUE 

66 

D. LIMIT 

LIMIT 

67 



70 



71 

DA 

DATA ADDRESS OF PRU TO BE REWRITTEN IF PAR. ERR. 

72 

DL 

DATA LENGTH=tIUMBER OFF PP WORDS STARTING AT DA 

73 

CMDL *** 

NUMBER OF CM WORDS TO UPDATE OUT BY IF PAR. ERR. 

74 

D.CPAD 

CONTROL POINT ADDRESS 

75 

D.PPIR 

INPUT REGISTER ADDRESS 

76 

D-PPOR 

OUTPUT REGISTER ADDRESS 

77 

D. FEMES 1 

PP MESSAGE BUFFER ADDRESS 


*** 73 also used for KL = size in CM words of last PRU written if binary 


IWX MEMORY USAGE 


LOW CORE PP RESIDENT 

IWX 




PRU BUFFER (104 words) 

BINARY BUFFER 

PP BUFFER 

3000 WORDS 

APPROX. 760 WORDS 


- 


0 

1000 

2000 

3000 

4000 

5000 

6000 

7000 

7777 


END BINARY CODE 

END CODED 
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17*9 2TB 


Function 

2TB performs all backward positioning of one half inch magnetic tape. 

Characteristics 

The functions handled by 2TB: 


BACKSPACE 40 

BACKSPACE PRU 44 

REWIND 50 

UNLOAD 60 

SKIP BACKWARD 640 


Before positioning backwards, 2TB checks the last buffer status. If 
the last operation was a write or an open write, the trailer label is 
written before the tape Is moved. 

First a tape mark is written. If the requested function is modified 
by 300 (for example, 340 for backspace or 350 for rewind) an EOVl label 
is to be written. Otherwise, an EOFl label is to be written. 4LB is 
called to write the appropriate label and two more tape marks are written. 
If a zero function code is requested the tape is positioned before the 
tape mark if an unlabelled file and before tbe last tape mark if 
labelled. 

Rewind, unload and BKSPRU are accomplished by issuing the appropriate 
hardware functions. 

Backspace positions backward to the last logical record by reading back¬ 
ward to the first short PRU and positioning after it. 

Skip backward performs like backspace with the option of positioning 
after a record of a specific level and iterating to this level the 
number of times specified by the N parameter. The level mrnber is upper 
four bits of the fanction code and the N parameter is in bits 18-35 of 
the input registet. 
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17.1D ITF 


Introduction 

ITF is loaded by CIO to process SKIPF requests -CSMOj,! on 
magnetic tape files. Such a request may have been issued by 
the user or may have been generated by IRT for terminal pro¬ 
cessing of a REAOSKP request In either case-, ITF^wiH 

rimsh the request and set completion bits in the FNT and FET, 

Entry Information 

ITF expects PP low core to be set up as foil 
Symbolic Address 


OWS! 


Content 


Actual Address 


D.FNT - D.FNT+4 
D.FNT-J-S - O.FNT+T 
O.EST - O.EST+M 
O.BA - D.BA-H4 
D.PPIRB - D.PPIRb-1-4 


FNT -CSI 
FNT -C3J 
EST 

FET -[1> 

Input register 

The skip count is in bits 13-35 of the input register. The 
level number is in bits 14-17 of FNT -CBl. 


BD-E4 

BS-31 

3B-3t, 

MD-44 

50-54 


Initiallizatian 

The tape unit status is checked for busy. If the unit is 

jTtV SpiI a a second delay. 

negative, ITF calls OPE. Otherwise, main 
done. Noise record size is set to 
IP.NOISE unless the file is in standard SCOPE format in which 
JSI unconditionally set to b characters. If 

Jxit^DrocfS^in ■f'unction is a no-operation, and 

exit processing will be performed. Otherwise, a table loop-up 

address of the control routine used 
to perform the skipping as follows: 


SCPD 

Skip 1 logical record on standard 
SCOPE formatted coded file. 

SCPBIN 

Skip 1 logical record on standard 
SCOPE formatted binary file. 

SLCO 

Skip 1 physical record on coded 

S- or L- formatted file. 

SLBIN 

Skip 1 physical record on binary 
S- or L- formatted file. 
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XBIN Skip 1 logical record on binary 

X- formatted file 

XCODED Skip 1 physical record on coded 

X- formatted file. 

Unless the file is in standard SCOPE formati any level number 
except will be mapped into Q. 


Main Loop Processing 

The skip routine selected is called to skip one record until 
the specified number of records of the specified level have 
been read. The skip count will be decremented by one for each 
record with a level number greater than or equal to the speci¬ 
fied level number- 


Exit Processing 

When the skip count is satisfiedT the end-of-record bit and 
the last level number read are set into the PET and FNT code 
and status fields. If the last level read was ITni the end- 
of“file bit will also be set. The PET and FNT completion 
bits are set and the PP is dropped. 


End-of- reel Processing 

The CALLRP subroutine will be called if any of the following 
conditions occur during a record read: 

SLCD/SLBIN If the reflective spot is encoun- 

XBIN/XCODED teredi if a tape mark is read and 

the file is labelled. In the latter 
casei the tape mark may or may not 
precede a label. X-tapes cannot be 
labelled. 

CALLRP sets the end-of-record bitT the last level number readi 
andi if appropriate! the end-of-file bit into the FET and FNT. 

A check is made to see if the skip count was satisfied by the 
last readi if sot the skip count in the input register is set 
to zero. The end-of-reel and/or end-of-information bits are 
set into the FNT if the reflective spot and/or a tape markn 
respectively! were read. The end-of-file and end-of-record 
bits are then cleared in the FNTi 3RP will reset them before 
dropping out- The PRU count is decreased by onei 3RP will re¬ 
increment it if the record was not part of a label group. 

3RP is then loaded. 
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NOTE: If 3RP determines that a reel swap is necessary, the 

SKIPF or READSKP request will be considered to be complete! 
whether or not the skip count has been satisfied. While this 
vastly reduces the utility of the S<IPF/READSKP request! it is 
considered preferable to inconsistencies that would otherwise 
arise. {There is no way to communicate to the user program 
the number of records left unskippedi this means that a pro¬ 
gram would operate on a particular tape file differently! de¬ 
pending on whether or not the UP bit is set>. End-of-reel 
processing for SCOPE-formatted tapes is performed by calling 
CLO into another PP. 


Messages 

ht uu reject 

appears if the unit rejects a functions ITF loops until 
the condition is corrected or the job is dropped. 

mt uu xmsn parity error 

appears if a transmission parity error occurs when a 
function is issuedi a master clear is performed and ITF 
loops until the condition is corrected or the job is 
dropped. 

m uu not ready 

appears if the unit is not readyi ITF loops until the 
unit is ready or the job is dropped* 

MT uu RESERVED 

appears if the unit is reservedi ITF loops until the 
unit is free or the job is dropped. 

MT uu 8LAN< tape READ 

appears if no data is received from the channel after 1 
second! exit procedures are performed. 
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17.11 MLB 


MLB is called to process the standard SCOPE 3.D 1/B inch 
magnetic tape labels. Processing may take several forms 
which are broadly classified below as READ Section t 
WRITE Section and Tape Motion Section of MLB. 

The data from which the labels are formed is taken from 
the FNTi the FET and the Control Point area. The FNT 
contributes the block count -CPRU number} and the density 
setting. The last four words of the FET provide all other 
user controlled label information. These fields are used 
directlyi when given and not in format error-i except for 
the retention cycle which is added to the creation date 
to produce an expiration date for the label. The Visual 
Reel Number is transferred to MLB via the Control Point 
Area. MLB will pause and request this number from the 
operator whenever it is needed- 

The FNT and FET also provide the data against which the 
label is checked when that operation is requested. If 
an expiration only check is requestedi the expiration 
date from the label is compared with today's date contained 
in Central Memory. When a label is delivered to Central 
Memory! MLB does not update the IN pointed but leaves 
that operation to the calling routine. 

HDR-, EOF and EQV Labels 


Field 

Label Identifier 
File Label Name 
Multi-file Identification 
Reel Number 

Multi-file position 
Number 

Edition Number 

Creation Date 

Expiration Date 


Value 

Input in bits Q-I of the 
Communication word 
Either the FET entry or 
Blanks are used 
Either the FET entry or 
Blanks are used 
Either the FET entry or 
0001 is used. If the 
FET entry is blank-i 
0001 is inserted in the 
FET 

Either the FET entry or 
blanks are used 
Either the FET entry or 
01 is used. If 01 is 
Used-j the edition number 
In the FET is set to 01 
Either the current date 
Obtained from SCOPE 
-Cwhich is inserted in the 
FET} or word IE of the 
FET is used 
1} Creation date or 
E} Calculated by adding the 
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Block Count 


Creation date to the 
Retention cycle module 
BbLClG} 

HDRl- set to zeros 
EOVl PRU count of the 
FNT 

EOFl PRU count of the 
FNT 


VOL Labels 
Visual reel number 
Density 


From Control Point 
Area 

FNT entry word 2 


fiessaqes 

All messa 9 es are preceeded by NT XX LLLL where LLLL is the 
label ID 

A. FILENAME SHOULD BE XXX-XXX IS XXX-XXX 

B. FILE NAME READ XXX-XXX. 

C. REEL Number should be XXXX IS XXXX. 

F. CREATION DATE SHOULD BEXXXXX IS XXXXX. 

G. BLOCK COUNT SHOULD BE XXX IS XXX 

H. EXPIRATION DATE SHOULD BE XXXXX- IS XXXXX. 

I- nULTI-FILE NAME SHOULD BE XXX IS XXX. 

J. FILENAME WRITTEN XXX-XXX. 

K. VISUAL REEL NUMBER WRITTEN XXX-XXX. 

L. VISUAL REEL NUMBER READ XXX-XXX 
n. ENTER VISUAL REEL NO. 

N. REJECT. 

O. XMSN PAR ERR 

P. NOT READY 
(J. RESERVED 

R. NO WRITE ENABLE 

S. LABEL INFO ERR IN FET. 

T. LABEL PARITY ERR 

U. BLANK TAPE READ 

Entry Information 

Before calling HLB a communication word—Cti)—is set to 
low core to direct MLB as to what action should be per¬ 
formed. The following settings of CU are meaningful: 

Read section of MLB 

<CW> = IQB— read and check record 

-tCU> = IIB— skip forward to tape mark Idone by read¬ 
ing a physical recordn pausing and check¬ 
ing for a tape mark! 

{CU> = 1MB— read and do not check record 
■CCWl = ISB — read and check expiration only 
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■CCU> = IfeiB— read-) check and-i If Hl>Ri deliver to CH 
■CClil> = 17S— read tape mark 
<CtJ> IBB-i 13B undefined 

Write section of mB 

CCtil> * □ — write EOV label 

{Clil> = 1 — write EOF label 

•CCli)> = 5 — write VOL label 

■CCU> = 3 — write HDR label 

■CCli)> - 1 — write tape mark 

■CCW> = 4-1 St b undefined 

Tape motion section of MLB 

{CW> = 30b — rewind tape 

■CCW> = 31B — rewind unload tape 

{CW> = 336 — backspace 1 physical record 

■CCU> = 33B — skip forward tape mark 

•CCW> = 3MB — skip backward tape mark 

-CCIil> = 3SB — write tape mark*'*<*«**do not use-i may hang 
PP 

■CCU> = 3bB — skip bad spot 

■CCU> = 37B — set density {according to what is in 
D.FNT} 

Exit Information 

CW will be set to indicate the status of the data which 
was read as followsi 
•CCU> bits D-E 
■CCIil> = □ — EOV read 
{Cli)> = 1 — EOF read 
■CCW> = 3 — VOL read 
■CCIi)> = 3 — HDR read 

■CCW> =4 — record read was not recognized 
{CU> =7 — tape mark read 
-CCW> = 5-) b-i undefined 

{CU> bit 3 — on indicates multi-file name error 
{CtilJ bits 4-S these bits set only if FET HFN is 
Non-zero 

= □□ — label multi-file pos. No. Eq FET multi¬ 
file Pos. No- 

= 01 — label multi-file pos. No. LT FET multi¬ 
file Pos. No. 

= 10 — label multi-file pos. No. 6R fet multi¬ 
file No. 

■CCIil> bits b-7 

= 00 -- label reel number Efl FET reel number 

= 01 — label reel number LT FET reel number 

= ID — label reel number GR FET reel number 

■CCW> bit & — on indicates file label name error 

•CCIill bit 1 — on indicates tape not expired 
{CUl bit 10 — on indicates block count does not agree 
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■CCIil> bit 11 — on some other field in error 
If HDR label was read or written D-SVl and D-SV5 contain 
the multi-file position number 

CCU> is meaningless when the call was for Write or Tape 
motion except that if -CCIjJ} = 3 on entrance to 4LB and the 
tape is at load point-. -CCWl will be set equal to 9 and no 
action will be performed! 
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17. L2 4LC 

MLC is the PP routine-, the Y type processori that pro¬ 
cesses standard 30DD series labels. The features and 
restrictions are: 

A. MLC will rewind and unload files as directed by OPE 
and CLQ . 

B. The label information is validated against the con¬ 
tents of the FET and any discrepancies are immediately 
made known to the operator- ^LC will wait for the 
operator to type G0 1 RE CHE CK or PROP » 

C. Multi-reel processing is initiated from CIO when an 
end of reel has been detected. CLO is called and 4LC 
is directed to read or write an EOT label and to 
rewind or unload the file- CLO then directs further 
action based on the setting of the UP bit- 

P. Multi-file reels are handled simply by issuing repeated 
CLOSE NO REUINP/OPEN NO REMINP functions. 

E. Non-standard labels are handled in the following way: 

1- HLC will not read or write the header-, the user 
must take care of this. MLC will perform the 
motion requested by OPE and that is all. 

2. Trailer label processing differs for input and 
output tapes- For output reels the standard EOF 
or EOT labels are written. For input reels an 
invalid trailer message is given to the operator 
and if his response is GO-, normal processing con¬ 
tinues. 

F. The following items are validated agains the FET if 
they are supplied for an input tape: 

a. label file name 

b. reel number 

c. creation date 

d. edition number 

G. For an output tape the expiration date is checked to 
see if the tape has passed thru its retention cycle- 

H. Blank labeling capability is provided by the simple 
scheme of 4LC posting a message to the operator when 
an output reel does not contain a valid header. The 
message ^NOT Y TAPE^ appears and a response of GO 
causes the tape to be rewound and the header written, 
ble can not handle a virgin tape. 
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I. The header label record Is not delivered to the 
circular buffer only to the FET. 

J. The block count fPRU COUNT} in the EOF or EOT labels 
does not include label records or tape marks. 

K. The Mfl character user area in the header label is 
always blank since there is no FET address as yet that 
directs MLC to the area. 


Entry Information 


Before calling 4LBi a communications word —CU— is set in 
low core to direct MLC as to what action should be performed. 
The following settings of CU are meaningfulJ 

Read Section of MLC 

•CCU>=1DB—READ AND CHECK RECORD 

<CU}=1SB—CLOSE REUIND CALL FROM «CL0« TRLR ALSO READ 
■CCU}=lbB—CLOSE UNLOAD CALL FROM nCLO^ TRLR ALSO READ 
■CCU}=1?B—SEARCH FOR EOF/READ TRLR/SKIP EOF^^CALLED 
FROM CL0*«*« 

For Open Rewind calls IhR sets E to the fifth of CU. 

Write Section of MLC 


■CCU>= 0 

—WRITE 

EOT LABEL 



{CU>= 1 

—WRITE 

EOF LABEL 



CCU>= 3 

—WRITE 

HDR LABEL 



{CU}= M 

—WRITE 

EOT/REWIND 

FROh 

CLO 

■ccu>= s 

—WRITE 

EOF/REWIND 

FROM 

CLO 

CCU}= b 

—WRITE 

EOT/UNLOAD 

FROM 

CLO 

{CU}= 7 

—WRITE 

EOF/UNLOAD 

FROM 

CLO 


Exit Information 

CU will be set to indicate the status of the data which 
was read as follows! 

■CCU}= □ —EOT READ 
{CU}= 1 —EOF READ 
■CCU}= S Not used 
{CU}= 3 —HDR READ 

Error conditions are handled locally in MLC-« giving the 
operator the chance to *«*<G0**»<RE CHECK►**‘DR0P»<>« 

Y Tape Operational Guide 

The dayfile messages written by MLC are of an informative 
type or an action type. The action type messages require 
an operator response of N .GO i N.RECHECK or N.DROP . All of 
the messages are preceded by MTXX to identify the unit in 
question* 
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nessAGE 

TYPE 

REPLY 

1 


LBL WRITTEN 

Informative 


2 


LBL READ 

Informative 

- 

3 


BLKERR FNT XXXX 

Informative 

- 


- 

CDATE-NON NUMERICS- 

Informative 

- 



TODAYS USED 



S 

- 

MLC ILLEGAL FX XX 

Informative 


b 


NOT Y TAPE 

Action 

60/RECHECK/DR0P 

7 

- 

UNEXPIRED 

Action 

GO/RECHECK/DROP 

& 

- 

LBLNAM ERR 

Action 

60/RECHECK/DR0P 


- 

EDITNO ERR FT XX 

Action 

GO/RECHECK/DROP 

IQ 

- 

REELNO ERR FT XX 

Action 

GO/RECHECK/DROP 

11 

- 

CDATE ERR FT YYDD 

Action 

GO/RECHECK/DROP 

12 

- 

INVALID HDR 

Action 

GO/RECHECK/DROP 

13 


INVALID TLR 

Action 

GO/RECHECK/DROP 

1 


LBL WRITTEN - This 

precedes the flO 

character header 


or trailer record message for output 
tapes. 


2 - LBL READ - This preceds the flO character header or 

trailer record message for input tapes. 

3 - BLKERR FNT XXXXX - Indicates that the block count in 

the trailer label is not equal to 
the block count in the FNT. 

M - CDATE-NON NUMERICS - The creation date that is 

supplied in the FET contains a 
non-numeric character. The 
header label is written using 
today's date as the creation date. 

5 - MLC ILLEGAL FX - MLC was called with a function code 

that could not be interpreted. The 
channel and equipment are released 
and the control point is aborted. 

y - NOT Y TAPE - Indicates that the output tape being 

processed does not contain a 30DQ series 
label. A response of N.GO causes the 
label to be written and processing 
continues. 

7 - UNEXPIRE 1> - Indicates that the output tape being 

processed has not reached the end of its 
retention cycle- A response of N.GO 
causes the tape to be relabeled and 
processing continues. 
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fi - LBLNAM ERR - The label name in the FET does not match 

the label name in the header- A response 
of N-GO causes the header label name to 
be accepted as the valid name and proces~ 
sing continues- 

q - EDITNO ERR FT XX - The FET edition number CFT XX> does 

- not match the header edition number- 

A response of N-GO causes the header 
edition number to be accepted as 
the valid one and processing con¬ 
tinues- 

ID - REELNO ERR FT XX - The FET reel number -CFT XX> does not 

“ match the header reel number. A 

response of N«GO causes the header 
reel number to be accepted as the 
valid one and processing continues- 

11 - C1>ATE ERR FT YYDDD - The FET creation date {FT YYDDO 

does not match the header creation 
date- A response of N-GO causes 
the header creation date to be 
accepted as the valid one and 
processing continues- 

12 - INVALI]) HDR - The header label read was not recognized 

^ as a standard 3D0D series label- A^ 

response of N-GO causes the error bits 
to be set in the status field of the FET 
and error processing continues from 
these. 

13 - INVALID TLR - Indicates that during close file or ^ ^ 

close reel processing an unrecognizable 
trailer label was read. The response 
N-GO causes the trailer to be accepted _ 
and the file will be rewound or unloaded 
as the close function dictates. Normal 
processing will then continue- 
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Permanent Files ImpTementation 


16-1 Introduction 


For Permanent File Phase li the regular SCOPE System contains 
four extra entities. These are called the Permanent File 
Directory -CPFDIt the RBT Catalogue -CRBTOi the Attached Per¬ 
manent File Table CAPF>t and the Sub-Directory Table CSDT>. 

The PFD and the RBTC reside on mass storage Cboth on the 
same device> and are of fixed length. At Dead-Start time-, 
an FNT entry is made for the RBTC as 0RBTC-. and multiple 
entries are made for PFD as DSDODOt QSDQOli QSDDDS-. •. •. i the 
DSDQOO being for the PFD header and the others corresponding 
to each of the Sub-Directories. Both the RBTC and all the 
PFD entries are attached to control point zero and entered 
at the high end of the FNT. This prevents an unauthorized 
user from interfering with the operation of the Permanent 
File Manager -CPFMI. 

The APF table is CM resident and consists of one word 
entries-, up to a predefined size for the installationn with 
an overall maximum of Sll entries. 

The SDT is also CM resident and consists of a one byte entry 
per Sub-Directory -[SD> other than SDO- The number of SD''s 
may vary from E to lOQO. 

The PFD is detailed in figure {a>. As can be seen-, it con¬ 
sists of a header followed by a number of sub-directories of 
equal length. The PFD header is a copy of the PFD''s RBT 
chain for use in recovery. Each sub-directory consists of 
PFD entries-! the format of which is shown in figure -Cbl. 

Up to five cycles or versions of each Permanent File {PF> can 
be maintained. The PFD entry-, therefore-, can have up to five 
pointers to the RBTC-. each corresponding to an entry for a 
cycle. 

Each pointer has a byte associated with it -Cword b of PFD 
entry>i which will contain two-, one bit flags and the cycle 
number. The first flag-, if on-, will signify that this cycle 
has been dumped and is now unavailable-, the second will 
signify the entry is incomplete <i.e.-. no RBTC entry exists 
at this time>. 

liihen cataloguing {see 3-1} the user must specify the number 
for the cycle unless it is the first cycle of a new file. 

When attaching a file-, unless the user specifies the cycle 
he wishes-, he will get the one with the highest cycle. Cycle 
numbers must lie between 1 and ti3 inclusive. 
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The Permanent File Name ■CPFN> can consist of up to MD charac¬ 
ters. The PF]> entry also contains the passwords given when 
the file was catalogued. Details of the password scheme are 
given in the write up of CHPERM elsewhere in this inS. 

The ''utilities flag'' in word one of the PFD entry will 
signify that all cycles have been dumped. -CUsed by utilities 
only.> The '^entry in use'' flag is used when an entry is 
built. ■C1=IN USE.} 


Figure -Cc} is the detailed format of the R8TC and figure <d> 
is that of a RBTC entry. 

The RBTC consists of a header followed by a number of vari¬ 
able length RBTC entries. These entries are not necessarily 
contiguous. If an RBTC entry will not fit entirely into one 
PRUt it is forced to start at the beginning of the neXt PRUt 
i.e.T by making an entry start at the start of a PRUn it will 
be able to cover several consecutive PRU-'s. The header is a 
copy of the RBT chain for the catalogue as a whole for use 
in recovery. Each RBTC entry has a copy of the PFN as well 
as the other relevant information shown in the figure. This 
is followed by the RBT chain for the file. 

NAUt NAE are reserved for future use. U is the current 
number of words in entry. 

As can be seen in figure -Cdli two variable length fields have 
been left within the entry for installation and/or future 
development use. 


Figure -Ce} is the format of the APF entry, blhenever a per¬ 
manent file is attached to a control point-, an entry is 
made for it in the APF table. A nine-bit pointer is used to 
relate each FNT entry to the corresponding APF entry. The 
APF table is really an interlock list to allow multi-read 
access without reloading the RBT chains and also controls 
the queueing for single or priority use of the file. 

There are five one bit flags in the APF word: 


PRIORITY FLAG 

UAIT FLAG 

PURGE FLAG 


Used to signify that either someone is 
waiting on exclusive access or has got 
exclusive access. 

Used to signify that PFH is waiting to 
use this file at completion of current 
operation- 

Is used to prevent any new operations from 
starting on a file after the file has 
been logically removed from the system 
by PFh. 
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Figure {a> 


THE PERflANENT FILE DIRECTORY 
{Contiguous Arean Reserved at I>ead-Start> 


/ 


N 


SD D 


Copy of RBT 
chains for 
PFD sub¬ 
directories 


For use by Dead- 
Start Recovery. 


/ 


Sub. 1 


PFD entry 1 
PFD entry E 

< : : : 


PFD entry m 


Sub • E 


Sub. n 


PFD entry 1 
PFD entry E 

< ’ * 

\ • > ■ 

* B • 

PFD entry m 

PFD entry 1 

PFD entry E 

< . 

1 ■ * ■ 
■ ■ • 

PFD entry m 
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PFI> Entry 

tnormally lb words! 


Reserved 

Utilities Fla 
Entry In Use Fla 


7777 




Permanent 
File Name 

Up To 40 Characters 


KI^HB 


Cycle 

Number 



RBTC ! RBTC 


Pointer 


Pointer 


RBTC 

Pointer 


Passwords 


TURN-KEY 


CONTROL 


nO»IFY 


EXTEND 


READ 


Cycle 

Number 


RBTC 

Pointer 


I RBTC 
Pointer 

I 

I 

I 


UNUSED BUT RESERVED 
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Figure {c> 

THE RBT CATALOG 



t 

I 

I 

I 

k 


Label for RBTC 

Copy of RBT 
chain assigned 
to RBTC for 
recovery purposes 

RBTC entry 
RBTC entry 
RBTC entry 

B « 

« V 

» • 

RBTC entry 
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Figure {dO 
RBTC ENTRY 


{Variable Length> 


Uord 


Start of Entry Fl^ 
Entry Free Fla 


3 


777? 


1 7777 

J_ 


R8 


7 ^- 


TC 


2 

3 

4 

5 


PFN 


Permanent 
File Name 

Up To 40 Characters 


Pointer to PFD Entry 


EST 

Ordinal 


Cycle 


Creation Date {J-]>ate> 


Ret. {Bin.> 
Period 


Date of Last Access {J-l>ate> 


Reserved 


ID 

Number of 
ATTACHES 

NAU 

NAE 

U 


11 

Ou/ner I/D 

12 

Pointer to 
R = Q 

Pointer 

To S 

Pointer 

To T 

Sub-Direetc- 
s rv Number 



Variable Length Slot Reserved for PFH 



Installation Reserved Slot 



RBT Chain {Variable Length> 
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APF 

FLAG 

• 

« 

Means when om that PFM is in the pro¬ 
cess of changing information associated 
with this file and consequently the file 
is unavailable. 

DUMP 

F lag 

• 

This is used by the dump utility and is 
put on when the entry refers to a dump 




program. 


Entries in the PFD will be placed into appropriate sub¬ 
directories by the system. See SELSUB for the actual tech¬ 
nique . 


The subdirectory table {Si>T> and its format will be shown in 
figure Cf}. Each entry in the SDT will consist of one byte 
containing the count and a one-bit interlock flag. 


Two pointer words are used in low core* These are P.PFfll 
and P.PFtlSi they are illustrated below. 


P-PFni 


p.PFne 


A- 50 





C.SDTL 

C.APFL 

C.SDT I 

C.APF 

C.PFMCH 


C.SDL 

C.R8TCL 

C.RBTCl 

C.RBTCE 

C.RBTC3 

M.esD 






C.S0TL - This contains the value N.SI> which is the number of 
subdirectories in the system. {Including dummy sub¬ 
directory zero>. 

C.APFL - This has the value of L-APF which is the length of 

the APF table in CM words. 

C-SBT - This is the FUA of the subdirectory table. 

C.APF - This is the FUA of the APF table. 

C.PFMCH - This is the PF toggle byte used for subinterlocking 

disk ana CM tables. It has the form - 


C.PFMCH 



Ifl-fi 
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C.SDL 


~ interlock bit for SDT 
“ interlock bit for APF 
“ interlock for new-name scanning 
RBTC - interlock for RBTC 
UTILITY- used when utility is running 

“ This contains N»ES]) which is the number of available 
slots in each subdirectory. -CM per PRU> 


C.RBTCL 


This contains the value N.RBTC which 
of PRlI-'s in the RBTC divided by It. 


is the number 


C.RBTCl 


C.RBTC3 contain a pointer to the current end of 
information in the RBTC. 


In addition the Permanent File flanager has reserved two words 
in each control point area. These are U.CPPFl and U.CPPF2 and 
are described under the DELAY routine later in this chapter. 


Ifl.E Functions 


The initial complement of functions are four in number. These 
are CATALOG, ATTACH, PURGE, and EXTEND. In ad3i?¥Snr;n 
HACRO IS needed to set up the file data block- 

FOB 


The FOB is used to transmit information such as parameters 
and return codes, between the user and the PFh. It is 
generated automatically on a control card call but on a 

generated with the system macro 
ri/BT which has the following format* 


fdbaddr FDB Ifn, pfn, parameter list 


fdbaddr must be present in the location field. It is the 
location of word S of the FDB. The list must be preceded bv 
a comma even if the PFN is not given and each parameter is 
separated by a comma. The entire list is terminated by a 
blank. ' 


Paramete rs may include any of the following; 

RP = retention period in days 
PP = privacy procedure parameter 
CY = cycle number 

TK = turn-key password in a CATALOG function 

PU = password list 

CN = control password 

HD = modify password 

EX = extend password 

RD = read password 

SD = subdirectory 

ID = user identification 
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SCOPE 


Control Card Functions 


All control card requests share a common format: 

name-Clfn> 

name-ClfnT pfni options> 


where Ifn is the first parameter identified by position. This 
name is associated with the fifth word of the FDB. The option 
list follows the parameter field. Options may be listed in 
any orderi and they are separated by a blank or commai the 
list is terminated with a right parenthesis. Each option 
is identified by the two character code listed in Section 2.B. 

Dacro Functions 


All macro requests share a common format: 


name f dbaddr *, RC 


where fdbaddr is the location of the fifth word of a predefined 
FDBt and RC is an optional parameter that will return control 
to user on non“fatal error• 

MACRO EXPANSION AND FDB FORMATS 


Call to CPC 


ST 2 ^ _.□ 


SAI FDB 

RJ CPC 

PFx 

0 

3 


Code/Status 


51 31 17 


CPC Call to RA+1 


PFx 

□ 

E 


FDB addr+M 


51 31 17 □ 

FDB BLOCK 

The FDB contains all parameters for PFM to execute the requested 
function. Its length will be determined by the number of para¬ 
meters suinflitted. Minimum length is b wordsi thereafter-! one 
word will be required for each parameter specified. The 
entire FDB must be terminated with a word containing zeros in 
bits 


^ n 








SCOPE 


Last” 

word 



The 18-bit code/status field will be formatted as follows^ 

Bits 17 - “i! Error codes -- any Ccddes greater than 
□EDg are fatal and abort the job>. . . 

User Return”Codes 


Code {Octal! Heaning 


. .Function successful 

1.Format error 

S.LFN already assigned 

{ATTACH! 

3 .LFN not found CCATALOGt 

EXTEND-, PURGE! 

4 .Blank PFN {CATALOG-, 

ATTACH! 

5 .Directory Full {CATALOG! 

L.Catalog Full {CATALOG-, 

EXTEND! 

7.PF Device Unavailable 

10. . . . .Open Random File on a 
CATALOG-, EXTEND 

11.Illegal Device for File 

Residence {CATALOG! 

12. . . . .ATTACH Request for Unknown 
File 
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Code -GOctal} 


fleaninQ 


13 

m 

15 

lb 

17 

20 

21 

22 

23 

2M 


. Cycle Reference does not 
exist {ATTACHt PURGE-, 
EXTEND! 

. Invalid Cycle Number 

• Duplicate Name/Cycle or 
no slot on CATALOG 

. Attempt to Recatalog 
Existing Permanent File 

. Attempt to CATALOG Non- 
Local File 

• Function Attempted on 
Non-Permanent File 

. Function Attempted on 
Purged File 

• CATALOG Attempt-! No 
Uord Pairs 

■Cycle incomplete on an 
ATTACH 

. Duplicate ATTACH Request 


Bits 6 - PFM request code—an even number—stored 

by PFn when a request is issued. Comple¬ 
tion of request is indicated by setting 
bit zero to one. 


Parameter IJords 


ST 


right adjusted parameter 


FDB value 


As shown above parameters are stored-, one per word in any 
order. FDB values are as below! 


Octal 

Value_ Heaninq 


□□ 

end of FDB list 

D1 

PP - privacy procedure parameter Cdisolay code! 

□2 

RP - retention period in days {binary! 

Q3 

CY - cycle number {binary! 

DM 

TK - turn-key password {display code! 

□ S 

CN - control password {display code! 

Ob 

HD - modify password {display code! 

□ 7 

EX - extend password {display code! 

ID 

RD - read password {display code! 

11 

unused 

12 

SD - sub-directory {Display Code! 

13 

null 

IM 

ID - user identification 

2D-24 
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scope: 


AVI other values are reserved for future system use except 
SOg and above. 

The PFh request codes are detailed below: 


Return control to user on non- 
fatal error Cif macroT call 
with ^-,RC^> 

Abort on any error Call 
other calls> 


Ifl.3 PPH tiain Line 


Octal 


Function 


aiQ 

ATTACH 

oso 

CATALOG 

030 

EXTEND 

OHO 

PURGE 

'lio* 

' IfTlCH 

12D 

CATALOG 

130 

EXTEND 

IMQ 

PURGE 


The PPM consists of one PP program for each function. These 
PP programs implement the functions requested by the CP job 
and transmitted via the FDBn as they are requested. They are 
PFCt PFAt PFPt PFEt corresponding to the functions CATALOGt 
ATTACH-, PURGE-, EXTEND respectively. 

Only one copy of the PFH can be active per control point- In 
other words-, PFM functions will be honored serially in 
requested order. To implement this on a macro calln CPC will 
turn off the CP when it receives a PF request and CPC will 
be recalled by a bit in the FDB when PFH has completed the 
function. CPC will then turn the CP back on and continue 
with the next function. -[Compare same mode of operation of 
CI0.> 

As noted in 3.S-, it will be necessary to put the PFn into 
the delay stack as various hold-ups occur in satisfying function 
requests. The PFH will use two words in the control point 
area to store pointers while it is in the delay stack. 

The entry routine to thePFh is shown elsewhere in the IfIS. 

The crucial part is deciding-, by examination of the Input 
Register-! if this is a delay stack entry. IF so-, we have 
to restore the PFD and FDB information to the PP and return 
jump to progress with the request. On initial entry-, the 
validity of the request is determined and control is then 
passed to the appropriate routines. 


NOTES ON FUNCTIONAL inPLEflENTATION AND CONTROL FLOU OF THE PFH 

To implement multi-access for read and to save pending 
accesses-, a system of waiting loops and queues is needed. 
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They are all coordinated by the APF table entry. The 
uaiti priority and APF flags as well as the control point 
count all being involved. 

flulti-read access is handled by ^u/ait for access® routine. 
The detailed handling of these flags is illustrated else¬ 
where in the IMS. Note that as a prelude to the wait loopsi 
a check is made on the APF flag. If the delay-loop is 
taken 1 it is necessary to ensure the entry is still there on 
exit. If it is gonei the calling function must re-search 
the APF table for the entry and re-issue the wait for access 
or take alternate action if the entry is not found in the 
table. 

CATALOG -CPFO 


The control flow is detailed elsewhere in the IMS. Reference 
is made to an Installation Parameter when the PFPl is unable 
to make the correct directory entry for one of three reasons. 
These ares duplicate name-i no spare cycle or no control per¬ 
mission when attempting to create a new cycle. In these 
casesT if the Parameter is zeroi the user is aborted and if 
the Parameter is onei the system will attempt to honor the 
request by generating a new name for the file. Generation 
will be attempted by changing a character of the submitted 
PFN. The user must ensure a random file is closed before 
cataloguing. After an entry has been catalogued! it remains 
attached to that control point with all permissions in 
closed status. 

An Installation Parameter defines the default retention 
period usedi if one is not specified on a CATALOG. A period 
of 'i'll is taken as infinite. 

Some general notes on file cycles follow : CSee also Sect Ifi.l*?! 
As a definition within this document! cycles of a file are 
taken as files sharing the same PFI> entry and have the same 
names and passwords 

Each cycle pointer in the PFD has its cycle number associated 
with it. As a cycle is purgedi this number is made zero. 

On an ATTACH! the default cycle is the one with the largest 
cycle number! presumably the latest. 

ATTACH -CPFAI 


The control flow for the ATTACH function is given elsewhere 
in the inS. 

EXTEND {PFEI 


The control flow is detailed elsewhere in the IHS. This 
function! like PURGE! has only one parameter and that is LFN• 
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This implies that the file must be attached to the control 
point before these functions can be issued- The attach could 
have been achieved via the functions CATALOG or ATTACH ■CuithT 
in this casei EXTEND permission>. 

The EXTEND function makes permanenti information added to 
the file after it has been attached-i so that it will be 
recovered with the file in the future- The user must close 
a random file before issuing an EXTEND function on that 
fi le. 

PURGE •CPFP> 


The control flow for this function is detailed elsewhere in 
the ms. 

As noted under EXTENDn this function requires only the LFN 
as a parameter. Howevern when the file was attachedi it 
must have attached with control permission. 

Ifl.4 Routine Details 


Section Ifi.S - Ifi-H contain the detailed information 
relating to the PFM routines. It is divided into five 
sections! the routines specific to each of the four PP pro¬ 
grams and the routines that are common to several of them. 

Index 


Main line PFC .. 

Subroutines of PFC 
Hain line of PFA . . ■ 
Subroutines of PFA 
Password Scheme .. 
Main line of PFP .. . 
Main line of PFE ... 

Subroutines of PFE 
Common routines ...- 


la.s.i 
ia.s.5 
la.k.i 
la.L.B 
id.ti.3 
lfl.7.1 
la.g.i 
IS.6.2 
la.H.i 


IS.5 General 

NameJ PFC 

Date: March 17-i IHb'i 

Version: 1 

Purpose 

PFC is that part of the Permanent File Manager that performs 
the CATALOG function. This results in the addition of a file 
to the Permanent File Directory and Catalog- 
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It has two modes of ope rati on t an ''initial'' catalog and a 
''new cycle'' catalog* The former occurs when the PFN is 
unknown to the systemi and the latter occurs on the addition 
of a cycle to an already cataloged PFN. 

Function 

The main function performed by PFC are: 

1. Common initialization 

S. PFC initialization and parameter checking 

3. Newcycle determination 

4. PF© handling 

5. RSTC handling 
la. Termination 


General 


Flow 


1* {PF> Common initialization 

PFC uses the common initialization routine contained in 
common deck INIT. This handles initial and delay stack 
entries to the function* 


3 . 


{CAT> PFC initialization 

•Ca> Check validity of submitted LFN * 

■Cb> Check it is not already permanent. 

■Cc> Check it of type local 

-Cd> Check it resides on valid mass storage 


Ce> 

■Cf> 

•Cg> 


If file is active go to S*Ca> 

Check at least one RBT word pair is assigned. 
Ensure that if file is openn it is not a random 


file. 


3. {CAT2> Newcycle determination 

Cal Extract and verify sub-directory if present in FDB- 

Cb> If search that sub-directory of file name 

•Cc> If not OK-i or if not found-, scan all sub-directories 
for file name* 

{d> If permanent file name not found-, go to 4-Ca> 

{e> If in ’newname^ mode make up new name and go to 
3-Cc> 

■Cf> Extract CY parameter from FDB-, if present-, and check 
its validity. 

-Cg> If not present and IP.RNF is not seti terminate. 

If IP.RNF is set-, make up new name-, set ''newname'' 
mode on and go to 3-Cc>. 

Ch> Check PF© entry and ensure cycle number does not 
already exist. 

{i> Check that there is room for extra cycle. If none-, 
go to 3CgI. 

{j> Ensure user has control permission- 

{k> Add new cycle number to PF© with incomplete flag on 
and write PF© entry out. Go to S. 
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M. {CAT15> PFO handling 

■Ca> If '^neu/name'' mode write out the new name. 

•Cb> Select a sub-directory and reserve a slot in it. 

■Cc> Build the PPD entry from FBB data. 

{e> Set entry in use and incomplete flags then write 
PFD entry. 

S. {CAT1D> RBTC handling 

-Ca> Build an APF entry for the user-'s file. Set a 

painter to the APF entry in the user«’s FNT entry. 

Set all permission bits on in the user''s FST entry. 
■Cb> -CCATASI Select and read in the PRU from the Catalog 
CRBTO to hold the new entry. 

■Cl> The FST entry for the Catalog is found and a 

dummy FST entry is built in the message buffer 
using the Catalog e.o.i- pointer from CfIR 
cp.PFnai. 

{ 2 } The e.o.i. PRU is read in- If the new entry 

fits wholly within the PRU-. go to step S-C. If 
not-, the entry must start at the beginning of 
a new PRU Cthis tends to save read accesses by 
preventing small entries from spanning PRU'*s>. 
{cl fCATASI Build the new Catalog entry. 

■Cll Build the header from internal {saved! items 
and from the FDB. 

{2> Append the RBT chain from CM and then add 
extra word pairs {to allow room for future 
file extensions!. 

{d! {CATASDA! Update the e.o.i. pointer in CHR-. then 
write out the new Catalog entry. 

b. {CATA21! Termination 

{a! Reread PF» entry and insert RBTC entry pointer. 

{b! Clear incomplete flag and write entry back out. 

{c> If necessary-* call installation privacy procedure. 
{d> Complete APF entry. 

{e! Terminate. 


lfi.5.2 PFC Local Subroutines 
Name 
ALTER 
Function 

Shifts the permanent file name in item PFN right one characteri 
end-off-, and substitutes a random digit {□-?! as the left¬ 
most character. 

Entry Information 

PFN {2D bytes! contains the permanent file name- 
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Exit Information 
PFN shifted and modified 
Subroutines Called 
None 

Called By 
PFC 

Cells Changed 

Direct -CTEriPi D-TQ to D.T4> 


Name 

CHKPER 

Function 

Compares the passwords in the PFD entry against the password 
list in the FDB for Turnkey and Control passwords! i-e.i 
Control permission Centered when user wishes to add a new 
cycle>. 

Entry Information 

ENTCOUNT contains index to PFD entry in buffer CSECT1>. 

Exit Information 

A = 0i passwords OK—user has control permission 
A = minus -1 one or both passwords missing in 
FDB—user does not have control permission 

Subroutines Called 

CHKPlil 

Called By 

PFC 

Cells Changed 
None 


Name 

COPYPlil 
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Function 


Extracts a password from the FDB and stores it in the correct 
permission slot in the PFO entry tin SECTll. If the pass¬ 
word is not in the FOB-i a zero is stored in permission slot. 

Entry Information 

A-register contains the FOB octal code for the permission 
password sought. 

Exit Information 


None 

Subroutines Called 
EXFOBi nULTS-i COPY 
Called By 
PFC 

Cells Changed 

Direct -CTEnPl-. TEMP^} 
Other {8UF> 


Name 

CORBT 

Function 

Reads the R8T chain of a user^'s file and stores the number 
of CM words in the chain in COUNT. 

Entry Information 

D.FNT CS bytes> contains the first FST word for the user'*s 
file 

Exit Information 

COUNT contains the number of CM words in the user'‘s RBT 
chain. 

Subroutines Called 
None 

Called By 
PFC 
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Cells Changed 

Direct {COUNT-, D.TD through D.TM> 


Name 

6ETLFN 

Function 

Searches the FNT for a given local file name attached to 
user'*s control point. If name is not foundi an error exit 
to the user occurs. 

Entry Information 

PFN+20 contains the seven-character local file name. 

D.CPAD contains control point address. 

Exit Information 

A-registcr-, D.TQ contains CM address of FNT entry. 

D.FNT contains the FNT word for the found file. 

Subroutines Called 

SRCHCP-, R.DFn-, LFNDF-, ERR 

Called By 

PFC 

Cells Changed 

Direct -CD.TO to D.T4-, D.FNT to D.FNT+4> 


Name 

NEtiiAPF 


Function 

An open subroutine which finds an empty slot in the APF 
table, builds an APF entry and stores it in the slot. If 
no slot is available, a message is typed and after some 
delay Cdelay stack}-i the routine loops back and searches 
again for an empty slot* 


Entry Information 

POINT contains PFD pointer ■C3-bytes>. 
CYCLE contains PF cycle number. 
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Exit Information 

APF contains index to new APF entry 
Subroutines Called 

RAPF-, LFLAG-, DAPF-. BnES, DAPF, DELAY 

Called By 

PFC 

Cells Changed 

Direct CAPFt D.TD to D.T4> 

Name 

PUTCY 

Function 

Changes the Cycle parameter in the FDB to a null* If the 
cycle parameter is not foundi an error exit to the user 
occurs- 

Entry Information 
None 

Exit Information 
None 

Subroutines Called 
EXFDBn FDBADR-, ERR 
Called By 
PFC 

Cells Changed 

Direct -CTEPIP-, D.TD to D.T4> 

Name 

SELSUB 
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Function 

An open subroutine which finds the least-full subdirectory 
by scanning the SDT. It then increments the SD entry count 
and tests it<. putting out a warning message 

M/S full or terminating the request if it is full CPF® full>. 
Finally SELSUB locates an empty entry slot in the subdirectory. 

Entry Inforntation 

None 

Exit Information 

SUBD contains number of least-full subdirectory. 

POINT contains a M-byte pointer to an empty SD slot. 

SECTl contains the PRU with the empty SD slot. 

ENTCOUNT contains the byte index of the empty SD slot. 

SD interlock is set* 

Subroutines Called 

RSDT, LSDB-, RSD-, DELAY-. LSDB-, DIV5-. RSDB-, DSDT-. PRNDF-. 

R.DFn-i ERR-, SEARCH-, BMES-, DSD. 

Called By 

PFC 

Cells Changed 

Direct -CSUBD-, TEPIP-, TEMPI-, TEI1PE-. D. TD to D.TM-, POINT to 
POINT-m-, ENTCOUNT! 

Other CNASLOT-, SECTl! 


Name 


SRCHDR 


Function 

Examines the BUFFER to determine 
in the expected location. If it 
the user occurs 


if 
i s 


the 

not-i 


RBT header word is 
an error exit to 


Entry Information 

A = 0 look for an e.o-i- header. 

A = 1 look for a data entry header. 

RBTCIX contains the BUFFER index to the expected header 
position- 
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Exit Infomnat 1011 
None 

Subroutines Called 
ERR 

Called By 
PFC 

Cells Changed 

Direct {D.TS-. D.Tb-, D.T?> 


1 General 


Name: 
Date: 
Version! 


PFA 

11 March nb'i 
1 


Purpose 


PFA is that part of the Permanent File Manager that performs 
the ATTACH function- This enables a user to reference a 
permanent file as though it were local to his control point- 

Function 


The main functions performed by PFA are 

1- Common initialization- 

2- PFA initialization and request validity checking. 

3- Permission code generation. 

M. Gain access to file and create APF entry. 

S- Updates access information in RBTC. 

b. Where needed reads RBT chains to high core and creates 
an FNT entry. 

General Logic Flow 

1. -CPF} Common Initialization 

PFA uses the common initialization routine contained in 
common deck INIT. This handles initial and delay stack 
entries to the function. 

3. -CATTl PFA Initialization 

Ca> Check validity of submitted LFN. 
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{b> If valid sub-directory number was submitted! search 
that one for PFNi if not found and in other cases 
search all sub-directories- 

■Cc> If not cound in any sub-directory t terminate with 
message > 

•Cd> Extract and validate cycle parameter -Cif present! 
from FOB- 

■Ce> If valid cycle parameter-! scan PFD entry for its 

RBTC pointer. If foundi go to SCgli else terminate. 

{f> If no cycle parameter-! scan PFI) entry for the RBTC 
pointer of largest cycle. 

Cg} Ensure selected cycle is complete and has not been 
dumped. 

3. -CATT?} Permission code generation 

Ca> If IP.PP is set-, extract PP parameter from FOB-i 

verify validity and then call Installation Privacy 
Procedure. Go to 3-Cc!» 

-Cb} If IP.PP is not set! use subroutine CHPERH to gener¬ 
ate permission - 

-CcI If no permission bits are set! abort. 

-CATTfiE! Gain access to file 

Cal Scan APF table for this cycle of the file. If not 
found! go to MCc!. 

-Cb> Enter routine UFA -Cwait for access! described 

separately. Then go to SCa! after setting ^chain 
in use'^ mode. 

-Cc! Create an APF entry for this cycle! and set off ''chain 
in use® mode. 

S. -CATTLE! Update access information 

-Ca! Read in first PRU of RBTC entry and verify it. 

-Cb! Store current date as last access date and bump 
^attach® count. 

-Cc! Backspace! then write RBTC entr'y back out- 
[a. Chain Handling 

-Ca! If ®Chain in core® mode! scan FNT for entry with 
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same APF pointer and save chain in core position. 
Go to i3-Cc> 

{b> Copy RBT chain to high core requesting more word 
pairs via ISX when needed and also reading subse^ 
quent PRU''s of RBT entry when needed. 

■Cc> Build FNT entry from available information. Save 
in it the APF pointer-i the generated permission-) 
the RBT chain position! and set security code to 
closed. 

•Cd> Find FNT slot and copy entry to it. 

-Ce> Terminate function 


Ifl.t.B PFA Local Subroutines 


Name 


CHAPF 

Function 


Compares the contents of in APF entry contained in D.TQ 
to D.TM against the parameter values in items POINT and 
CYCLE. If the parameters match the entry contents-) the APF 
and PURGE flags are checked. 

Entry Information 

POINT contains a 4-byte PFD entry pointer. 

CYCLE contains the cycle number of the user^'s file. 

D.TO to 0.T4 contains an APF entry. 

Exit Information 


A = 1-I entry OK. 

A = Di entry doesn''t match parameters 

A =- 1-1 entry 0K-) except APF -Centry interlock! flag is on. 
A =- 2-1 entry OKi except Purge flag is on. 

Subroutines Called 


None 

Called By 
PFA 
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Cells Changed 
None 

Name 

CHPERM 

Function 

Compares the passwords In the PFD entry against those sub¬ 
mitted by the user In the FDB. Permission is granted when 
passwords match or when no password is cataloged. If the user 
is granted no permissionsby this algotithm-i a message is sent 
to the dayflle. CSee password scheme in Section 

Entry Information 

ENTCOUNT contains index to PF1> entry in SECTl. BUF contains 
■the charactdr password name. SECTl contains the user''s 
PFO entry. 

Exit Information 

PERM contains the resultant permission codes-) right-justifled. 

Subroutines Called 

CHICPU-, R.DFn 

Called By 

PFA 

Cells Changed 

Direct {D.Z3 t D.ZMi PERHt TEHPl 


Name 

INAPF 


Function 

Examines the APF table to see if the entry for the user■•s 
file is there. On entryi a request is made to 
examine a specific entry or the entire table. The entry is 
found but the file has been purged-i an error exit to the 

user occurs. 


Entry Information 

APF = 0i scan entire table for users entry. APF Interlock 
is off. 
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A Dt examine entry indexed by value in item APF. 

APF interlock is on. 

Exit Information 

A = Di entry not found. APF interlock is off. 

A =-1t entry found by APF {entry interlock} flag is on... 
APF interlock is off. 

A = greater than zeroi entry found. APF interlock is 
on. 

Subroutines Called 

RAPF-. LFLAGt DAPFi CHAPF-, PFNl>Fn F.DFH, DSB-, ERR 

Called By 

PFA 

Cells Changed 

Direct {APF-, D.TD to D.m} 


Name 


UAIT FOR ACCESS 
Function 


This routine controls initial file accessing by forming 
queuesi the APF entry flags are used for this propose. 

Any file is considered eligible for multi-read access when 
only read access has been granted. When successive eli¬ 
gible requests occuri multi-read access is initiated. 

{See Flow-Chart> 

Entry Information 

APF I/L must be on 

Exit Information 

Two EXITS: 

1. Normal Exit is drop out of bottom of routine 
S. Exception Exit occurs if file disappears from Cfl while 
queueing. This exits .'directly back to ATTACH main 
line. 

Subroutines Called 

BMES-. LFLAG-, DAPF-, DELAY-. RAPF-, INAPF-. ONliJT 
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Called By 

Entered serially by PFA main line 


16.b«3 Password Scheme 


S Passwords altogether. 

H Associated with specific functions. 

1 Is a turn-key to any function- <0ptional> 

Specific functions are: 




CONTROL 

! 




MODIFY 

! 




EXTEND 

! 




READ 

! 


P/lii-'s are specified 

at CATALOG time 


The TURN-KEY 

is 

defined 

as 

TK=name 

The CONTROL 

is 

defined 

as 

CN=name 

The MODIFY 

is 

defined 

as 

MD=name 

The EXTEND 

is 

defined 

as 

EX=name 

The READ 

is 

def1ned 

as 

RD=name 


All definitions are optional 

Name consists of characters ”£alphanumeric> 


Order of definitions is not important- 

User is given permission for any function for which no pass¬ 
word was defined and also for any function for which he cor¬ 
rectly submits the password. 


EXAMPLE : 

1. CATALOG 
e.g. 


a. CATALOG 
e.g. 


TX=Jin iEX= JOHN ■in»=niNEtR»=YES 
PU=JinnJOHN Callows extend and con¬ 
trol only> 

PUsJIMiniNE Callows modify-, control! 
PIJ=JIt1i Y0UR iJOHN Callows extend and 
control! 

Tinvalid P/U ignored. 

Pli)=YESnJOHN Callows nothing! 

EX = JACK-.CN=CONT 

PW=C0NT Callows control■. read-, modify! 
PU=JACK Callows extendi readi modify! 
no p/w Callows read-, modify! 
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3. CATALOG 

e-g- 


M. CATALOG 

e *9. 


TK=nYFILE,EX=PASS 

PiiJ=riYFILE Callows readi control n 

modify> 

PlJ=t1YFILETpASS -Callows readi extendt 
modify-i con troll- 
no p/w -Callows nothing! 

ni>=niNE 

Plil=niNE -Callows read-i extend-i modifyi 
control! 

no p/w -Callows read-> extendn control! 


General 

Name! PFP 

Date! 10 March nLT 

Version! 1 

Purpose 

PFP is that part of the Permanent File Manager'that pei— 
forms the PURGE function. This result s in the deletion 
from the system of previously catalogued files. 

Function 


The main functions performed by PFP are: 

1. Common initialization 

3 . PFP initialization and parameter checking 

3 . PFD handling 

4. RBTC handling 

5. Termination 

General Logic Flow 

1* -CPF! Common Initialization 

PFP uses the common initialization routine contained in 
common deck INIT- This handles initial and delay stack 
entries to the function* 

3. {PUR! PFP Initialization 

a* Check validity of submitted LFN 
b* Save APF pointer from FNT entry 
c* Check that file is permanent 

d. Check user has control permission. 

e. Ensure file has not already been purged 

3. {PURP4> PF» handling 

a- Set purge bit in APF entry 

b. Pick up PFD pointer 

c. Determine sub-directory and get its interlock 
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d. Read PFD entry to PP- 

e. Hake sure cycle exists 

f. Test that cycle is complete 

g. Zero cycle number in PFD entry 

h. Retrieve RBTC pointer 
i . Save PF name 

j. If last cycle-, release PFD entry and decrement sub 
directory count* 

k* Write entry back out and drop sub”directory inter¬ 
lock . 

M. -CPURSOI RBTC entry handling 

a* If cycle was incomplete skip to -CSI* 
b* Get RBTC inter-lock and read in first PRU of RBTC 
entry 

c* Check PFD pointer and cycle number, 
d* Set entry free flag 
e* Backspace and write entry back out 
f. Dump RBTC interlock. 

S* Termination 

a* Load return code of zero 
b* Jump to exit routine 


la.B.l General 

Name - PFE 

Date I 26 February llti'i 

Version! 1 

Purpose 

PfZ is a Permanent File program which implements a user 
request to append new information to an existing permanent 
f i le. 

Function 

The main functions performed by PFE are! 

1. Validity checks the request 

2. Validity checks the C-fl* RBT chain of the user file 

against the cataloged •CRBTC3’ chain* ^ 

3. Updates the Catalog entry to reflect the new information 
added to the user file* 

General Logic Flow 

1. -CPFI Common Initialization 

PFE uses an initialization routine which is common to 
all P. F. programs and is part of the common deck INIT. 
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This routine is entered when the initial request is made 
and when a request is to continue after a visit to the 
delay stack. 

2 . {EXT! PFE Initialization 

a. Save the APF pointer from the user''s FNT entry. 

b. Verify that the useris file is a permanent file. 

c. If the user-'s file is Random-i verify that it has 
been closed. 

d. Save the P. F. permission codes from the user''s 
FST entry. 

e. Verify that the user has extend permission for his 
file. 

f. Verify that the user''s file has not been PURGED. 

g. Save the PFD pointer and the cycle number from the 
APF entry. 

3. -CSDSUBDI Access User File-'s PFD Entry 

a. Using the RBT address from the PFD pointeri search 
the FNT for the subdirectory containing the entry 
for the user''s file. 

b. Save the subdirectory number. 

c. Read and validate the PFD entry. 

d. Save the RBTC pointer from the PFD entry. 

{EXT12> Access the Catalog ^RBTC> Entry 
a* Get the RBTC interlock. 

b. Save the RBT ordinal from the user''s FNT entry. 

c. Save the e.o.f. pointer which is in the FNT entry 
for the RBTC. 

d. Build a dummy FST entry in the message buffer to be 
used in reading the Catalog. 

e. Read and validate the Catalog -CRBTO entry header. 

S. -CEXTlfl} Validate User-'s RBT Chain 

a* Compare the user''s RBT chain in CPI with the RBT 
chain in the Catalog entry. 

b. If all bytes in both chains are equal t go to step 7. 
{The last +1 PRU in byte C.RBTPRU may be different 
in two chainsn but they are set equal prior to the 
compare.> 

c. If the chains are unequali go to step b. {The only 
legal difference is when the end of the cataloged 
chain is reached before the end of the CPI chain.> 

b. {EXTSbl Transfer New RBT Bytes to Cataloged Chain 

When a Catalog entry is createdi extra word pairs are 
included to allow for in-place expansion of the file. 

When the allotted space is exceeded as a result of EXTEND 
requests! a new entry must be created at the RBTC e.o.i. 
Exceptions occur when there is unused space following the 
entry or when the entry is already at the e.o.i. 
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a« Transfer the remainder of the CM RBT chain to the 
Catalog entry t a word-pair at a time- 
b. If the space available for expanding the entry is 
exceeded before the CH chain has been transferredi 
a new Catalog entry must be created at the e>o>i> 

Go to step fi- 

c- When the last CM word-pair is transferred! extra 
word-pairs are added to the end of the entry-i if 
there is room* 

d. If the entry being updated was at the e.o»i* and 
the e«o*i* word was overwritten-! a new e.o.i. word 
is stored and the e.o-i- pointer in CflR -EP.PFMHI 
is updated* 

?. -CEXT33> Complete the Entry Update! End PFE 

a. If the Catalog entry spans PRUs! the current PRU 
is written and the PRU containing the entry header 
is reread* 

b. Update the U-byte {entry length! and rewrite the 
header PRU- 

c* Drop the RBTC interlock, 
d* End of PFE! drop PP- 

a* {EXTMO! Initialize to Create a New Catalog {RBTC! Entry 

To create a new Catalog entry at e.o.i*! the old {source! 
entry! less the RBT chainn is copied to the Catalog 
e*o*i.! then the RBT chain is appended from CM. Two 
buffers are required for the copy along with related 
RBTC pointers and PRU {buffer! indexes. 



Source Entrv 

New {e.o.i.! Entry 

buffer 

SECTl 

SECTS 

RBTC pointer 

RBTC 

EOIRBTC 

PRU index 

RBTCIX 

ENTCOUNT 


a* If the PRU containing the entry header is not cur-- 
rently in the buffer {entry spans PRU'^s!! reposition 
and read it in* Initialize the PRU index {RBTCIX! 
and set the RBTC pointer {RBTC! for the next source 
PRU* 

b* Set the '^entry-free'' flag in the header of the old 
entry. 

c* Initialize the e.o.i* pointers {EOIRBTC! ENTCOUNT! 
and read the e-o.i* PRU. 

d* If the new entry will not fit wholly in the remainder 
of the e.o.i. PRU! do one of two things! {1! If 
this is the last PRU of the Catalog! the EXTEND 
operation cannot be completed—drop the PP^ {2! If 
this is not the last PRUi clear the e.o.i. word in 
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the Catalog and update the e.o.i. pointers so the 
new entry begins the next PRU. 

. -CEXmS} Transfer Header and V-slots to New Entry 

a. If the source buffer is emptied before the transfer 
is completeT read in the next source PRU-« and update 
the source pointers. 

b. If the e.o.i. buffer is filled before the transfer 
is complete! write the current PRU and update the 
e.o.i. pointers. 

c. If the Catalog is exceeded-i terminate as in step 

a-Cd}l. 

ID. -CEXTSD> Transfer the New RBT Chain from Cfl 

a. Hove the user-'s RBT chain from CM to the e.o.i. 
buffer and add the extra word pairs to the end. 

b. If the e.o.i. buffer is filled before the transfer 
is complete! write the current PRU and update the 
e.o.i. pointers. 

c. If the Catalog is exceeded! terminate as in step 
flCdll. 

11. CEXTS4> Terminate the New Entry! End PFE 

a. Update the RBTC e.o.i. pointer in CMR -CP.PFUE}. 

b. Store the e.o.i. word in the buffer and write the 
new e-o.i. PRU. 

c. Drop the RBTC interlock. 

15. {EXTS7> Update the RBTC Pointer in the PFD Entry 

a. Cet the Subdirectory interlock. 

b. Update the RBTC pointer for the correct cycle in the 
user-'s PFD entry. 

c. Drop the Subdirectory interlock. 

d. End of PFE^ drop PP. 


Ifi.S.B PFE Local Subroutines 
Name 


CKBUF 

Function 


Increments RBTCIXi the index for the SECTl buffer! by ID 
bytes -Cone RBT word pair>. If the buffer is filledi it is 
written to the current position minus one PRU in the Catalog. 
Then the next PRU is read into the buffer. 
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Entry Information 
None 

Exit Information 


None 

Subroutines Called 

CKBUFI, BACKSP, URTPRU, READPRU 

Cells Changed 

None 


Name 

CKBUFI 

Function 


Increments RBTCIX ten bytes and tests for buffer-full. A 
system error results if the index value is odd. 

Entry Information 

None 

Exit Information 

A = Di buffer is full. 

A = minus*! buffer not full. 

Subroutines Called 

ERRBTC 

Cells Changed 

Direct -CRBTCIX} 

Other CI1ULTIPRU> 


Name 

CKNXT 

Function 


Compares a word pair Cfrom a Catalog entry} with a constant 
to see if it contains a Catalog header word. 
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Entry Information 

TENPE contains the PP address of the word pair to be tested. 
Exit Information 
A = 0i header word found 

A ^ Ot No header found Cor e.o.i. header found> 

EOIHDRi^Di e.o.i. header found 

Subroutines Called 

MATCH 

Cells Changed 

Direct {TEMPI-, TEMPE> 

Other {E0IHDR> 

Name 

CLEARBT 

Function 

Clears the 10-byte buffer-, RBTURDt to zeros. 

Entry Information 
None 

Exit Information 
None 

Subroutines Called 
None 

Cells Changed 
D.Zl 

Name 

CLSECTS 

Function 

Clears the buffer-, SECTE-, to zeros- 
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Entry Information 
None 

Exit Information 
None 

Subroutines Called 
None 

Cells Changed 
O.Zl 

Name 

ERRBTC 

Function 

Performs the normal error exit except that the RBTC interlock 
is dropped first. 

Entry Information 

None 

Exit Information 
None 

Subroutines Called 
DRBTC-. ERR 
Cells Changed 
None 

Name 

ERRPFD 

Function 

Performs the normal error exit except that the subdirectory 
interlock is dropped first. 
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Entry Information 
None 

Exit Information 
None 

Subroutines Called 

osDt err 

Cells Changed 
None 

Name 

IXSET 

Function 

Multiplies value in fourth byte of pointer RBTC by five and 
stores result Cbyte index> in RBTCIX. 

Entry Information 

None 

Exit Information 
None 

Subroutines Called 
None 

Cells Changed 
RBTCIX 

Name 

HATCH 

Function 

Compares two PP fieldsi byte by byten for equality. 
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Entry InformatiQn 

TEMPI contains address of first field. 

TEMPE contains address of second field 
A-reg. contains number of bytes to compare* 

Exit Information 

A=Ot fields are equal* 

A^On fields are not equal* 

Subroutines Called 

None 

Cells Changed 
D.ZO-i TEMPli TEMPS 


Name 
SAVFST 
Function 

The dummy FST in the message buffer is accessed and the 
current Catalog position saved from it in the first three 
bytes of a four-byte pointer* The fourth pointer byte 
{PRU index} is set to zero* 

Entry Information 

A-REG contains address of pointer* 

Exit Information 

Pointer contains current Catalog position* The index 
byte is zero* 

Subroutines Called 

None 

Cells Changed 

Direct •CD.ZIt D*FNT to D.FNT+MJ 


Name 

SETFST 
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Function 


Gencpates a dummy FST entry in the last two words oF the 
message buffer. It uses a foui—byte pointer to update an 
FST entry already formatted in D.FNT -CIO bytes> and to 
set an RBTC entry index {RBTCIX or ENTCOUNTI. 

Entry Information 

D.FNT IIQ direct cells> contains the basic FST entry 
information. 

A-register contains the address of a four-byte pointer to 
a Catalog entry. 

Exit Information 


Message Buffer ■*■4 contains the dummy FST. RBTCIX contains 
the index to the entry within the Catalog PRU* 

Subroutines Called 


None 

Cells Changed 

Direct -CD-ZOt D.Zli D. TB to D.T4 t RBTCIX or ENTCOUNTI 
Other {REfJTHJB+lI 


Name 


SFSUBD 

Function 

An open subroutine which searches the FNT for an entry with 
a given RBT address value in C.FFRBA. 

Entry Information 

POINT -Ca direct cell> contains the RBT address to be 
searched for. 

Exit Information 


SUBD <a direct cell> contains the subdirectory number. 
D.FNT IS direct cells! contains first FST word for sub¬ 
directory . 

D.TD contains the FST address for subdirectory- 
A = D-i FNT entry found. 

A^Dt FNT entry not found. 

Subroutines Called 


SDSRC 


1 
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Cells Changed 

Direct -CSUBD-. COUTN-, D.TO-. D.FNT to D.FNT+4> 


Name 

UPDEOI 

Function 


Updates the e»o«i» pointer in CUR {P^PFIISJ for the Catalog 
Entry Information 

EOIRBTC contains the current RBT address-, ordinal and PRU 
number for the Catalog. RBTCIX contains the word index with¬ 
in the PRU. 

Exit Information 


None 

Subroutines Called 
DIVS 

Cells Changed 
D.TO to D.m 


16.1.1 Common Routines 


Name 

BACKSP 

Function 


Backspace one PRU 

Entry Information 

FST address in RE(2TAB+1 
Flags = 0100 -CFST Present> 
JTEI1P3 = First RBT ordinal 

Exit Information 


FST Information points to beginning of PRUi these pointers 
are in the address given in the entry information. 
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Subroutines Called 
PPDI0-, R.EflESS 
Called By 

PFCi PFAt PFPn PFE 
Cells Changed 

STACKREI 1 STACKREEn O.TD to 0.T7 

Name 

BIND 

F unction 

Convert a binary number to three display coden decimal 
characters• 

Entry Information 

Binary number in SUB®. 

Exit Information 

Characters in 16 bits of ACCUM. 

Subroutines Called 

DIVS 

Called By 
PFNDF-, ERR 
Variabled Used 

TEMPI-, TEMPS-, REMAIN-, SCRATCH-, SUB® 

Cells Changed 

TEMPI-, TEMPS-, REMAIN-, SCRATCH 

Name 

BMES 

Function 

Write message to 8-display 
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Entry Information 

ADBR. of message in ACCUH- 

Exit Information 

None 

Subroutines Called 
None 

Called By 
PFC-. PFA 
Cells Changed 
D.TQ to D.T4 

Name 

CHKCY 

Function 

To check occurence of cycle numbers in PFI> entry 

Entry Information 

ACC = cycle number 
PFD entry in SECTl 

Exit Information 

ACC -VE DUPLICATE 

ACC=0 No more slots 

ACC +VE OK. ■C=slot position l-5> 

Subroutines Called 

None 

Called By 
PFC-, PFA-, PFE 
Cells Changed 
TEMP-. SCRATCH 
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Name 

CHKPN 

Function 

Routine checks if named P/til is in FOB 
Entry Information 

ACC had P/lii position within PFO entry 

Exit Information 

ACC = □ If OK 
ACC =-l If not OK 

Subroutines Called 

COflPAREi EXFOB 

Called By 

CHKPER-. CHPERn 

Cells Changed 

TEH PI 7 REMAIN 

Name 

COMPARE 

Function 

Compares two nine-character fields 

Entry Information 

TEMPI has address of first field 
BUF is second field 

Exit Information 

ACC = 0 Same 
ACC =-l Differ 

Subroutines Called 

None 

Called By 
CHKPU 
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Cells Changed 
TEMPa 


Name 

COPY 

Function 

PP storage move 

Entry Information 

ACC = No* of Bytes 
TEMPI = Source Address 
TEMPB = Target Address 

Exit Information 

None 

Subroutines Called 
None 

Called By 

PFC-. PFA, PFPi PFE 
Cells Changed 
TEMP-. TEMPI-. TEMPa 


C ommon Routine 


Name 


CYCLIC 

Function 


Scans all of PFD for a PFN. If found-, it will print its 
location to the dayfile except when there is only one sub¬ 
directory or when in ®NE!ilNAME^ mode- 

Entry Information 

On CATALOG PF1> I/L should be on 
On ATTACH PFD I/L is not used 
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Exit Information 

If found-, drops out bottom of code with 
SD I/L ON. 

If not found, branches to with 

SO I/L OFF. 

Subroutines Called 

RSD. DELAY. SEARCH. BIND. PFNDF. 'n.DFPI.. RSDT. DSDT 

Called By 

PFC. PFA 

Variables Used 

SUBD. NASLOT. NUNANE. CYCLE 

Name 

DAPF 

Function 
DROP APF I/L 
Entry Information 
None 

Exit Information 
None 

Subroutines Called 
None 

Called By 
IN APF 

Variables Used 
None 

Cells Changed 
D.TQ through D.m 
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Name 

DBIN 

F unction 

Convert three display coded digits to binary 
Entry Information 

Digits in BUFFER+3 and upper bits of BUFFER+^ 

Exit Information 

Number in ACCUI1 

Subroutines Called 

MULTS 

Called By 

MAIN LINE 

Variables Used 

TEdP 

Calls Changed 

TEnp 


Name 

DELAY 

Function 

Stores essential information from PP memory to C*PT area 
necessary for normal continuation after coming out of 
delay stack* Should only be called from Nain Linei Cunless 
TIME is less than IDI* 

Entry Information 

Normal Entry {DELAY>: Delay time in '’TIME'' entry by RJM. 

Other Entry -CDELAYP}: Delay time in '’TIME'’ entry by LJM - 
Information in C*PT- area is not updated* 

Exit Information 

If '’TIME'’ is greater than LIMIT program is put into delay 
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stack; else delay is made locally in both cases control is 
eventually passed to CALLING routine at next instruction. 

Subroutines Called 

R.PAUSE-. ERRi R.NTR 

Called By 

PFC-, PFA-, PFPi PFE 

Variables Used 

TinEi SUBD, POINT-, CYCLE PERM-, APF-, NUNAME-, RBTC 
Cells Changed 
D.TD through D.m 


PFfI use of C.PT area consists of two words. {Written by 
DELAY-, read back by INIT.> 


W.CPPFl 


Return 






Addr. 

SUBD 

{ P F 

D 

P 0 I N 

TER} 


WTPR Bits 


-1- 





P 




{R BtJ^C 

1 

p 0 7 ^ 

TER} 

CYCLE 


E 

APF 




PFM Disk Ponter Format 
3 Byte {external form! 


New name Fla< 
PP Complete Flag- 


RBTA 

RBTO 

Lntry 

PRU 


^ Bvte {internal form} 


RBTA 

RBTO 

I - 

D «PRU 

1 

- J- 

0 (Entry 

_i__ 






SCOPE 


Name 

I>IVS 

Function 

Divide number in ACCUfl by five 

Entry Information 

Number in ACCUfl 

Exit Information 

Answer in ''SCRATCH® 

Remainder in ^REMAIN® 

Subroutines Called 

None 

Called By 

LSDB-. RSDB-, BIND-. PFC-, PFE 
Variables Used 
SCRATCH-, REMAIN 
Cells Changed 
SCRATCH-. REMAIN 

Name 

DPFD 

Function 
Drop PFD I/L 
Entry Information 
None 

Exit Information 
None 

Subroutines Called 
None 
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Called By 
CATALOG 

Variables Used 
None 

Cells Changed 

O. TO to 0.14 

Name 

DRBTC 

Function 

Drop RBTC I/L 

Entry Information 

None 

Exit Information 
None 

Subroutines Called 
None 

Called By 
CATALOG 

Variables Used 
None 

Cells Changed 

P. TQ to 1>.T4 

Name 

DSD 

Function 
Drop SD I/L 
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Entry Infonnation 
Sub-directory in SUBI> 
Exit Information 
None 

Subroutines Called 
LSDB-. RSDB 
Variables Used 
None 

Cells Changed 
None 

Name 

DSDT 

Function 
Drop SDT I/L 
Entry Information 
None 

Exit Information 
None 

Subroutines Called 
None 

Variables Used 
None 

Cells Changed 
D.TD to D.m 

Name 

EORBTC 
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Function 

Checks the saved RBTC EOF pointers of RBTC file against 
the current position shown in dummy FST in last two words 
of PP message buffer. 

Entry Information 

ENDRBTC contains RBTC EOF pointer and dummy FST for RBTC 
must be in message buffer. 

Exit Information 

ACCUn = Qi EOF reached-, last PRU has been written 

Subroutines Called 

None 

Called By 
PFC-. PFE 
Variables Used 
O.TO to 0.TM-. O.Zl 


Name 

ERR 

Function 

Error Processor. Error codes noted in listing. 

Entry Inforrration 

ACC+VEi System error message written with code in ACC* 
to 0/F. Then aborted. 

ACC-VE s User error-, message should already have been given 
so just aborti if ”SQg. Else return error code* 

Exit Information 

If ACC = D: Error Flag on 

Subroutines Called 

BIND 

Called By 

PFC-. PFA-, PFP-, PFE 
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Variables Used 
SUBD 

Cells Changed 
SUBD 

Name 

EXFDB 

Function 

Estract parameter of given FDB - value from FDB. 

Entry Information 
Value in ACCUH 
Exit Information 
ACC = -1 If not found 

ACC else is position found and parameter is in BUFFER - 
BUFFER+M 

Subroutines Called 
FDBADR 
Called By 
PUTCY-. PFC-. PFA 
Variables Used 
SCRATCH-. TEI1P-, BUFFER 
Cells Changed 
SCRATCH-, TEMP 

Name 

FDBADR 

Function 

Calculates address of FDB+M and tests its validity. 

Entry Information 

None 
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Exit Information 

Normal exit - IS bit address in ACCUH 

Error exit - system code 1 if address of ran^e 

Subroutines Called 

r.tflt err 

Called By 
PFCt PFA-, PFP-, PFE 
Variables Used 
F1>B 

Name 

FINDRBR 

Function 

Locate RBR Table 

Entry Information 

D.Tl contains RBR ordinal 
]).2+]>*Zt contain P.RBR/P-RBT 

Exit Information 

ACCUH = RBR header word address 

Subroutines Called 

None 

Called By 
PFDIO-. PFC 
Variables Used 

D.Tli D.Zl+C.RBRAD-i O.ZB+C.RBRAD 

Cells Changed 

0.T7 
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Name 

GETRBT 

Function 

Read in the next RBT owrd pair from CM into RBTURD -CIO 
bytes>. 

Entry Information 

The first byte of RBTURD must be set prior to the first call 
to GETRBT 

Exit Information 

None 

Subroutines Called 
None 

Called By 
PFC^ PFE 
Variables Used 
PRBT 


Name 

INIT 

Function 


Initialize PF routine for either initial entry or Delay 
Stack Return 

Entry Information 

Input register contains FDB address. If bit m is seti 
implies delay entry. 

Exit Information 


On initial entryn none if OKt else aborts on delay entryn 
restores critical pointers and jumps to continue processing 

Subroutines Called 


R.PAUSE 
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Called By 

PFCi PFA-. PFE-. PFP 

Name 

lOPFD 

Function 

Uses when reading or writing a PRU to or from a subdirectory* 
Entry Information 

Order in accumulator to read or write 

Exit Information 

None 

Subroutines Called 
PFDIO 
C^^lled By 
READPFD, URTPFD 

Name 

JPNCK 

Function 

Check file name in PFN with file name in SECTl 

Entry Information 

PFN-i SECTl■» A-reg = Entry Count 

Exit Information 

A ^ □ No comparison 
A = □ 

Subroutines Called 
None 

Called By 
SRPRU 
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Variables Used 
SECT1-. PFN 
Cells Changed 
D.TQi D.Tl 
Labels JK2D 

Name 

LFLAG 

Function 

Load flag byte of current APF entry 

Entry Information 

APF entry pointer in APF 

Exit Information 

Byte in ACCUfl 

Address in SCRATCH for writing back out. 
Called By 

INAPF-, PFCi PFA-, PFP-. PFE 
Variables Used 
APF-, SCRATCH 
Cells Changed 
SCRATCH-! D.TD to D.T^ 

Name 

LFNDF 

Function 

Writes LFN to job dayfile 

Entry Information 

FDB header in PFN -CS words> 
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Exit Information 
None 

Subroutines Called 

R.DFn 
CalTed By 

PFC, PFA-, PFPi PFE 

Name 

LSDB 

Function 

Load SOT byte of specified sub-directory 

Entry Information 

Sub-directory in SUBO 

Exit Information 

Byte in ACCUH. 

Subroutines Called 
DIVS 

Called By 

RSS-. OSD 

Variables Used 

SUBO-. SCRATCH^ REMAIN 

Cells Changed 

D.TO to D.TM 

Name 

nULTS 

Function 

Multiply by five 
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Entry Information 
Number in ACCUn 
Exit Information 
Result in ACCUtl 
Subroutines Called 
None 

Called By 

C0PYPN-. PFC-, PFAi PFPi PFE 

Variables Used 

REMAIN 

Cells Changed 
REMAIN 

Common Routine 

Name 

NEQIAPF 

Function 

Creates an APF entry 
Entry Information 
POINTn CYCLE 
Exit Information 
APF has entry POSITION 
Subroutines Called 

RAPFi LFLAGt DAPFi R.0FM-. DELAY-, BMES 
Called By 
PFC-. PFA 
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Name 

PFDIO 

Function 

Set up stack request to read or write one PRU 

Entry Information 

ORDER = Order code 
FLAGS = FNT-, FET Flag 
PSEUBF = Address of Buffer 

Exit Information 

STACKRE1-, STACKRES set up 

Subroutines Called 

FIND RBR 

Called By 

URIPFD-, SEARCH-, URTRBT 
Variables Used 

ORDER, FLAGS, PSEUBF, P.RBT, D.FNT+C.FFRBA 
Cells Changed 

STACKREl, STACKRES, TEMP, D.Zl to D.ZS, D-TD to D.m 

Labels 

None 

Name 

PFNDF/PFNDFZ 

Function 

Writes current cycle and PFN to Dayfile* If cycle is 
zero, prints a double asterisk instead* 

Entry Information 

PFN in PFN 
CYCLE in CYCLE 

Entryl: PFNDF—MESSAGE TO JOB AND SYSTEM DAYFILES 

EntryE: PFNDFZ—MESSAGE TO JOB DAYFILE ONLY 
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Exit Information 
None 

Subroutines CalTed 

BINBt r.dfh 
Called By 

PFCi PFAi PFP-» PFE 
Variables Used 
SUBDi TEMPI 
Cells Changed 
TEMPI 

Name 

RAPF 

Function 

Request APF table I/L 
Entry Information 
None 

Exit Information 
None 

Subroutines Called 
RtSMSK-, DELAY 
Called By 
INAPF 

Variables Used 
SCRATCH 
Cells Changed 
SCRATCH 
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Name 

READCAT 

Function 

Used to read one PRL) of RBTC to PP buffer 

Entry Information 

None 

Exit Information 
PRU in SECT! 

Subroutines Called 
SRCHFNTi ERR-, REAOPRU 
Called By 
PFAn PFP 

Name 

READPFJ) 

Function 

Reads PRU from a sub-directory to SECTl 
Entry Information 
Same as tilRTPFD 
Exit Information 

PRU in SECTlT sub-directory interlock off 

Subroutines Called 

I0PFD-, R.REAOP, HULTS 

Called By 

PFC-, PFP-. PFE 

Name 
READPRU 
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Function 
Reads a PRU 
Entry Information 

RE(3TAB {three words for request stack. 

JTEHP3 must have first RBT word pair ordinal 
FLAGS must contain fourth byte for requesti word two 
PSEUBF must have address of first PP word. 

Exit Information 

PRU in BUFFER 

Subroutines Called 

PFDIOi R.REAOP 

Called By 

PFC-. PFAi PFPt PFE 

Variables Used 

ORDER, REflTAB, STACKREl 

Name 

REND 

Function 

Write toggle byte back out 

Entry Information 

Toggle byte in ACCUM. 

Pseudo channel I/L on. 

Exit Information 

I/L now off 

Subroutines Called 

R.DCH 

Called By 

RAPF-, RSDT 
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Variables Used 
None 

Cells Changed 
D.TD to D.m 

Name 

REtanSK 

Function 

Used in requesting of sub-interlocks by all PFM routines. 

Entry Information 

liask in accumulator 

Exit Information 

ACCUn zero if OK 
ACCUM-VE if not obtained 

Subroutines Called 

RSn REND-. R.DCH 

Called By 

PFC-, PFA. PFP-, PFE 

Name 

RPFD 

Function 

Request PFD I/L Cto coordinate duplicate name scanning} 

Exit Information 

ACC =0 If OK 

ACC =-l If unsuccessful 

Subroutine Called 

REianSK 
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Called By 
PFC 

Variables Used 
SCRATCH 
Cells Changed 
SCRATCH 

Name 

RBTC 

Function 

Request RBTC interlock 

Entry Information 

ACC = Q if OK 

ACC =-l if unsuccessful 

Subroutines Called 

REanSK 

Called By 

PFCi PFA, PFP-, PFE 

Name 

RS 

Function 

Read in toggle byte 
Entry Information 
None 

Exit Information 

Toggle byte in ACCUM and SCRATCH pseudo channel- I/L is on- 

Subroutines Called 

R.RCH 
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Called By 
RAPFn RSDT 
Variables Used 
SCRATCH 
Cells Changed 
SCRATCH-, D.TO to D-TM 


Name 

RSD 

Function 

Request I/L on a sub-directory 

Entry Information 

Sub-directory in SUBD 

Exit Information 

ACC =0 If OK. 

ACC =-l If unsuccessful 

Subroutines Called 

RSDT-, LSDB-, RSDB-, DSDT 

Variables Used 

SCRATCH 

Cells Changed 

SCRATCH 

Name 

RSOB 

Function 

Restore sub-directory byte 
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Entry Information 

Byte in ACCUII. Sub-directory in SUBD. 

Exit Information 
None 

Subroutines Called 
DIVS 

Called By 
RSD-, DSD 
Variables Used 

TEHP-, SUBD-, SCRATCHn REHAIN-. TEflPl 
Cells Changed 

TEMP-, SCRATCH-. REHAINn TENPl^ D. TO to D.TM 

Name 

RSDT 

Function 
Request SDT I/L 
Entry Information 
None 

Exit Information 
None 

Subroutines Called 
REanSKi DELAY 
Variables Used 
SCRATCH 
Cells Changed 
SCRATCH 
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Name 

SDSRC 

Function 

Search FNT for subdirectory entry 
Entry Information 
Subdirectory number in SUBD 
Exit Information 
A ^ □ Not found 

A = □ D.FNT - D•FNT+^ Contain FST word 1 
D.RA = FST address 
B-TD = FNT address 

Subroutines Called 

SRCHFNT-, BIND 

Called By 

SEARCH-, lOPFD 

Variables Used 

JSBTn +ln, +E-, SUBB-i B.TQ 

Cells Changed 

D.FNT-B.FNT+M-, D.FA 

Name 

SEARCH 

Function 

Search a given subdirectory for given file name or an empty 
slot 

Entry Information 

NASLOT = D-i Look for SLOT 
= 1 1 Look for NAME 

Exit Information 

P0INT-<-3 - Negative-! Not found 


18-66 


March I9fa9 



SCOPE 


If found 

PFD pointer in POINTt+1t+Et+3 

■CPOINT+3 is no. of CM of DISP within SECTi> 

Entry count in ENTCOUNT 

Subroutines Called 

SDSRC, PFDIOi SRPRUi RS&, DSD 

Called By 

SELSUB, CYCLIC-. PFC-. PFA 
Variables Used 

JSDTi P.FA-, SECTln NASLOT-. NSD 
Cells Changed 

COUNT-, TCOUNT-, REflTAB-, FLAGS-, ORDER-, PSEUBF-, D.TD to D.m-, 
POINT-, -Hi 

Labels 

SEADS-, SEA2D, SEA27, SEABQi SEA3S 


Name 

SRCHCP 

Function 

Search FNT for LFN at this control point. 
Entry Information 

A-register contains addressof LFN in PP 

Exit Information 

A = 0 is a match 

A ^ □ no match 

D.TD is addr. of FNT entry 

Subroutines Called 

SRCHFNT 

Called By 

PFC-. PFA-, PFP-. PFE 
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Name 

SRCHFNT 

Function 

Search FNT for a given file name 
Entry Information 

A-register contains address of name to match 

Exit Information 

A = Q natch 

A ^ D No match 

D*TD is address of FNT entry 

Called By 

SDSRC-. PFC-, PFA-, PFE 
Variables Used 
P.FNT-, LE.FNT 
Cells Changed 

O.FNT to I>.FNT + 4i D.Z1-, O.ZSi D.TO to O-TM 
Labels 

SERCHLOPi GETNEXT 

Name 

SRPRU 

Function 

Search a PRU for a name or a slot 
Entry Information 
A = 0 Search for slot 

A ^ 0 Entry count in ENTCOUNTt POINT+3 
Entry free flag set to 1 

Exit Information 

None 
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Subroutines Called 
JPNCK 
Called By 
SEARCH 

Variables Used 
SECTl 

Cells Changed 

D.Te-, ENTC0UNT-, POINT + 3 

Labels 

SRPli SRPt-1 SRP7 t SRPa 

Name 

UP]>lilC 

Function 

Update word count. Used by PPRES during non-stop disk read 
ing* 

Entry Information 
None 

Exit Information 
None 

Subroutines Called 
None 

Called By 
PPRES CPFC-i PFA> 

Name 

(iIRTPRU 

Function 

lilrites a PRU to the file described as in READPRU 
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Entry Information 
See REABPRU 
Exit Information 
See REAOPRU 
Subroutines Called 
PFDIOi R.URITEP 
Called By 

PFCt PFA-, PFPt PFE 

Name 

yRTPFD 

Function 

lilrite one PRU of a subdi rectory 

Entry Information 

RBTA in POINT 
RBTO in POINT+1 
PRU in POINT+E 

Exit Information 

One PRU is written 

Subroutines Called 

PFOIOi RSDt DSOt R.IiJRITEPt SOSRC 

Called By 

PFC-. PFPt PFE 

Variables Used 

SECT1-, STACKRE1-. E-. POINT 

Cells Changed 


ORDERt REflTAB-. +Ei FLAGSt PSEOBF 
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IS.IQ.O System Interface 
Hods to! 

Stack Processor 

REi3 

MES 

lAJ 

CTS 

CIO 

OPE 

CLO 

lEJ 

I>S1> 

New progs! 

PF CCP 

ACE 

bPC 

Non-stop Read {Stack Processori PP resident! 

RSn ItiOb 

This function is not to be confused with REAONS. It is a 
special communication between the Stack Processor and the 
permanent file manager. It provides an estimated 30 to 1 
increase in the rate at which we can sequentially scan the 
P. F. Directory. 

Request for a Specific Hass Storage Device {REi3-i ^ES} 

RSF1 17tb 
REO 

This routine has been modified to accept and pass on to 
MES {in FST byte C-FLRBEBIi a request for a specific mass 
storage device-i by EST ordinal-i instead of just a device 
type. This change was requested so the Load utility pro¬ 
gram could restore permanent files to the devices from 
which they were dumped whenever possible. {Particularly 
important when restoring a device dump!. 

4ES 

This routine interprets the FST information andi if an EST 
ordinal is found {fourth byte!i attempts to assign the file 
to that device. If it cannoti the assignment is made by 
device type only. 

P. F. Control Cards {lAJi PFCCPt ACE! 

RSHs l?b4-. 17b7T 17^*1 
Call to PFCCP {lAJ! 

On detecting a request for one of four Permanent File func- 
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tionsT lAJ calls PFCCP to the control point and transfers 
control- lAJ will not pass these cards {containing pass¬ 
words} to the dayfile. 

PFCCP 

All permanent file control cards are processed by this pro¬ 
gram. The control card image is in RA+7DB. The program 
processes the control cardi builds an FDB and calls the 
appropriate PF function. The program also processes multi- 
card requests through use of the PP routine•* ACE. 

ACE 

A request can be made through ACE to either read the next 
control card into RA+7 or to backspace the control card 
pointer one card fin case an illegal field is detected in 
a continuation card}. 


FNT/FST llodifications 
RSM 1771 


APF 

Pointer 


C.FNAME 

L 

0 

C 

K 

T 

Y 

P 

E 

C 

PT. 


Equip. 

Code 

i 

C.FFRBA 

C.FLRBRyP 

C.FLRBEB 

RBT 

Byte 

C.FLPRU 

f/M 

FE T addr 

C.FDC 

disp. code 


Sec. 
Code 

last code/status 


\ 

PF Perm- 

issions 

control 

modify 

extend 

read 


APF Pointer 

The presence of a non-zero APF pointer byte for a local 
{type = 3} file identifies a permanent file. 

Permission Bits 

These four bits are the security link between the permanent 
file monitor and the rest of the SCOPE system. 


18-72 


March 1969 


















SCOPE 


PF Permission Checking CMESt CIOt OPEt CLOt 1EJ> 

Rsns ifioa-, ifliQ 

Certain checks of Permanent File permission bits -Cin FNTl- 
had to be made by SCOPE system routines to prevent security 
violations■ 

Read Checks •CCI0> 

User must have '^read'^ permission for any read operation on 
a permanent file. 

Write Checks -CMES} 

If user has both '^modify^ and ^extend® permissionst all write 
operations are legal. 

If user has only '^modify^ permissionST he may not be 
positioned at end-of-informat ion when the write request 
is issued. 

If user issues a REWRITE requesti he must have ''modify^ 
permission• 

Open Checks C0PE> 

For Open-readi user must have ''read'' permission. For 
Open-writei user must have ''modify'' or ''extend'’ permission. 
For Open-alteri no permission checks are made. 

Close Checks -CCLO-, lEJI 

hodifications to CLO apply to processing of random file 
indexes only* 

For a permanent filei writing of the index will be sup¬ 
pressed except when the file is open for ^write'' or ’’alter'’ 
with '’extend'’ permission. This reduces the incidence of 
imbedded indexes which can be produced under the current 
system. 

For non-permanent filesi the index must be written for 
Close as well as a Close-unload request {provided the file is 
□pen for ^write^ or ^alter^I. This is required so Catalog 
and Extend can verify that the latest index has been written 
by checking the security field for ’’close''. 

£nd-of-Job Processing CbPO 
1. Multi-read drop! deer. APF entry 

5. Non-extend drop! release RBT chaim FNT entryi APF 
entry 

3. Purged drop! release RB-'s +{B>. 

4. Extend drop: Catalog vs. CM chaini release extra KBs 
+{5>. 
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Other Threats to PF integrity -CIAJt CTSt MESt DS]>> 

Rsn i7bs-, lan-i isst. 

Attempt to COnnON — Privacy Violation -ClAJi CTS> 

Any attempt to common a permanent filei should it succeedi 
would permit a user to circumvent the privacy system- A 
COnnON request via control card or macro is intercepted-i 
a warning message is sent to the dayfile and the request 
is ignored. 

Attempt to Read-release -CMES} 

Any attempt to do a read-release function on a permanent file 
will produce a warning message. The request is ignored. 

Attempt to EVICT f4ES} 

Any attempt to EVICT a permanent file will produce a warn¬ 
ing message. The request is ignored 

Attempt to OFF the PF Device -CDSDI 

The PF device is flagged by a bit set in the EST entry by 
Deadstart• 

DSD intercepts an attempt to OFF this device and outputs 
a warning message. 
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la.ll AUDIT 


General 


The AUDIT utility routine is to provide the installation 
with basic accounting information- AUDIT produces printed 
reports containing the following information.' 

Permanent File Name 
Owner 

Cycle Number 
Creation Date 
Expiration Date 
Date of last access 
Number of attaches 
Size in PRUs 

AUDIT runs in two modes. One mode produces a printed 
report of all the permanent files in systemi and the 
other produces a printed report of only those permanent 
files which have passed their expiration date. 

The AUDIT utility consists of a PP routine EPF and of CP 
routines AUDITn AUDATE-. PIC0UT-. PARAhn GET-, and AUDPP. 

The CP routines generate an absolute overlay. 

The PP routine EPF is responsible for building the CN table 
for AUDIT containing the first word of each RBR header 
in the system and for searching the PFD sequentially 
setting up one at a time an FNT entry for each cycle of 
every PFD entry. The FNT points to the position of the 
RBTC entry of that cycle within the ORBTC file. EPF 
then returns control to the CM program. 

The group of CM programs reads the RBTCi calculates the 
expiration date-, and if a selective AUDIT has been requested 
tests to see if the file has passed its expiration date. 

If it has noti EPF is called for the next file. If the 
file has expired or if a complete Audit has been requested^ 
the file size is calculated and the resulting information 
output. EPF is then called to get the next file and the 
process continues until the whole PFD has been scanned. 

AUDIT uses two filesn OUTPUT which may be set to any file 
name by specifying the file in the program call at execution 
time {e.g. AUDIT {0UTFILE» and AUDFILE-. a file set up 
and used internally and which is zeroed at AUDIT completion. 

EPF 


A. Initial Call Tbyte 2 of input register is non-zero> 
The number of RBRs in the system calculated TFlilA 
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DST table--FliiA of RBR table/36> and compared with 
the available room in RBRU® CM array* If the Cfl 
array is not large enough to contain the first word 
of every RBR header in the systemn a message is 
written telling the amount of space needed and the 
job aborted. To increase the array size both EPF 
and the CM routines must be reassembled 

Col b Col 11 

CRBRIijDSZ ECU SO EPF.85 

RBRUO BSS SO CPAUD.IS 

5 R8REXP-C1D}-.RBRU1)<S0 AUDIT.10 

If the CH array is large enoughT EPF copies the first 
word of each of the RBR'’s into the CH array and then 
begins the PFD scan. -CSee O 

B. Subsequent Calls -Cbyte 5 of input register is zero! 

A test is made to see if the copy of EPF is from the 
delay stack. If it isi then EPF checks the incomplete 
bit in word W-CPPFl of control point area to see if 
it is off Ibyte 1 = 0>. If the incomplete flag is 
seti EPF checks the error flag to see if AUDIT was 
aborted or dropped. If the error flag is seti EPF 
zeros out the FNT for AUDFILE and drops. This mechanism 
prevents the end of job processor from releasing the 
RBT chain of ORBTC if AUDIT is aborted or dropped. 

If the error flag is not seti a copy of EPF is put 
into the delay stack for 5 seconds and this copy of 
EPF drops out. If EPF is called by the CP routine t 
it goes to get the next cycle in the PFD entry which 
is being audited. -CSee Cl>. 

C. PFD scan 


Starting at subdirectory onei the whole PFD is 
scanned sequentially. The first PFD PRU in the first 
non-empty subdirectory is read. The first PFD entry 
in the PRU is scanned for the first non-zero cycle 
number. Ccontinue at CBl 

Cl If all five cycles have been processed! then the 
next PFD entry is scanned. If all the PFD entries 
in the PP buffer have been scanned! the next two 
PRUs are read. This process continues until the 
whole directory has been scanned. -Csee D> 

C5 The cycle is checked to see if it is either dumped 
-Cbit 11 in cycle set> or if the cycle incomplete 
flag is set -Cbit 10 in cycle set>. If either flag 
is set! EPF sets the exit code to S or 7i respectively! 
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and gives control back to the CP program- If the 
cycle is not dumped or incomplete! then an FNT entry 
with the file name AUDFILE is set up pointing to 
the RBTC entry of the cycle within the ORBTC file- 
The permanent file namen cycle number and RBTC 
displacement within the PRU are written to CM- 
A test is made if this is the initial call to 
EPFt and if it is a copy of EPF it is put into 
the delay stack for two seconds. The exit code 
is set to 1 in either casei and EPF returns 
control to Cd program- 

0. When the entire PFD has been scanned! the exit code 
is set to three! the completion flag in byte D of 
word lil-CPPFl of the control point area set to 0 and 
the FNTi if anyi is zeroed out. EPF then drops out- 


AUDIT 

AUDIT first initializes masks and the page count and then 
calls PARAH to get the current date and the type of AUDIT 
to be executed. If the number returned from PARAtl is two 
or greater! a selective AUDIT is to be executed. Next 
AUDPP is called to issue the initial call to EPF ■CFLAG=0>! 
to read the AUDFILE file and to position the out pointer 
in AUDFILE FET to the first word of the RBT chain of the 
cycle being audited. If the exit code TEXT} from AUDPP 
is three! the whole directory has been scanned and AUDIT 
outputs the message ^AUDIT FINISHED^ and terminates. If 
the exit code is fivei then the cycle was dumped and '^THIS 
CYCLE HAS BEEN DUMPED, NOT AVAILABLE TO SYSTEM^ is output 
in place of the dates, and access information- If the exit 
code is seven, then ^THIS CYCLE IS INCOMPLETE^' is output 
in place of the dates and access information. This message 
means that while cataloguing this cycle PFP1 or the load 
utility was stopped- For this slot in the PFD to be 
used again, a back-up dump of the permanent files must 
be taken, an initial deadstart of the system done, and the 
back-up tape reloaded- 

Exit code equal to 1 means that a cycle has been found and 
the RBT chain is in the CM buffer- The retention period 
of the cycle is examined. If it is and a full AUDIT 

is being executed, then in place of the expiration date 
'^INFINITE^ is output- If a selective AUDIT is in progress, 
FLAG is set to 1 and AUDPP called to get the next cycle- 
In either AUDIT mode if the retention period is less than 
the actual expiration date is calculated and stored 
in RMTH, RDAYS, and RYEAR. 

If the AUDIT mode is selective and the file has not 
expired, the cycle is ignored, the FLAG set to 1 and AUDPP 
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called to get the next cycle. Otherwise the file size 
in PRUs is calculated. The size is calculated by examin¬ 
ing the RBT chains. GET is called to separate the 10 
bytes of the RBT word pair into 10 Cfl words. The start¬ 
ing RB byteT last PRU+1 t RBR ordinal and allocation type 
are gotten from the RBT first word pair and PICKOUT is 
called to get the device type from the RBR header word 
in the RBRUD array pointed to by the RBR ordinal. Each 
RB byte in the word pair is examined and GET called to 
expand the next word pair. This sequence continues until 
the whole RBT chain has been searched. The device type 
and allocation type + 1 are used as indexes into the RBR 
array to get the number of PRUs/RB for calculating the 
file size. When an RB change byte is foundn PICKOUT is 
called to reset the device type and allocation type from 
the RBR header pointed to by the new RBR ordinal. For 
device types 1 and 4 TbtiDB and bfciOBII} if allocation is 
0 or the RB byte is examined for inner or outer zone 
to get the PRUs/RB* After the entire chain has been 
scanned and the file size calculatedn the statistics of 
the cycle are output t FLAG set to 1 and AUDPP called to 
get the next cycle. 

COliPASS Subroutines Used By AUDIT 

1. PA RAH 

Argument list 

IPARAH 

Uses the following blank common variables 
CURDATE 

Uses direct cell 
RA + L4 


Functioni 


To store into I PA RAM the number of parameters passed on 
to AUDIT through the control card. PARAH gets this 
information from D-lfl of RA+b4. PARAM also uses the 
macro JDATE to set CURDATE-CII = number of days from the. 
Julian date and CURDATE-C3} = year. 

3. AUDPP 

Argument list 

FLAG-iEXT 
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Uses the 


Uses the 


following 

blank Common 

Variables 

CREATE 

OUNER 


DATABUF 

PFNAME 


DISPLAC 

RBRUD 


LASTACC 

NUMBAT 

RE TEN 


following 

variables in 

FET named COMMON 

AUDFILE 

BUF 



ERROR MESSAGE - AUDIT ABORT - READ PAST EOR ON ORBTC 


Function ? 

Sets up the call to EPF. If FLAG Is Oi the call to EPF 
Is the initial call. FLAG equal to 1 flags the subsequent 
calls to EPF. AUDPP issues the EPF call and then recalls 
until EPF has completed. AUDPP sets EXT from the exit 
code returned from EPF. If the exit code is 3 or greater 
AUDPP exits. Otherwise it clears any EOR bits in the AUDFILE 
FETt initializes the buffer parameters! and reads the 
RBTC entry from AUDFILE. AUDPP using the displacement 
finds the start of the RBTC entry within the buffer and 
sets the following valuesi CREATE-CIIt CREATECBI = number 
of days from Julian datei and year of cycle creation! RETEN= 
number of days the file is to be retained! LASTACC {l!3} = 
number of days from Julian date and year of last ATTACH 
of this cycle! NUMBAT = number of times this cycle has 
been attached and OUNER = owner''s name left justified 
blank fill. AUDPP then positions the OUT pointer to the 
first word of the RBT chain in the RBTC entry and exits. 

If an end of record is read before the first word of the 
RBT chain of the cycle was found! the error message - AUDIT 
ABORT - READ PAST EOR ON ORBTC - is issued and the pro¬ 
gram aborted. 

3. GET 


No argument list. 

Uses the following blank COMMON variables 
RBTEXP 

Uses the following variables in FET labeled COMMON 
AUDFILE 
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Function: 


GET tests if the next RBT word pair is in the buffer. If 
it is not a read is issued- When the next RBT word pair 
is in the bufferi GET expands the ID bytes into the 10 
word array RBTEXP. The OUT pointer is positioned at the 
next word pair and GET exits. 

4. PICKOUT 

Argument list 

RBRHEADn the first word of the appropriate RBR Header 

Blank Common Used 

ALLOC 

DEVTYP 


Function - 


To get from RBR header bits SM-ST the device type and 
from bits the allocation type. 


5. AUDATE 

Argument list 

IDYCNT-, IflTH-, IDAY 


Function ? 

To calculate the month and day from the Julian date found 
in IDYCNT and store the results in IMTH and IDAY. 
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CPt PP CommunicatiQn Area 


IBfl 

UDS 



Exit Code 1 Normal 
3 Final 

5 Dumped cycle 

7 Incomplete Flag Set 

BLANK COnnON Used 

1 PFNAtlE {4> 

S CYCLE NUMBER 

b RBTC entry displacement in PFU 

7 RETENSION CODE 

8 NUMBER OF ATTACHES 

=i OWNER 

10 device type 

11 allocation type 

IE CREATION DATE -CB} 

15 CURRENT DATE {3> 

16 Last access date -CB} 

El RBT .EXPANSION AREA {10> 

31 RBR HEADER WORD ARRAY -CSQ} 

FET Common 

AUDFILE Fn 

FIRST 

IN 

OUT 

LIMIT 


Ma-rrh IQftQ 
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Constants in DPF and EPF which must be changed if changes 
are made to PFII t PFD or RBTC entry sizes 


Symbol 

Value 

Heaninq 

id.* 

CYCLPOS 

2S 

Position of the cycle 
pointer in the PFD head¬ 
er in PP words + S 

SYPIDEF.37 

LASTENT 

320 

Number of PFD entries 
in a PRU*« length of 
the PFD entry in PP 
words 

SYnDEF.MD 

PFDLTH 

&0 

Length of PFD entry in 

PP words 

SYNDEF.Mb 

PFDLTHCn 

lb 

Length of PFD entry 
in CM words 

SYnDEF.97 

PFBNO 

3 

Number of PFD entries 
per pru-1 

SYnDEF.46 

SETRBTC 

to 

Length of the fixed size 
header of the RBTC in PP 
words 

SYnDEF.S3 

TPOS 

2 

Byte position of T in 
word of RBTC 

SYhDEF.BS 

System Dependent 

Variables 


RBRUD 

Statement 

SO 

Format 

Array contains the first 
word of every RBR header 
in the system 


Col 1 

Col b 

Col 11 


2 

RBRUD 

RBTEXPClDn RBRUDCSQ} 

BSS SO 

AUDIT.10 


The array RBR CbMi contains the number of pry's /RB 

for each allocation type and device type where Row = 
device type and Column = Allocation type +1. There is 
defined in the release program the values for the follow¬ 
ing device types and allocation styles 
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Device 


Allocation 

Style 



Tvoe 

00 

□1 

D3 

_ 

_JJ]_ 


01 

SD/b4 

SD 

ti4 

SG/b4 

a 


GE 

SO 

SO 

- 

SO 

a 


04 

SD/b4 

SO 

b4 

SG/b4 

a 


□ 7 

5 

s 

- 

S 

- 


IIB 

El 


- 

El 

- 


lEB 

El 

• 

- 

El 

- 

_ 


Any modification of these values or addition of device 
types and/or allocation styles will require modification 
to the array and reassembly of AUDIT. 


Program 

Name Symbol Page 


EPF 

AUDI 

OUT 

EPPll 


X 1 

AAl 4 

AAa 3 

AA3 3 


AUDPFD 

SUDSCANE 

AUDIT 

EDOD 

31DU 


AA5 4 

AAb 3 

X 7 

AA7 7 

AAfl ^ 


Routines 

Documented Page 

EPF 1 

INIT 1 

DLYSTIC 1 


ERROR ilESSAGES 

EPF ABORT - NO RBTC ENTRY IN FNT 

The AUDIT routine was called into a system which 
does not have the Permanent File System RBTC file 
defined. 

EPF ABORT - NO ENTRY IN FNT FOR OSDOOO 

The Audit routine was called into a system which 
does not have the permanent file system defined. 
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yAITING FOR FNT SPACE 
CB-Disp.lay only> 

{Job can be dropped by operator} 

EPF ABORT - NO. OF RBRS EXCEEDS RBRUD BY ^ 

The number of RBR entries in the system exceeds the 
Cn array size in Audit by XX words. The CM array 
must be large enough to contain the first RBR header 
word for each RBR entry. 

EPF ABORT - SYSTEM ERROR NO. XX 
PF has found an Audit 
XX = 1 Bad Address for CM write 

AUDIT ABORT - READ PAST EOR ON ORBTC 

Audit has read an end-of-record on ORBTC before 
the R8TC entry was complete. 
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IS.IS DPF - DUtIPF 


General 


The dump utility provides for the user the capability of 
dumping permanent files to tape. The dump program operates 
in two modes. One gives the installation the ability to 
take periodic back-up dumps of all the permanent information 
in the system-i and the second permits the installation to 
down a unit by clearing it of all permanent information. 

Two routines comprise the dump utility. One is a PP routine 
named OPF and the second is a CP routine called OUMPF. The 
function of DPF is to read and manipulate the information 
in the PFD and RBTC. 

DPF reads the PFD sequentially searching for an entry to 
dump. When such an entry is found-* PDF reads in the RBTC 
entry for that cycle. For a UNIT dump DPF scans the chains 
for any reference to the specified unit. If a reference to 
the specified unit is found or if the dump is a back-up 
dump-. DPF chains the RBTs to high core-, sets up an APF 
table entry-, and a FNT entry for the file-, and then drops 
out. 

DLitlPF reads the file that has been set up by DPF and copies 
it to tape. When end of information on the file is reached-. 
DUhPF issues a call to DPF to get the next file. This pro¬ 
cedure is followed until the entire PFD has been searched. 


DPF 


Upon entry-. DPF does initialization and theni unless DPF was 
returned from the delay stack-, verifies that it was called 
to a control point which has a copy of the permanent file 
DUn attached to it. If it was not-, a message is issued 
and the job aborted. 

After verification 1 DPF determines whether the PFD PRU to 
be processed is to be read from the disc or copied into the 
PP buffer from the CH buffer. If bit 3 of the exit/entry 
information in the status word is set-, then a copy of the 
PFD PRU is in core. When the PFD is to be read from CM-. _ 

DPF also checks if a unit dump is in progress. For a unit 
dump a further check is made to see if it is necessary to set 
the entry-free flag in the RBTC and rewrite the PFD and RBTC 
entries. 


Types of Calls 

A. Initial Call -CEntry code = □> 

1. DPF checks to see if any other dump programs are 
running. If not-, go to CAm. 
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If there arei OPF checks the dump mode. If the dump 
is a unit dumpi DPF checks if the PFB and R0TC or the 
dump permanent File is on the specified unit* If 
either oF the cases existi a back-up dump is forced. 

3. I>PF puts the type of dump in the label area of the dump 
tape PET and begins to search For files to dump. fSee 
B.3- 

4. If there are no other copies of DUflPF runningi DPF 
checks the APF table to see if the Permanent File 
Manager {PFMI is active. Upon finding PFM activityi 
DPF puts itself into the delay stack and drops out. 

This process continues until PFM activity has ceased* 

Idhen the PFfI system is quiet-. DPF reads the entire 
PFD and clears the dump bit in each PFD entry header-, 
sets the utility flag-, and then continues at ■CAE>. 

B. Normal File Processing {Entry code = b or 7} 

1. If the dump utility is in the middle of dumping the 
cycles of a PFD entryi go to {Bbl to get the next 
cycle. 

3. The total number of entries in a subdirectory is 

checked against the number of entries already proces¬ 
sed. If the limit of the subdirectory has not been 
reached continue at tB3}. If it has-, the next 
subdirectory is checked. This procedure continues 
until all of the subdirectories have been checked. 

3. The next entry in the PFD sector which was read into 
the PP buffer 1 either from disc or from the CM 
array is processed* If all the PFD entries in that 
PRU have been processed-, the next PRU in the sub¬ 
directory is read. 

4. A check is made that there is no entry in the APF 
table with the same PFD pointer. If there is not-, 
go to {BSI. If there is already an APF entryn the 
type of dump type which has it attached is compared 
with the dump type of this copy of DPF. If both are 
full dumps or both unit dump of the same unit-. 

the PRU is ignored by this copy of dump-, the number 
of en tries processed incremented-, the next PRU read 
and continue at {BI. If this dump type is a unit 
dump and there is a full dump running-, then this 
copy of the dump program is stopped and a message 
issued. In the other cases the PFD PRU pointer and 
number of entries in that sector are saved in a CM 
array to be tried again at a later time. Continue at 
{82>. 

3. The dump flag in the PFD header is checked and if it 
is set processing-, continues at {B3}. 

b. If not-, the cycles are scanned until one which has 
not been dumped is found. 

7. The PFD header information is dumped to the DUMP tape 
buffer. 


18-86 


March 1969 



SCOPE 


g. If tfiE typs of dufnp is s b3ck~Up dump continus st 
If It is a unit dumpT the RBT chain in the 
RBTC entry for the cycle is read and scanned for any 
reference to the specified unit. If none is foundi 
processing continues at -CBbl. If a reference is 
found-, the address of the RBTC entry is saved for 
rewritting the RBTC with the entry free flag set 
after the file has been copied. 

The RBT chain in the RBTC is copied into high core. 

A FNT for the file is created-, and the RBTC header 
is written into the dump tape tape buffer. If a back 
up dump is being performed•. the RBT word pairs of the 
previous file-, if any-, are cleared. In both types of 
dump the RBT chain is then released to the empty 
chain. This accomplishes for a back-up dump the RBT 
chains being released but not the RBs-. and for a 
unit dump both the RBT chains and the RBs being 

IQ. DPF saves crutial variables in lil.CPPFl and lil.CPPFB 
and the status word pair in Ctl. Copies the PFD 
entry and addresses of next sector of PFD to CM 
buffer and drops* 


C. Processing PFD sectors on which multiple copies of the 
dump program conflicted. lEntry code E or 31 
1. If the dump utility is in the middle of dumping the 

cycles of a rescanned PFD entry proceed as in -CBbl - 

■I:B3> except that if there is a matching APF entry-. 

the return is to IC4}. _ 

a. If the PFD sector is in the Ctl buffer-, read it into 

the PP Buffer and go to I CL}. . 

3. Save the pointers in U.CPPFl and tiJ.CPPFE in CH 

4. If all PFD PRU entries have been rechecked-, go to 
{ CT J • 

5. Read in the address of the next PFD PRU to be re¬ 
checked-. save the number of PFD entries in the PRU-. 
and set the subdirectory number and FNT address for 
that subdirectory. Set the exit code to 3DB. 

b. Processing the PFD sector proceeds as in 184} - -iBhJ- 
except that if there is a matching PAF entry-, the 

return is to -CCM}. . 

?. If all PFD entries in the PRU have been examined-. 

go to {C4}. , 

S. Otherwise processing of the PFD entires continues 
on the PFD sector in the PP Buffer at -CCb}. 

3. Restore the U.CPPFl and U.CPPFE from CM array and 
set exit code to bQB-. save the critical values and 

drop. 

D. Termination -CEntry code = 4} 
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1. All processing has been completed or DPF aborted 
or stopped. If a back-up dump had Seen performed 
go to {D3}- 

2. If a unit dump was in process-, the APF pointer in 
the FNT is set to zero if an FNT had been created 
for XXXTENP. This process will cause the end-of- 
job processor to release the RBs of the last file 
copied. 

3 . The number of control points attached to the dump 
program is checked* If other control points are still 
attached-, go to CDMI. If this is the last running 
copy-* then the utility flag is cleared* 

4. For normal termination set Exit code to 12DBi and 
drop the PP. If DPF stopped? set exit code to 13DB 
and drop the PP. 

E- Parity Error -CEntry code = 

Output message and set abnormal exit flag and go to -CDl]-. 

F. 10 Error {Entry code = 6> 

An 10 error occured in Cfl program* f lag an abort and 
go to {Dll- 


DUnPF 

DUfIPF uses two files? the tape file PERPlDliP and the disc 
file XXXTEMP. The XXXTEMP file is set up by DPF and is flag¬ 
ged as a permanent file* For a unit dump the APF flag is 
zeroed at job completion* The tape file is rewound prior to 
writing and unloaded at job termination* 

A, DUnPF requests a standard SCOPE labeled tape at fiQOBPI 
density* If the request is satisfied DUMPF continues? 
otherwise an error message is issued* DUMPF then deter¬ 
mines whether the dump mode is to be a back-up or unit? 
by checking whether a parameter was passed to it by the 
control card* If the dump is a unit dump? the parameter 
is converted to an octal number and placed in bits 12- 
23 of the first status word for CP-PP communication* 

{See status word pair diagram.> 

B* DUMPF then requests 1Q?QDDB word of CM? and moves the file 
header information to the output tape buffer. 

C* DUMPF then calls the PP routine? DPF. When control is 
returned to the CP program? the status is checked. 

Cl. If the exit code equals 13XB close unload the dump 
tape and terminate without message- The PP routine 
was stopped and has already issued the explaining 
message. 
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C2. Exit code equal to lEXB. Close unload the dump 
tape and output '’OUHPF FINISHED'^ and end. 

C3. Exit code equal to EXB. A EXB flags that OPF is to 
rescan the PFD entries in the CH array. The status 
word one is set to OtOt last entry stored +]n EST 
ordinal n entrycontinue at C. 

CM. Exit code equal to bXB. This exit code flags that 
a rescan of all the PFI> entries has been completed. 

If the rescan was initiated because the whole PFO had 
been scanned and the entries in the CH array were 
the only remaining undumped entries ■CFINAL=1} then 
if no more confllets were found {ST0R0RD=D> then 
entry code is set to MOB and continue at C. If 
there are still entries which have not been pro¬ 
cessed -CSTORORD^O)- the DUhPF goes into timed RECALLt 
sets the entry code to 2DB and continues at C3. 

If the rescan was Initiated because the Ctl array 
had been filled {FINAL=0 >t a check is made to verify 
that the array is not still full CMAXORD = STORORDI. 
If the array is fulli DUHPF goes into timed RECALLt 
sets entry code to BOB and continues at C3. If the 
Cli array is not FuIIt set status word one to 
D 1 STORORD- 1 TRUnAX 1 EST ordinaln entry code and go 
to C. 

CS. Exit code equal to MXB. Set the flag for final 
processing {FINAL set to 1> and go to C. This 
code indicates that the whole directory has been 
scanned and that only conflicting PFD entriesi 
if anyi remain to be checked. 

Cb. Exit code equal to anything else means that a file 
has been found to dump. 


D. The permanent file name is saved in case of disc parity 
errorn the dump tape file opened if this is the first 
file to be dumped and the header record output. 

The file is now copied to tapen logical record by logical 
record. When an end-of-information is readi DUHPF writes 
two ends of file and resets buffer pointers. Processing 
continues at B. 
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E. If an 10 error occursn the own code routine ERCHECK is 
executed- Any error other than a parity error causes 
DUriPF to output the error code in a messagei set entry 
code to lOOBn and go to C. 

For a disc parity error the permanent file name is output 
with the parity error message and copying of the file 
continues• 

For a tape parity error the tape is positioned at the end 
of the previous permanent filei and an end of file written- 
The entry code is set to IIDB and processing goes to C. 


DUnP UTILITY ERROR MESSAGES 

1. DPF ABORT - NO ENTRY IN FNT FOR DSDOaO -CDPFI 

The dump routine was called into a system 
which does not have the permanent file 
system defined. 

E. DPF ABORT - NO RBTC ENTRY IN FNT {DPF> 

The dump routine was called into a system 
which does not have the Permanent File 
System RBTC file defined- 

3. DPF ABORT - SYSTEM ERROR NO. XX -CDPF} 

DPF has found a dump or PFPI system error 
Idhen XX = 1, Bad address for CM write 

= S APF pointer does not point 
within PFD chain 
= M Cfl write beyond LIHIT of 
tape buffer 

= S PFD pointer does not point 
to PFD header word 
= b RBTC pointer in PFD does not 
point to correct RBTC entry 

DPF ABORT - UNIT SPECIFIED NON-ALLOCATABLE CDPF> 

The EST ordinal specified in the control 
card of a unit dump points to a non-allo- 
eatable device. Permanent files are only 
on allocatable devices. 

S. DPF ABORT - UNIT SPECIFIED = ECS CDPFI 

The EST ordinal specified in the control 
card of a unit dump points to ECS. Permanent 
Files cannot be assigned to ECS. 

t. DPF NOT called BY DUMP ROUTINE -CDPFI 

The PP program DPF was called to a con¬ 
trol point which did not have the dump 
permanent filei DUHt attached- 
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7. OPF STOPPED BY SYSTEH CDPF} 

The error flag In the control point area 
was found on- 

6. DPF STOPPED - FULL AND UNIT DUMPS RUNNING TOGETHER {DPF> 

A full dump has been found running and con¬ 
flicting with a copy of a unit dump. The 
unit dump is terminated. 

DPF STOPPED - PARITY ERROR ON DUMP TAPE CDPFI 

A parity error was found on the dump tape 
and the tape has been positioned back to 
the end of the .previous file dumped. DPF 
is called to terminate the dump program. 

10. DUMPF ABORT - 10 ERROR RETURN -CDUMPFl 

10 error code other than a parity error 
causes the dump program to abort. 

11. DUMPF ABORT - REr2UEST ERROR - XX 

The request was not completed successfully. 
XX gives the number of the type or error. 

IS. DUMPF FINISHED -tDUMPFJ 

The dump utility has terminated normally. 

PARITY ERROR ON DISC PF NAME {DUMPF> 

A disc parity error was found while 
coping permanent file XX.... The message 
is output and coping continues. 

PARITY ERR lilHILE IN OWN CODE tDUMPFI 

In processing one parity error the dump 
program got another parity error while 
trying to reposition the tape back to 
the previous file. 


13. DUMPF - 
-XX. 


m. DUMPF - 


IS. DUMPING XXX... {DUMPF> 

B-Display message only. 

XXX... is the permanent file name of the 
file currently being dumped. 

lb. RESCANNING SKIPPED PFD SECTORS {DUMPF> 

B-fiisplay message only. 

DUMPF is rescanning the PFD entries which 
had to be bypassed earlier because of some 
conflict. This rescan takes place either 
when the CM array becomes full or the entire 
directory has been scanned leaving only the 
skipped PFD entries to be dumped. 
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17. WAITING FOR APF TABLE SPACE {]>PF> 

The APF table in CO is full and the dump 
routine is waiting for a file to be ''DETACHED^' 
to free some space. 

{Job can be dropped by operator! 

{B-Display only! 

la. WAITING FOR FNT SPACE {DPF! 

{B-Display only! 

{Job can be dropped by operator! 

IR. WAITING PFn IIJLE {»PF! 

{S-Display message only! 

DPF is waiting for all Permanent File 
Manager activity to cease before it 
will begin executing. 


Size/Position Defining Variables 


Constants in 
are made to 

OPF and 
PFM-, PFD 

EPF which must be changed if 
or RBTC entry sizes. 

changes 

Symbol 

Value 

Meaninq 

ID» 

CYCLPO'S 

as 

Position of the cycle 
pointer in the PFO head¬ 
er in PP words +S. 

SYnDEF.37 

LASTENT 

aao 

Number of PFD entries in 
a PFLJm length of the'PFD 
entry in PP words. 

SYMDEF.HQ 

PFDLTH 

&u 

Length of PFD entry in PP 
words. 

SYflDEF.Mb 

PFDLTHCfl 

lb 

Length of PFD entry in CP 
words. 

SVnDEF.M? 

PFDNO 

3 

Number of PFD entries 
per pru-l* 

SYMDEF.MS 

SETRBTC 

bD 

Length of the fixed size 
header of the RBTC in PP 
words * 

SYMDEF.SB 

TPOS 

a 

Byte position of T in word 
of RBTC. 

SYMDEF.SS 


In DUnPF the variable determining the number of PFB PRUs 
to be saved before causing a rescan of the list is TRUMAX 

TRUnAX ID SCP31bK.3BD 
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TAPE FORHAT 
Multi-Reel File 



TAPE LABEL 


FLAGS FILES 
EOI 
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Information in the 17 Charachters of the Label 


dIuImIpIfI&ItIaIpIe 

Cfull 

tUNIT 


Permanent File Header - Break Pown of the fl blonds 


Field Name Lenqth Position Description 


1 

LABEL IDENTIFIER 

a 

LABEL NUMBER 

3 

FILE LABEL NAME 

9 

MULTI-FILE 

IDENTIFICATION 

5 

REEL NUMBER 

t. 

MULTI-FILE 
{POSITION NUMBER! 

7 

RESERVED FOR 

TAPE COMPATABILITY 

& 

EDITION NUMBER 


RESERVED FOR 

TAPE COMPATABILITY 

10 

CREATION DATE 

11 

RESERVED FOR 

TAPE COMPATABILITY 

la 

EXPIRATION DATE 

13 

SECURITY 

14 

BLOCKCOUNT 

IS 

RESERVED FOR 

TAPE COMPATABILITY 


3 

1-3 

HDR 

1 

4 

1 

17 

s-ai 

DUMPiTAPEAOF^P.F 

h 

aa-a7 


4 

afl -31 

1 

4 

3a-3S 

1 

4 

3b-3'i 

A AAA 

a 

40-41 

1 

1 

4a 

A 

s 

43-4? 

BIRTH 

1 

4a 

A 

5 

4=1-53 

NEVER 

1 

S4 

X 


SS-bO 

□ooooo 

ao 

bi-ao 

SPACES 


INPUT Register 


17 .[ 

D P 

— "1 - 

F 1 ao 

--! 

0000 

J Address of I 
1 status word 1 


T 

Auto 

Recall 
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HEADER INFORMATION FOR EACH FILE DUMPED 



- r 

u 

- r 

B 

R 

^ i 

mm 

- r 

u 

— 

M 

-r 

p 

— 

A 

— 

T 


A 

P 

E 

A 


F 

A 

p 

> 

F 



1 

A 

— 

£^ 

- r 

A 

r 

A 

1 

A 

A 

1 

0 

-| 

0 

0 

1 

0 

0 

0 

1 

A 

A 

A 

A 

0 

1 


B 

1 

R 

T 

H 

A 


E 

V 

E 

R 

X 

0 

0 

0 

0 

0 

D 



A 

A 

A 

A 

A 

A 

A 

A 

A 





A 

A 

A 

A 

A 

A 

A 


1 ^ 

7 7 

7 7 

7 7 

P 

F 

D 

A 

FLAGS 

PERMANENT FILE NAME 

UP TO 

40 CHARACTERS 


11 

CYCLE ' 

NLFMBER 



CYCLE 

NUMBER 

CYCLE 

NUMBER 

1 

RBTC 

POINTER 

RBTC 

POINTER 1 

RBTC 

POINTER 

RBTC 

POINTER 

RBTC 

POINTER 


PAS£ 

IWORDS ^ 

/ TURN-KEY 

CONTROL 

MODIFY 

EXTEND 

V READ 





UNUSED BUT 

RESERVED 




7 

7 7 7 

7 7 

7 7 

R 

B 

T 


FLAGS 

PERMANENT FILE NAME 

UP TO 

40 CHARACTERS 




POINTER TO 

PFD ENTRY 


EST ORDINAL 

CYCLE 

NUMBER 

CREATION DATE 

RETENTION 

PERIOD 


DATE OF LAST ACCESS 


RESERVED 


N LIMBER OF 
ATTACHES 

RESERVED 

RESERVED 

w 

Y 


OWNER ID 


0 

POINTER TO S 

POINTER TO T 

SUB-DIRECTORY 

NUMBER 



VARIABLE LENGTH SLOT RESERVED BY CDC 





> 




> 


J 


S 


8 WORD HEADER-FORMAT 
THE SAME AS LABEL HEADER 
ON TAPE 


PFD ENTRY OF DUMPED FILE 


RBTC ENTRY UP TO AND 
INCLUDING THE 1ST WORD 
OF THE RBT CHAIN 


1ST WORD OF RBT CHAIN 


J 
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Status iJords 


S3 

4? 

UJ 

Ln 

ru 

UJ 


11 Q 

READORD 

! STORORD 

NAXFORD 

UNIT 

EXIT CODE 

A 

B 

C 

D 

E 

F 

G 

cn BUF 

H 

cn PFDBUF 


I 

LABADD 

S3 

WRITE 

FOR RBTCn WD 

1 OF 

1? 



A = ordinal of the next entry in the CM array to be re-checked 
B = ordinal of thenext space in the Cfl array to fill 
C = maximum number of skipped entries to be saved prior to 
reviewing the list 

D = EST ordinal if UNIT DUMP in bits 11-1 bit 0=0 
□ if FULL DUnP in bits 11-1 bit □=! 

E = Exit information from the PP 
bits 11-3 = D Initial call 
= 1 Not used 

= E Use CM Buffer for PFD address 
= 3 Get next cycle from Rechecked PFD entry 
= 4 Final call 
= 5 Not used 

= b Get next PFD entry from directory 
= 7 Get next cycle of PFD entry 
= fi 10 errori cleanupT and abort 
= T Parity error 
=1D End Run 

=11 Abnormal stop but not abort 

bits S-D 

= 1 Sequential filei and restart CP 

F = difference between the INPUT file FET address and the 
OUTPUT file FET address 
G = address of Buffer for skipped PFD entries 
H = address of LS word buffer which holds the pointer to the 
next sector in the PFD and the PFD sector currently being 
processed• 

I = address of the OUTPUT file FET 
Use of CP Uords 
Cl> lit.CPPFl 
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tS = The byte position of the last cycle pointer which was 
checked for dumping 

A = Ot nothing dumped from this PFD entry 

= non-zeroi cycles were dumped and PFD entry must be re¬ 
written 

{S> liJ.CPPFE 


FNTSDX 

SUBD 

» 

SUBENTNO 

FNTORD 

APFORD 


FNTSDX 

SUBENTNO 

FNTORD 

APFORD 


Address of OSDX FNT 
Entry no. in SUBD for next entry 
FNT address for XXXTEHP file 
XXXTEMP APF ordinal 


Use of APF entry 


51 


E3 

11 bS □ 

P'^D Pointer 

_1_^_ 

Unit 

Flags 

Count 


bits il-1 

Unit = EST ordinal 
0 


bit 0 
0 
1 


Type 

selective dump 
Full Dump 


Subprograms Not Appearing in Flow Chart 


CKCPFNT 

DROPABNL 

DUnPHDR 

FINDPFD 

PFDFETC 


PUTLAB 

SETPOS 

RSDT 

DSDT 


Searches for a file local to the control 
point. 

Called to process an abnormal termination 
but not an abort. 

Writes the RBTC header information to the 
tape file buffer. 

Reads the PFD entryT locates the entry 
within the PRU and checks PFD header word. 
Reads PFD entry pointed to by the APF pointer 
and checks name for the dump permanent file 
DUn. Exit with non-zero flags no match- If 
DUtI is foundi the dump flag is set in the APF 
entry and then exits with zero in A register. 
Writes the dump type to the label area of 
the tape FET in Ch. 

Reads the RBTC and dumps header information 
until the first word of the RBT chain is in 
the buffer. 

Interlock the SDT table. 

Drop SDT table interlock. 
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18.13 LOADPF/LPF 


General Description 

This utility provides the user with the capability to reload permanent files 
that have been previously dumped to tape. This routine will reside on the 
system library and operate at a control point. It will restore all permanent 
files from a Dump Tape assigned to its control point and regenrate the Per¬ 
manent File Directory and the RBT Catalogue information. There are two modes 
of operation: the first being the reloading of a back-up tape, i.e. all the 
permanent files; and the second, the reloading of files previously dumped 
from a specific unit. These tasks will be performed by a CP program called 
LOADPF and a PP program called LPF- LOADPF will handle the input/output re¬ 
quests, whereas LPF will set up the directory and catalogue information. 


Function 


Initially, LOADPF requests the dump tape, verifies the tape label, and sets 
the Partial/Full indicator. Then LOADPF reads the file header. LPF is then 
requested, 

LPF's initialization consists of the following checks: Searches the APF 
table to see whether a copy of LOADPF is all ready in operation and incre¬ 
ments the count of load programs operating by one. If there is no load pro¬ 
gram running, a check is made to verify that there are no files active in 
the APF table. If there are files active, then LP enters the delay stack. 
When it returns from the delay stack, it checks the APF table again. This 
continues until the system is "quiet". Then an entry for the load program 
is created in the APF table. A dummy FNT entry (DUMFNT) is created for use 
in copying files. 

After Initiali-zation, LPF will take the following path for the first and 
subsequent files on the dump tape attached to this control point. Whenever 
LPF is entered, a check is made for "Operator Drop" action, and then aborts 
if so requested. Otherwise, LPF continues its functions. 

For a partial dump reload, the file must meet the following criteria to be 
re loaded: 

1. File name in the Permanent File Directory. 

2. Cycle with dump indicator set in PFD. 

3. Passwords must be the same. 

For a full dump reload, the file must meet the following criteria; 

1. File name not in the Permanent File Directory, ^ 

2. File name in Permanent File Directory, and 

a. Cycle not in PFD 

b. Passwords must be the same 

c. There must be room for another cycle. 
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If any of the above conditions are not met, the file is not reloa^fd. 

If the file is new to the system, an attempt is made to catalogue It in its 
original subdirectory provided that subdirectory exists and is not full. 
Otherwise, it will be catalogued in the least full subdirectory. The file 
(pointers to the Permanent File directory PRU) will then be entered into 
the APF table to ensure that no other load program will affect this file 
until the current processing is finished. 

An attempt will be made to reload a file to its original device. If that 
is not possible, the file will be loaded to another device with the same 
allocation type. If there is no device with the original allocation type, 
the file will not be reloaded. The allocation and EST ordinal are then 
put in the dummy FNT. The exit code is set to zero. The PP is then dropped. 

LOADPF checks the exit code to determine what action to take. If the in¬ 
dication (3) is to skip the file, the tape is read until the next file 
header (or end-of-information) is encountered. The copying of a file will 
continue until a double end of file followed by a new file header (or 
end-of-informatlon) is encountered. After the file is copied, it will be 
closed but not unloaded. LPF will then be called to create the RBT cata¬ 
logue . 

For a partial dump, LPF will attempt to use the same RBTC space unless this 
cycle's catalogue is too large for the original entry. In that case, the 
RBTC will be appended to the end of the RBT catalogue and location in GMR 
pointing to the next available catalogue space will be updated. On a full 
reload, the current RBTC will always be appended to the end of the catalgue 
and the pointers in CMR will be updated. After the RBTC is written out, 
the RBT word pair chain for that file will be released. 

For subsequent files, the procedure will be the same, except that the initial¬ 
ization in LOADPF and LPF will not be necessary. 

A^'ter the last file is copied and closed, LOADPF will call LPF to decrease 
the number of load programs operating at this time and clear the FNT. 

LOADPF will rewind and unload the tape plus issue a completion message 
"LOADPF FINISHED". 


Subroutines 


LPF 

ADDRAN Routine to calculate a CM address. D.RA is added and the 

18-bit result is left in the accumulator. 

ALLOCRB Routine to check the allocation type for a specified device. 
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APFENT 

BACKS? 

BIND 

CLEANUP 


CORBT 

CYCLIC 

DAPF 

DELAY 

DIV5 

DRBTC 

DSD 

DSDT 

ESTCHK 

FDCYC 

FINDRBR 

FNTDM 

INAPF 

JADDR 

JPNCK 

JPSWD 

JRSTR 

JSTR 

JTPHR 

LFLAG 


Routine to clear the APF file entry. 

Routine to backspace one PRO of the RBT catalogue. 

Routine to convert a binary number to three display characters- 

Routine to decrement the number of load programs operating 
at this time- If there are no more load programs operating * 
a completion message is issued and the utility bit in the 
permanent file toggle byte is cleared- 

Routine to count the number of words needed for the RFT 
chain for the current file- 

Routine to search the whole permanent file directory for 
a given file- 

Routine to drop the APF interlock bit- 

Routine that puts LPF in the delay stack for one second- 

Routine that performs division by 5- 

Routine to drop the RBTC interlock bit- 

Routine to drop the subdirectory interlock bit- 

Routine to drop the interlock bit for thw hole permanent 
file directory- 

Routine to find an ESI ordinal with a given allocation 
type- A check is made to insure that the device is on. 

Routine to find a particular cycle position in the PFD- 

Routine to find start of an RBR table, given the RBR ordinal- 

Routine to set up a dummy FNT- 

Routine to scan APF table for matching PFD pointer- 

Routine to get address from input register and add D-RA- 

Routine to compare the file name of the current file to a 
file name already in the PFD- 

Routine to compare the passwords of the current file to the 
passwords of a file by the same name in the PFD- 

Routine that restores communication values to the PP from 
the CP- 

Routine that stores communication values from the PP to the 
CP- 

Routine that copies the file header information from the CP 
to the PP- 

Routine that loads the flag byte of the current APF entry 
into the accumulator- 
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LSDB 

NEWAPF 

PAUSE 

PFDIO 

PFNDF 

PRAPF 

READPFD 

READRBT 

REND 

RRBTC 

RS 

RSD 

RSDT 

RSDB 

RWCOM 

SDSRC 

SEARCH 

SECNT 

SELSUB 

SRCHFNT 

SRPRV 

TABSV 

WRTPFD 

WRTRBT 

LQADPF 

BUFOR 

CLOFILE 

ERCHECK 


Routine that loads the subdirectory byte into the 
accumulator. 

Routine that creates an APF entry for the file PFD pointer. 

Routine to create a pause to wait for storage allocation. 

Routine so set up a stack request for either a read or a 

write operation. 

Routine to output the file name and cycle number. 

Routine that uses PAUSE when there is no APF space available. 
Routine to read one PRU of the PFD. 

Routine to read one PRU of the RBTC. 

Routine to write the permanent file toggle byte to GM- 

Routine to set the RBTC interlock bit- 

Routine to request the permanent file toggle byte. 

Routine to set the interlock bit for a particular subdirectory. 

Routine to set the interlock bit for the whole subdirectory. 

Routine to write the subdirectory byte to CM* 

Routine to set up PP tables for either reading from CM or 

writing to CM. 

Routine to search FNT for a given subdirectory. 

Routine to search a given subdirectory for a file* 

Routine to update the subdirectory count and check for 4/5 
full or completely full. 

Routine to select the least full subdirectory. 

Routine to search the FNT for a given file. 

Routine to search one PRU of the PFD for either a given 

file name or an empty slot- 

Routine to save tables - PFN and JFILE. 

Routine to write one PRU of the PFD. 

Routine to write one PRU of the RBTC. 


Routine used to insure efficient Read or Write- 

Routine to close a file and call LPF to create the RBTC. 

Oi^code routine used when copying data from tape to unit. 

A parity error will cause an error message and then copying 
will continue- A system error will cause the load program 
to abort. 
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ERROR Routine to format the error message and check for type 

of error. 

GEXCY Routine to get the cycle number from the file header and 

convert it to display code. 

HEDERR Owncode routine used when reading the file header from tape 

into the CP. The file will be skipped if a parity error 
occurs but the load program will be aborted if a system 
error occurs. 

PAREX Routine that calls the PP program LPF. 

rEADREC Routine that sets up call to BUFOR to copy one record. 

SYSTEM Routine used to place requests to Monitor for PP action in 

cell RA+1. 


Communication 

Input register - communication from LOADPF to LPF 



Recall 


Key (bits 24-35) 0 = New file but not first time 

1 = Close file - create RBT catalogue 

2 = Final pass 

3 = First pass - partial dump 

4 = First pass - full dump 

CM address of JTAB (bits 0-17) communication table with the following foinnat: 


Word 1 
Word 2 

Word I bits 36-53 CM Location of file header 

bits 12-29 CM Location of FET used in copying information 

Word 2 bits 36-53 CM Location of current permanent file name 

bits 12-29 CM Location of communication table 

bits 0-11 Key set by LPF and used by LOADPF 

0 - indicates that the file should be copied 
3 - error condition; do not copy file 
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Control point saved words! 
W.CPPFl 


PFD Pointer: 


35 


23 


11 




Point 

Polnt+l 

Point jPoint 
+3 ! +2 


Point - RBT address 

Point+1 - RBT ordinal 

Point+2 - PRU number 

Point+3 - Displacement in PRU 


W.CPPF2 


59 


47 


35 


23 


11 


Delayx+1 

SUBD 

JDUMP 

APF 

FNTOHD 


DELAYX+l 

SUED 

JDUMP 

APF 

FNTORD 


- return address from delay stack 

- subdirectory number 

- 0 = partial dump, 1 = full dump 

- APF ordinal 

- FNT ordinal 


PPRES - Routines that are used by LPF 

R.DCH 

R.DFM 

R.EREQS 

R.IDLE 

R.MTR 

R. PAUSE 

R.RCH 

R.READP 

R.TFL 

R.WRITE? 


System Macros Used 

PPENTRY 

LDK 

UJK 


Control Point words used 

W.CPPFl 

W.CPPF2 


CMR words used 

P.EST 

P.FNT 

P.PFWl 

P.PFM2 

P.RBR 

P.RBT 

P.RQS 
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CMR word changed 
P.PFM2 


SCPTEXT 

symbols 

used 



CH.FNT 


C.RBRUNT 

C.STPERU 

L.CPNUM 

CH.PFM 


C.RBTCl 

C.STPRBA 

M,ABORT 

C.APF 


C.RBTC2 

C.STPRBN 

M*DPP 

C.APFL 


C.RBTC3 

D.CPAD 

M.RPJ 

C-CPEF 


C.RBTWPL 

D.FA 

O.BPRU 

C.CFFL 


C.SDL 

D.FL 

O.RCHN 

C.CPNUM 


C.SDT 

D.FNT 

O.RDP 

C.CPRA 


C.SDTL 

D.PPIR 

O.WRP 

C.FFRBA 


C.STCPU 

D.PPIRB 


C.PFMCH 


C.STFB 

D.PPMESl 


G.PPFWA 


C.STO 

D.PPONE 


C.RBRA 


C.STPFW 

D.RA 


C.RBRAD 


C.STPLW 

LE.FNT 


LOADPF - 

Uses of 

CPC: 




CLOSE AND CLOSE UNLOAD 

MEMORY 

MESSAGE 

OPEN 

RECALL 

READ 

READSKP 

WRITE 

WRITEF 

WRITER 


MESSAGES 

CYCLE XX, NNN...N 

XX Is the cycle number, NNN...N is the permanent file name* 

DIRECTORY AIMOST FULL 

Permanent file directory is over 807<, full. 

FD-ALL CYCLES FULL 

Full Reload, no spare cycles are available for this file - file is 
skipped. 

FD-CYCLE ALREADY IN PFD 

Full Reload, cycle already exists in the system - file is skipped. 

FD-FILE ASSIGNED TO ANOTHER DEVICE 

Full Reload, allocation type is not available on original device. 
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FILE IN SUBDIRECTORY XXX 

XXX refers to the subdirectory number. 

INCORRECT DUMP TAPE MOUNTED 
Mount correct dump tape. 

IS DUMP TAPE - FULL (UNIT) 

Type GO with control point preceding. 

LOADPF ABORTED - SYSTEM ERROR XX 
XX refers to error code 

LOADPF FINISHED 

LPF ABORT - BAD ADDRESS 

Address out of range (outside field length). 

LPF ABORT - NO ENTRY IN FNT FOR OXXXX 

XXXX refers to RBTC or subdirectory. 

LPF ABORT - NO RBTC SPACE 

The RBT catalogue is full. 

LPF FINDS NO FNT SPACE 
Waits for space. 

LPF - FINISHED LOADING 

This is the last copy of reload running. 

LPF STOPPED BY SYSTEM 
Operator drop. 

NO EOR, EOF, OR EOI 
Load aborted. 

NO EQUIiWENT AVAILABLE WITH ALLOCATION TYPE FOR 
File is skipped. 

PARITY IN HEADER, WILL NOT RELOAD FILE 


PARITY OCCURRED IN RELOADING 
PD-CANNOT FIND FILE 

Partial reload - file name not in system, file is skipped. 

PD-CYCLE NOT DUMPED 

Partial reload - file skipped. 
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PD-CYCLE NOT IN PFD 

Partial reload - file skipped. 

PD-FILES ASSIGNED TO ANOTHER DEVICE 

Partial reload - allocation type not available on original device. 

PF NAMES COMPARE BUT NOT PASSWORDS 
File is skipped. 

PFD FULL - CANNOT RELOAD FILES STARTING WITH 
CYCLE XX,NNN...N 
AND FOLLOWING 

PFN FOUND IN SD XXX 

XXX refers to subdirectory number. 

REQUEST PERMDMPjMTHY, ,E. 

Assign dump tape. 

UNABLE TO PROCESS REQUEST - ERROR CODE XX 
WAITING FOR APF TABLE SPACE 
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Introduction to BNL ECS 


Software modifications to SCOPE to allow ECS usage as 
an allocatable device were made by Kurt Fuchel» Sid Heller 
and Graham Campbell of Brookhaven National Laboratory 
■CBNL}- Work performed at Brookhaven National Laboratory 
is supported by the United States Atomic Energy Commis¬ 
sion • 

A review of the design considerations of the Interim 
system is contained in BNL Internal Document AHD 5D3-R^ 

fOct- Tho IIrp nf F~vt-.gndgH f nnp S:hnnagp i r> a Niill-.i- 

ppoqramminq Operating System- 

For related information see: 

Sales Technical Hemorandum - ECS Software in SCOPE 3 
SCOPE 3 Reference Manual - LDlfl'mOQ 
SCOPE 3 Installation Handbook - LOEBSLOO 
SCOPE Operator''s Guide - tOlT'^LDD 

Extended Core Storage Systems Reference Manual - LDEE51GQ 

ECS is accessed in two ways- Either by job card declara¬ 
tion of an ECS field length; or via stack processor over¬ 
lay 3SX for I/O requests of ECS files- 

In the first caset Direct User Accessr the user specifies 
some field length on his job cardr expressed in lODDB 
units and prefixed by the letters EC- This field lengtht 
if available, will be assigned to his control point and he 
may then use RE and WE instructions to access ECS directly. 

Secondly. ECS may be accessed by normal allocatable device 
I/O. wherein the system handles all of the necessary book¬ 
keeping functions and actual ECS I/O- This is an auto¬ 
matic type access, since the system will attempt to place 
all allocatable device scratch files in ECS without the 
user specifying so explicitly. This is called the Allo¬ 
catable Device Capability. 

The Direct User Access capability may be activated without 
using the BNL ECS mods. To get this type of ECS usage 
IP-MECS must be set to some non-zero value and selected 
routines re—assembled in the system- The system will not 
support multi—computer configurations for this type of ECS 
usage- 

Activating the BNL ECS mods however, will give a user 
multi-computer support of ECS with both Direct User Access 
and Allocatable Device Capability. Either or both options 
may be selected on any or all computers in either single 
computer or multi-computer configuration- 
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n.H.D Direct User Access Capability 

Direct User Access capability can be provided very simply 
and at very little overhead cost to the operating system; 
the only appreciable time spent by the software is in moving 
ECS and this is actually less than the time in moving 
central memory. Since this type of ECS is essentially an 
extension of central memoryn it can be handled in much the 
same way. Monitor has a storage move and allocation section 
for ECS. It is actually the storage move code for CM with 
several flags set to indicate that MTR is really process¬ 
ing ECS. CMR has a storage move loop that reads and writes 
ECS and is activated in the same manner as the CM storage 
move program. 

Job card declaration of the ECS field length is allowed by 
modifying 2TJ to recognize and convert ECS field length 
specifications. ECS is assigned to a control point at Job 
initialization Just as CM is assigned by IRA. 

The loader delivers the ECS field length to user programs 
in XQ Just as CM field length is delivered in AO. MEM will 
allow for the ECS field length to be increased or decreased 
during job execution. DIS also has the ENFE commandT similar 
to ENFL. ECSt like CMi is returned to the system at Job 
termination by lEJ. 

ECS is divided between the control points on a first-come 
first-served basis with control point one ECS storage 
assigned at the low end of ECSt near absolute zero. Since 
Central Memory can be assigned to control point zeroi and 
this is exactly the length of CMRn so likewise ECS can be 
assigned to control point zero. This storage below con¬ 
trol point one cannot be used by the system for Direct 
User Access; it cani however be used by other software 
for this computer or by some other computer-> as allocatable 
device usage for instance* To assign ECS to control point 
zero requires relatively minor changes to dead-start. 


n.B.Q Allocatable Device Usage Capability 

Allocatable Device capability is provided by the stack pro¬ 
cessor overlay 3SX and related routines. This type of usage 
treats ECS as a zero-latency disk and constructs files in 
ECS with the same logic as on a normal disk or other 
allocatable device. That isi Record Block - PRU construc¬ 
tion with RBT chains and all the other information normally 
created for file maintenance is the same for ECS as for 
other allocatable devices* 

Uhen files are first referenced by MESt they are examined 
to see If they qualify for residency on ECS. A list of 
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file names is kept internal to MES containing files which 
should not be assigned to ECS. The disposition code of the 
file is checked also and non-zero disposition code files 
are not assigned to ECS. 

Additionally 1 request cards can be used to assign specific 
files to ECS. Eventually-, if a file is to be assigned to 
ECSt the PNT is set to indicate this fact by setting the 
device type to that for ECS. Now-, when I/O requests are 
posted by 4ES in the Request Stacki stack processor will 
call in the ECS overlay 3SX and perform the I/O. 

Since it is not necessary for the program doing the I/O to 
know which device the file resides onn then for ECS-. no 
changes need be made to such routines as CIO-. 5BP-. etc. 

Some routines need to know about the new device type but 
only so far as it is included in a general list of device 
typesi they are OPE and REfiS. 

The only routine that must know exactly how to access ECS 
is 3SX. It must know the boundariesi size of record 
blocks-, and PRU sizen etc- 

Record block size is provided by the symbol IP.ECLRB. 
Boundaries of ECS are set by deadstart with initial values 
extracted from a section of CfIR. So again-, deadstart 
changes are necessary as with Direct User Access capability. 

Since Deadstart is where it all begins-, let us now look 
at that portion of the system. 

BNL ECS was initially called Interim ECS. It was designed 
to provide a rudimentary capability for using ECS until 
such time as a full ECS system became operational. Uith 
this in mind and not knowing exactly how ECS should be de¬ 
fined-. the original designers planned to provide some flexi¬ 
bility in apportioning ECS between and within computers. 

This flexibility is provided most easily at deadstart time-, 
by changing the Partition Table. 

The Partition Table consists of a set of pointers which 
divide ECS into the various areas for each computer attached. 
These areas are then partitioned into blocks for each 
desired class of usage. The two classes presently sup¬ 
ported are Direct User Access and Allocatable Device usage. 
The most convenient place to keep this table is in the 
buffer that the ECS code will eventually use. So-, at 
assembly time-, the Partition Table is created in T.ICEBUF 
by calling macros defined in CMR. The mechanics will be 
discussed later* For now-, it is sufficient to say that 
the RA and FL for each ECS block is stored in a separate 
word. At deadstart time-, a display is brought up showing 


March ntjq 


n.3 



SCOPE 


these RA and FL fields. They are grouped by computer and 
labeled appropriately for ease of identification- 

Now the aspect of flexibility enters the picture. The 
operatorT by suitable entriesn may change any field and 
adjust for some new partition. There are certain constraints 
which will be mentioned later. For now it is enough to 
say that the operator can change any and all fields. This 
allows various studies to be made on how much ECS is needed 
for each class of usage and how much ECS is needed for 
each computer. This facility is provided without the need 
to reassemble any of the system* ECS may be completely 
turned off if desiredi or if some of ECS should begin to 
show excessive parities or problemsn that part alone may 
be locked out by changes at deadstart. 

The Partition Table in CUR is constructed identically at 
assembly timei for each computer in a multi-computer instal¬ 
lation. When changes are made at deadstart to the Partition 
Table of one computer the Partition Table of the other 
computers must also be changed. Re-assembly of the other 
CMR-'s is not requiredi howeveri since a facility is pro¬ 
vided so that each computer! at dead start! can know the 
most recent Partition Table image in effect. 

For example! consider a two computer system- Computer one 
is deadstarted while the other is idle. The operator 
makes adjustments to the Partition Table. He then con¬ 
tinues deadstart by suitable console commands. The Par¬ 
tition Table image is extracted from the CUR of computer 
one and written to ECS at absolute zero. Then! as the other 
computer is deadstartedi a console command causes the 
Partition Table in its CNR to be ignored and the Partition 
Table residing in ECS to be read into its CflR overlaying 
the original Partition Table. The ECS display now shows 
the most recent Partition Table image. It can be further 
modified! but care must be exercised solhat areas are not 
overlayed erroneously. Additional computers use the same 
procedure• 

The important feature is -that reassembly is not required 
even though the ECS areas now being used are totally 
different from those designated at assembly time. This 
re-reading the Partition Table from ECS may be done across 
many deadstarts for an indefinite period of time. The stan¬ 
dard software will not destroy this area in ECS. Care 
should be taken that other operating systems particularly 
customer engineering and experimental systems do not erase 
the table in ECS. Should the table be over written! how¬ 
ever! the problem is not serious. The currently running 
systems will not reference the Partition Table in ECS! 
this is done only at deadstart. However! when an attached 
computer is again deadstartedi it will be necessary to re— 
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construct the table in ECS. If the required version of 
the table is different than the assembled versionn then 
the operator makes adjustments to the assembled version by 
console command. Oeadstart is theh continued causing this 
updated Partition Table to be written to ECS. Soi the^ 
table is written to ECS at each deadstarti unless ECS is 
turned off. It can be read from ECS at deadstart by suitable 
command and thus subsequent deadstarts can use the current 
image which is in ECS. 

The flexibility provided by modifications at deadstart has 
only one drawback. It is not dynamiCi and once the system 
is running-! it is impossible to do any further changing of 
ECS boundaries. This limitation may be removed in some 
future version of the system. 


1=1.4.D System Symbols for BNL ECS 

BNL ECS modifications are not assembled in the release 
version of SCOPE. They are assembled by setting the IPARAHS 
symbol IP-ECNOM non-zero. IP.ECNOH is set to the size of 
ECS memory that will be usedT divided by IDDB. This size 
includes the total ECS for all computers in the configuration. 
For clarity in all following examples-i we shall assume 
that the ECS memory size is InDDQiOODB words-i so IP-ECNOPl 
will have the value ID-iQODB. 

Another system symbol relating to BNL ECS usage is con¬ 
tained in IPARAHS. It is IP.ECLRB which is the length of 
an ECS Record Block in PRLI'‘s. 

A common deck has been added to the program library. Its 
name is ECSC0I1 and it contains most of the system symbol 
definitions needed for BNL ECS code. The common deck is 
bounded by a conditional assembly pseudo instruction-! the 
value of IP.ECNOn determines if the code is to be skipped 
{zero valuel or assembled {non—zero valuel. A listing of 
ECSCOH appears below^ further discussion of the symbols is 
deferred until the relevant routines are covered in detail* 
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Ecscon 


CODECS 


IFNE IP.ECNOn-,a 

A COnnON ])EC< containing symbols for BNL ECS 




WORDS IN T.ECST-, BYTES □=UNUSEDi 1+B=FE-, ^+^ = RE 


E.ALLOC E(3U 

E-COMM El3U 

E.USER E«2U 

M 

« THE 


□ 

1 

S 

REST CONTAIN 


ALLOCATABLE 
COMMON AREA 
DIRECT USER 

LY ONE VALUE-, R 


BLOCK 

ACCESS BLOCK 
GHT ADJUSTED 


E.STGMVE EaU 3 

E.LENGTH ECU 4 

E.DELAY ECU S 


UNUSED 

TOTAL LENGTH OF ATTACHED ECS 
STATISTICS DELAY PERIOD 


M WORDS IN T.ECSTAT 


E.STATl 

Eau 

□ 

E.STATE 

ECU 

1 

E .STAT3 

EflU 

E 

E.STAT4 

Eau 

3 

E.STATS 

Eeu 

4 

E.STATL 

Eau 

5 

E.STAT? 

Eau 


E.STATS 

Eau 

? 


CUMULATIVE SUM OF READ/WRITE TIMES 
UNUSED 

NUMBER OF ECS READ OPERATIONS 
CUMULATIVE SUM OF WORDS READ 
NUMBER OF ECS WRITE OPERATIONS 
CUMULATIVE SUM OF WORDS WRITTEN 
UNUSED 
UNUSED 


« OTHER SYMBOLS 


E.ECH 

Eau 

4 

E.PREL 

Eau 

a 

E.STDLY 

Eau 

bDDD 

N.ECPORT 

Eau 

1 

CODECS 

ENDIF 



CHANNEL FOR 1SPC3SXI-PP TRANSMISSION 
□ = REAL ECS-, 1=FAKE ECSCUPPER CM> 
SYSTEM DEFAULT DELAY PERIOD FOR ECl 
NUMBER OF ECS PORTS IN USE 
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The remaining system symbols for BNL ECS are contained in 
SCPTEXT. They are listed below with a brief explanation; 
they will be explained in detail as the relevant routines 
are covered. 

P.ECST=11B Word in CHR containing pointers to various 

ECS tables. 

P.LECST = 13B tilord in CMR containing lengths of tables 

specified by P.ECST. 

The C. symbols noted below are used to locate bytes in 
these two pointer word s in CUR. 


C.EeFLAU=2 


C.ECST=^ 


C.ECSTAT=1 


C.ICEBUF=D 


C.LR1>=3 


Bytes in CMR which contain address and 
length of the ECS flaw table- 

Bytes in CMR which contain address and 
length of the ECS information table. 

Bytes in CMR which contain address and 
length of ECS statistics table. 

Bytes in CMR which contain address and 
length of the ICEBOX I/O buffer. 

Bytes in CMR which contain address and 
length of the logical record definition 
table - 


E.ERPAR=M0D1B Error flag returned by ICEBOX to 1SP-3SX 
is an ECS parity is encountered. 


M.ICE=h 


Monitor functionr requests monitor to activate 
ICEBOX. 


0V.EC1=3REC1 Symbol defining the name of the ECS statis¬ 
tics accumulation program* 


n.S-D CMR 


Basically^ CMR has the following construction: 

Pointer Words 
PP Communication Areas 
Control Point Areas 

Central Processor Resident Programs 

Tables 

ECS Tables 

Library 

The pointers for the ECS tables and the lengths of the 
tables are kept in P-ECST and P-LECST- These symbols have 
the values IIB and 12B respectively. Their format is: 
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n.s.i 


P. ECST 


P.LECST 


EflU M 

VFD lE/T-ICEBUF/lDB 
VFD lE/T.ECSTAT/lDB 
VFD lE/T.ECFLAti)/lDB 
VFD 1E/T-LR]>/1DB 
VFD lE/T.ECST/lDB 

E(3U M 

VFD lE/L.ICEBUF 
VFD lE/L.ECSTAT 
VFD lE/L.ECLAy 
VFD lE/L.LRD 
VFD lE/L.ECST 


Ths T. symbols always have non-zero values because the 
table origins are always defined. Howeverf the L- symbols 
actually indicate if the tables have a real length or not- 
Uhen IP-ECNOM is zeroi then the L- symbols have zero valued 
when IP-ECNOtl is non-zeror the L- symbols assume the default 
values which are defined at the beginning of CUR - They 
mayr however be changed at Installation option- 

The Central Processor Resident Programs have the following 
construction: 


Storage Hove CH 
Storage Hove ECS 
ICEBOX 

Central Exchange Jump Protection 


ECS Storage Hove 

The ECS storage move program performs the moving of the 
control point ECS memory for Direct User Access in much 
the same manner as the CH storage move program. It is 
initiated by HTR when storage needs to be moved- It reads 
and writes ECS and on the detection of an ECS parity, it 
sets an error flag in location T-ECSPAR byte 3 and the ECS 
address/lDDDB in byte The parity indication is either 

two or four- 

Two indicates that only the program requesting ECS memory 
is to be aborted. Four indicates that the control point 
whose ECS memory is being moved is to be aborted in addi¬ 
tion to the requesting control point- This occurs if the 
ECS image gets overwritten during the move and thus there 
is no guarantee that the moved control point has a valid 
ECS image any longer. 

The error flag for ECS parity on storage move is F-ERECP. 
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n.s.2 


ICEBOX 


The ICEBOX section of CMR performs reading and writing 
of ECS upon request of a PP through the Monitor func¬ 
tion M.ICE. Its entry point is at CP.IBX. The PP 
Message Buffer contains the arguments in the following 
form: 


Word 1 Bytes Ir H 
Bytes 3f M 
Word B Byte B 

Bytes 3» M 


CM address 
ECS address/lDDB 
Read/Write indicator 
Read = D Write » 1 
Number of words to transmit 


ICEBOX performs the read or write operationr using 
ECS; or in case E.PREL * li a storage moveprogram is 
activated. The latter occurs if ECS is being simu¬ 
lated in upper CM. This allows installations to configure 
and test the ECS options even though ECS may not yet 
be installed* 


After the read or write operation has been performedf 
ICEBOX exits through the EXITLOC code, and accumulates 
statistics on the ECS operations in the ECS statis¬ 
tics tablef T-ECSTAT. These statistics reflect only the 
allocatable device usage of ECSf not direct user access. 
The following statistics are accumulated: 


Number of reads in T*EC STAT + E*STAT3 

Cumulative sum of words read in T.ECSTAT + E-STAT4 

Number of writes in T.ECSTAT + E*STATS 

Cumulative sum of words written in T-ECSTAT + E. STATE. 


ECS read parity errors cause entry to RERROR. The^ 

ECS read operation will be attempted three timesr if 
parity still persists* the block of ECS will then be 
read one PRU at a time to €nd the bad PRU. If no read 
parity is encountered on the PRU reads* then the 
error is ignored and an exit to EXITLOC is performed. 

If the read parity is detected again on the PRU reads* 
an error flag is set in the second word of the original 
ICEBOX arguments* byte □. This error flag is E-ERPAR- 
The beginning ECS address of the bad PRU is then 
placed in the flaw table* T.ECFLAW. and the flaw count 
incremented. The flaw table is first searched to 
see if this address is already present and if so. it is 
not duplicated. 

The first wond^ of the flaw table contains the flaw count. 
Flaws are accumulated up to a maximum of L. ECFLAW-1 t 
then on the occurrence of the next flaw-. RERROR will set 
an error Flag in word T. ECSPARt byte B. When MTR sees 
this flag set-, the comment WARNING..ECS FLAW TABLE FULL 
is placed in PP zero-'s message buffer and the system 
is put into step mode. DSD displays the message and 
waits for operator acknowledgement and also for the 
operator to restart the system. 
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RERROR meanwhIleT will place the flaw in the flaw 
table and reset the flaw count to one. The default 
length of the flaw tablsT L. ECfLAJJ-i is MOB on the 
release tape. 

ECS write parity errors are handled as permanent read 
errors- No attempt is made to re-write ECS. The same 
error flag is setr E.ERPARr and the beginning address 
of the block is placed in the flaw table if it is not 
already_present. It is doubtful if an actual write 
parity will ever occurf since the hardware does not 
check for parity errors on write operations. If the 
error exit is taken on writer then normally this 
indicates that the bank has been switched to main¬ 
tenance mode or has lost power. 


l‘l.S.3 Construction of the Partition Table- 


As mentioned earlierr a Partition Table is constructed 
in the CUR of each computer which partitions ECS into 
an area for total system usage and areas for each 
computer attached to ECS. These areas are then parti¬ 
tioned into blocks for each class of usage. The 
Partition Table is constructed in T.ICEBUF at assembly 
time by calling the macros ECBLOCK, ECSPLITr ECALLOC, 
and ECUSER which are defined in CMR• CECSPLIT is used 
by the other macros and not called by the user directly.! 
The sizes of ECS blocks are stated in units of IDOB 
words unless specifically noted. 


Each computer must have a symbolic label of five 
characters or less which will be used in the macro 
calls. This label establishes the relation of the 
calls to the computer. Labels may be mnemonicr for 
exampler to indicate serial number: 


Examples: SERli SERBt SERBS 

The blocks into which ECS is partitioned must be in a 
specific order- Starting at absolute zero and working 
upward* they must be: 


Partition Table 
Common Block 
Computer 1 allocatable 
Device Block 
Computer 1 Direct User 
Access Block 


IDQB 

words 

□ 

words 

m 

words 

n 

words 


The last two blocks are repeated for each computer in 
the system^ any m on n may be zero. Each allocatable 
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1=).S.2 ICEBOX 


The ICEBOX section of CHR performs reading and writing 
of ECS upon request of a PP through the donitor func¬ 
tion il-ICE. Its entry point is at CP-IBX. The PP 
Message Buffer contains the arguments in the following 
form: 


Ulord 1 Bytes 5 
Bytes 3» 4 
Word 2 Byte 2 

Bytes 3f 4 


CM address 

ECS address/lDDB 

Read/Lirite indicator 

Read = D Write = 1 

Number of words to transmit 


ICEBOX performs the read or write operationr using ^ 

ECS; or in case E.PREL = Ir a storage move program is 
activated. The latter occurs if ECS is being simu¬ 
lated in upper CM- This allows installations to configure 
and test the ECS options even though ECS may not yet 
be installed. 

After the read or write operation has been performedt 
ICEBOX exits through the EXITLOC code, and accumulates 
statistics on the ECS operations in the ECS statis- 
tics table, T.ECSTAT. These statistics reflect only the 
allocatable device usage of ECS, not direct user access. 
The following statistics are accumulated: 


Number of reads in T-EC ST AT + E. ST AT 3 c'-p*Tir 

Cumulative sum of words read in T-ECSTAT + E.STAT4 
Number of writes in T-ECSTAT + 

Cumulative sum of words written in T-ECSTAl + L.^lAib 

ECS read parity errors cause entry to RERROR. The 
ECS read operation will be attempted three times, i 
parity still persists, the block: of ECS will then be 
read one PRU at a time to "iind the bad PRU- read 

parity is encountered on the PRU reads, then the 
error is ignored and an exit to EXITLOC is j' 

If the read parity is detected again on the PRU reads, 

an error flag is set in the second word of 

ICEBOX arguments, byte 0. This error flag is E.ERPAR. 

The beginning ECS address of the bad PRU is then 
placed in the flaw table, T.ECFLAW, and the flaw count 
incremented* The flaw table is first searche o 
see if this address is already present and if so, it is 
not duplicated. 

The first word of the flaw table contains the flaw 
count. Flaws will be accumulated up to a maximum ot Jib, 
then on the occurrence of the Ibth flaw, RERROR will 
cause the system to hang by looping. Since 
locks out bad record blocks that exist at dead start timei 
the occurence of lb different parity errors indicates 
ECS is not performing satisf act only • . 

The length of the flaw table can be made longer and 
the code changed in RERROR to allow accumulation of 
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more than IS 'Flaws i but this is not the answer to 
unsatisFactory ECS- The default length of the Flaw 
table, L-ECFLALi). is ^DB on release tape- 

ECS write parity errors are handled as permanent read 
errors- No attempt is made to re-write ECS- The same 
error Flag is set, E-ERPAR, and the beginning address 
oF the block is placed in the Flaw table if it is not 
already present* It is doubtful if an actual write 
parity will euer occur, since the hardware does not 
check For parity errors on write operations. If the 
error exit is taken on write, then normally this 
indicates that the bank has been switched to main¬ 
tenance mode¬ 


l‘s.5-3 Construction of the Partitio_n Table_^ 


As mentioned earlier, a Partition Table is constructed 
in the CflR of each computer which partitions ECS into 
an area For total system usage and areas for each 
computer attached to ECS- These areas are then parti¬ 
tioned into blocks For each class of usage- The 
Partition Table is constructed in T•ICEBUF at assembly 
time by calling the macros ECBLOCK, ECSPLIT, ECALLOC, 
and ECUSER which are defined in CRR- FECSPLIT is used 
by the other macros and not called by the user directly-! 
The sizes of ECS blocks are stated in units of IDOB 
words unless specifically noted- 

Each computer must have a symbolic label of Five 
characters or less which will be used in the macro 
calls. This label establishes the relation of the 
calls to the computer* Labels may be mnemonic, For 
example, to indicate serial number: 

Examples: SERll SERSt SERBS 

The blocks into which ECS is partitioned must be in a 
specific order- Starting at absolute zero and working 
upward, they must be: 


Partition Table 
Common Block 
Computer 1 allocatable 
Device Block 
Computer 1 Direct User 
Access Block 


IDOB 

words 

□ 

words 

m 

words 

n 

words 


The last two blocks are repeated for each computer in 
the system:, any m or n may be zero- Each allocatable 
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device block should normally be an integral multiple 
of record block size; each direct user access block 
defined should be an integral multiple of IDOOB words 
and start at an address that is an integral multiple 
of IDDDB- Because the partition table is only lOQB 
words long and because the allocatabls device blocks 
may not be multiples of IDDDB words t it is possible 
that the origins of the direct user access blocks will 
not fall on the correct boundaries. Two techniques insure 
that blocks begin at the correct locations. 


Preset the Symbol ECRA 


The symbol ECRAr internal to the ECBLOCK macrof is 
incremented by the length of each block as it is de¬ 
fined. The original value of ECRA specifies the first 
usable word in ECSf and it must be preset before any 
ECBLOCK calls are made. The minimum value of 1 reserves 
IDDB words of ECS for the partition table- If ECRA 
is preset to lOB -Cunits are IDDB words! and if the 
allocatable device block defined subsequently is an 
integral multiple of IQQOB wordsr the proper origin 
will be set for the first direct user access block 
defined. This symbol can be incremented or set at 
any timet therefore block origins may be adjusted- 

Examp]#: ECRA SET IDB ALLOli) FOR PARTITION TABLEw*"** 

Operator Adjustment at Deadstart Time 

At deadstart time, the keyboard entry PACK, will auto¬ 
matically adjust blocks according to specifications 
and will also close up any gaps between blocks- Only 
gaps larger than IDDDB words are affected- This techni¬ 
que will decrease the field length of some blocks when 
the original specifications result in non-integral 
multiples of record sizes for allocatable device blocks 
or non-integral multiples of IDDDB for direct user 
access blocks. The block size defined for any machine 
will never be changed. 

A common block is defined immediately after the Partition 
Table- Currently there is no software support for this 
block; it is defined at this time to allow later support 
with minimal changes• The length of this block is normally 
zero, and it is established by calling the ECBLOCK macro- 

Example! COnH ECBLOCK D*«m»« 


t Examples marked with asterisks on the right margin 
can be used as correction cards to produce a sample 

configuration system. 
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Nsxtr the total amount of ECS for each computer is 
defined by calling the ECBLOCK macrorusing the macro 
call labels and specifying the size of the block. 

The ECS block includes all ECS used for the computer-- 
both direct user access and allocatable device usage. 

The ECBLOCK macro does not include the area defined 
by ECRA. 

Example: Assuming the size of ECS is lODDDB 

■Cunits are IQOB words! r and dividing 
ECS among three computers using the 
ECBLOCK macro: 

SERll ECBLOCK MDDDB ««« 

SERBL ECBLOCK 3DDDB 
SER5a ECBLOCK 77DB 

The total for these blocks is 777DB 
and adding the size of the storage all- 
ocated to the partitioning table gives 
the total size of ECSr lODODB. 

After all ECBLOCK macro calls are mader the sub-block 
sizes are defined; the first is the allocatable device 
block which I generallyr is defined to be an integral 
multiple of record blocks. Record blocks are generally 
integral multiples of IDDB words. The record block 
size for ECS is defined by the symbol IP.ECLRB. 

This example uses only one record block size for all 
computersf however this is not a requirement- IP.RECLRB 
will be set to BOB PRL]''s. The ECALLOC macro is called 
as follows: 

Example: SERll ECALLOC BOOOB 

SERBL ECALLOC BOOOB 

SERSa ECALLOC D nn*. 

Both SERll and SEREt now have allocatable device blocks 
which will hold lOOB record blocks- SEREB has a zero- 
length allocatable device block. 

The direct user access blocks are the last sub-blocks 
defined. These blocks' must be an integral multiple 
of lOODB words and must start at an integral multiple 
of lOOOB* They are defined in two ways: 

• The allocatable device block size specified by the 
ECALLOC macro is subtracted from the total amount 
of ECS for each computer specified by the ECBLOCK 
macro. 

SERll 40008 - BOOOB =■ IDOOB 

SEREL BOOOB - BOOOB = 0 

SERES 77DB - 0 = 770B 
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The ECBLOCK macro defines the symbol LABEL~^ FL and 
sets it equal to the total amount of ECS defined for 
the computer with symbolic name LABEL. 

The ECALLOC macro similarly defines the symbol 
LABEL-*'IFL and sets it equal to the allocatable 
device block size- 

SERll SERllFL-SERlllFL = IDQQB 
SER2b SERELFL-SER2L1FL = 0 

SERBS SERBaFL-SERBfilFL = 77DB 

lilhen the symbolic form is usedi subsequent reconfigu¬ 
rations can be made more quicklyi since the direct user 
access block size need never be specified explicitly 
it will always be the remainder of the field length after 
subtracting the allocatable device block size. 

Using the first method: 

Example: SERll ECUSER IDDDB 

SERBL ECUSER D 
SERBfi ECUSER 77QB 

Ih.S.M Other Considerations 

In addition to setting up the Partition Tablen the EDST 
and RBR macros must be called for those computers using 
the allocatable device facility. The EOST macro calls 
can be as follows: 

Example for SERli: AECS EDST AXtE.ECH 

SERBb: AECS EDST AXnE.ECH 

SERBS: no EDST macro required for ECS 

Symbols N.DEVICE and N-RBR must be changed to allow defi¬ 
nition of ECS as an allocatable device. 

Example for SERli: set to previous value plus one 

SERBb: set to previous value plus one 

SERBS: no change required 

The symbol N.ECPORT must be defined alson as it is the 
number of ECS ports to be used in a configuration. This 
symbol can take on values 1-4 t it is defined as 1 on the 
release version of SCOPE. 

Example: N.ECPORT EflU 3 

A list of identifiers must be defined in CflR starting 
at T.ICEBUF +1SD. These identifiers are used by the 
operator at deadstart time to verify that the computer 
is using the correct partition table values. Each 
identifier is one word-, left adjusted display codeT 
maximum of ten characters each. Identifiers should 
correspond to and occur in the same order as the ECBLOCK 
callsn they need not differ from the label used for 
ECS partitioning. The same labels are used in the 
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following: 

Example: ORG T.ICEBUF +15D mmm 

DATA H^SERll^,H$SER2L^iH^SEREfi^,««« 
H$F0R'REAL$ 


Summary 


The first usable word in ECS is defined by setting 
ECRA. The macros ECBLOCK. ECALLOC, and ECUSER are 
called to construct the Partition table in T.ICEBUF- 
Macro calls are of the form: 

LABEL MACRO-NAME L 

Where LABEL is a symbolic label of five characters or 
less and L is in units of IDOB. The communications 
area must be defined before all other areas- 


IR-L.Q MTR 


ECS is accessed via central processor RE/UE instruc¬ 
tions in ICEBOXf a central resident system program. 
ICEBOX is initiated by MTR when a PP requests the mon¬ 
itor function M-ICE- 

The format of the Monitor Request is as follows: 

Byte 0 = M-ICE 
Byte M = 2 

B1 in the exchange package is set to the PP Output 
Register address of the requesting PP- Additional 
parameters are passed to ICEBOX by the PP in the PP 
Message Buffer; they are described in Section lR-S-2* 
ICEBOX. 

M-ICE will initiate any Central Executive; byte 4r 
which is E for ICEBOXr specifies which executive to 
initiate- The M-ICE request is delayed if a system 
program is already active; MTR initiates only one system 
program at a time- 

When ICEBOX terminates with P =0t MTR calculates 
the elapsed time and updates two accumulated-time 
counters - 

The first counter is the first word of the ECS statis¬ 
tics tabler T-ECSTAT- The second counter is word 
W-ECTIME in the control point are of the job doing the 
I/O 
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Dead Start 


As mentioned earlierr the Parition Table changes are 
allowed only at dead start time. Additionally certain 
other operations are performed to condition the system 
for ECS. 


n.7.1 STL 


STL begins execution in PPl with the following condi¬ 
tions prevailing: 

a. The system has been pre-loaded on an allocatable 
device. 

b. CriR has been loaded into Cfl. 

c. PP''s are waiting for their respective numbers 

in CM location zero. 

d. PPD is waiting for a 15B in CM location zero. 

When STL exitSf MTR and DSD will be executing and PP'*s 
1-fl will be looping in the idle Loop of PP Resident. 

STL consists of two parts; the first part is PP Resident 
and the second part cortains the main body of STL dead 
start code. 

STL begins execution at IQQQB■ After sending PP resi^ 
dent to PP'*s 1-fl and just before sending F1TR and DSD 
out( STL enters the ECS portion of the program* After 
initializationt STL enters a loop monitoring central 
memory for the displays, the keyboard for input, and 
the central memory SUIT switch for termination. 

PP-CP Communication Technique 


There are four buffers for communication with IRCP; the 
(3uery buffer, the Message buffer, the Parameter buffer, 
and the Key-In buffer. For the first three of these the 
first CM word of the buffer is used as a switch. liinen 
the low order byte of this word changes, the display 
is reloaded from central. 


The first word of the Key-In 
buffer is set non-zero by the PP when it writes a 
keyboard message to IRCP and set to zero by IRCP to 
indicate the buffer is available. 

Operation of the subroutines is as follows: 

bJTZ Outputs on the display channel from the location 
specified in the A register until a zero byte is 
encountered. 
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DISRP Displays parameters. Sets initial X and Y 
coordinates in D.T.l and D.T.2 then uses 
DISRPl to display the parameters for the 
common area and each ECS port defined in the 
configuration. 

DISRPl Outputs coordinates! updates Y-coordinates 
and uses UTZ to output two words of para¬ 
meters . 

<YBRD Inputs from the keyboard to a one character 
per word buffer! displays it and writes it 
to central memory when CR is entered. 

PKKEY Converts a one character per word buffer into 

a two character per word buffer. 

The format of the display and allowable keyboard entries 

are described in Section IT-IS-D Deadstart ECS Display. 


l'i.7.E IRCP 

IRCP does many things which are discussed in the 
Deadstart section of the IMS. Here we shall discuss 
only the ECS code. After loading! preloading! label 
checking! etc.! and just before terminating! IRCP 
enters the BNL ECS section of code- 

The (3UIT switch and pointers to the PP communication 
buffers have been added at the beginning of the program. 
These are referenced by STL. Iile first look for the 
ECS R8R and its associated EST. If we find them and 
the EST is invalid! we stop and send the message ^'ECS 
EST BAD! CANNOT CONTINUE® through the query buffer to 
STL. If the RBR is missing the EST is not searched 
for and processing continues normally. Next we convert 
the initial allocation parameters to display code and pass 
them to the PP through the Parameter buffer. Ue display 
the query ®Tell me about ECS® through the query buffer 
and loop! monitoring the keyboard buffer for operator 
entries. When an entry is detected! we clear any message 
in the message buffer and examine the entry with the TEST 
macro passing control to the routine for the next possible 
entry if it is not the current entry. 

OFF The OFF bit is set in the ESTi the RBR is 

set full and its availability reduced to 
zero and the table T.ECST is zeroed. Ue 
then terminate normally. 

NONSTD The values of the Partition Table currently 
in the first lOOB words of ECS are read in 
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and replace the values currently resident in 
Cn* li)e then exit to monitor the keyboard. 

PACK Ue enter a loop which $ts the RA "For the next 

block to RA+FL oF the current block- Then 
within each blocki the allocatable device 
section is Forced to an integral number oF 
record blocks and the remainder put into the 
user area. Note it is necessary to round 
allocatable areas to multiples oF lODB and 
user areas to multiples of IDQDB- 

IF the rounded RA oF the user area exceeds 
the RA+FL For the user areai the user area 
RA will be set to its unrounded value. 

This could result in a user RA which is not 
a multiple oF IQQDB. 

This isf in efFeetr saying that the user 
area FL is not large enough For at least one 
block oF lOQOB words- IF this should occur, 
the user area FL will be set to zero by PACK 
also- At URAPUP time the user area RA and 
FL will be given Further consideration. 

IF FL For a particular machine is zero, the 
allocatable area FL and the user area FL will 
be set to zero- The RA For each area will 
then be set to the RA oF the machine, again 
with the user area RA possibly not being a 
multiple of lOOOB. 

In both cases where the user area RA is not a 
multiple of lOOOB. the user area FL will 
generally be zero. URAPUP takes this into 
consideration. 

GO IF the parameter N-ECPORT is one. the key¬ 

board entry is GO. Otherwise the entry is 
GO.n- where n is the number of the computer- 
BeFore accepting the identification a label 
obtained From T-ICBUF+lS+n is passed through 
the query buffer and operator verification 
is requested. 

Then the Partition Table is written into 
the first IDDB words of ECS. Now using n 
For 1 if N.ECPORT =1> the appropriate entries 
From the Partition Table are used to fill in 
the T-ECST table- liJe now create the RBR For 
ECS by setting all RB''s as locked out. 
reading the allocatable section and toggling 
bits in the RBR when an error Free RB is read- 
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The counts of total and error free RB'‘s are 
used to fill in the availability fields in 
the RBR header. Then we exit to URAPUP to 
turn the system loose. 

NUtlBER If the entry is none of the above» then we 
assume the message is a numeric change to 
the allocation parameters* but check it 
carefully. On all errors we assume a keying 
error and display a message to the operator* 
through the message buffer* asking him to 
re-enter the message. Ue scan the input* 
converting at most two fields lerror otherwise} 
to binary. If anything other than a numeric* 
period* or comma is encourtered it is an 
error. Entering more than one word Iten 
characters} is also an error. The value 
from the first field is divided by two and 
used to determine the word to modify* the 
low-order bit determines if RA or FL is to 
be modified. After changing the appropriate 
field* the parameter display is regenerated 
and changed on the scope. Ue then exit to 
the loop monitoring the keyboard. 

The URAPUP procedure* which is entered from GO and OFF* 
sets the user RA into the control point areas -Cword 
U.CPECS} and the exchange packages for all control 
points■ 

If the user area FL is zero* the user area RA and FL are 
both set to zero* thus DSD will not have any FL for the 
user area for each control point and riTR will also 
never know that ECS was defined null for the user area* 

This cleans up the B display of 5SD. If either of the 
user area RA and FL are not multiples of lODQB* they 
will be rounded down to the next lowest multiple of 
IDDDB. This could result in two or more computers 
using the same area of ECS* so care must be exercised 
when using the PACK entry Isee discussion on previous 
pages} and in defining the RA and FL for the user area 
in CriR- URAPUP then sets the flUIT switch non-zero and 
exits from the ECS section of code. 

Three subroutines used in this section of coding are: 

UTZ Moves data to zero byte. On entry Bl-l* 85=LCFR0ri>n 

B3=LCT0}* B4=Max words; on exit B4 is 
reduced by the number of words moved. Each 
byte of the word being moved is examined for 
zero to terminate the move. 

CPAR Converts the parameters in T-ICEBUF to octal 
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display coder starting two words into PBUFr 
for each entry in T-ICEBUF; then increments 
the PBUF control word and exits. 

BTO Discards the low order six bits of Xlt con¬ 

verts the next Ifi bits to display code fleft 
adjusted with zero fill} in Xta and leaves XI 
shifted right bits from its position when 
this routine was entered- 


Footnote to GO Section 


The algorithm used for locating bits in the RBR for 
ECS is as follows^ 

N = Record block ordinal -[starting at zero} 
If; U = Word index -Cli! = Q is first word of reser¬ 

vation bits} 

B = Bit ordinal in word -EB * D is leftmost 
bit} 

Then using the notation: 

■[-^ is the integral part of the quotient 

Xy is X modulo Y 

Let: ^ 

L = U =f3ni0 ^ 

Now if L < 7M then U = U and B = L 
Otherwise: 

“ = * '*0 

B = -CL - 74} SFTA8 -EU^^g} 

where SFTAB 

■CD} = 0 
■Cl} = a 
■C2} = IS 
■C3} = ED 
■CM} = E4 
•CS} = BS 
■Ct} ■= 3t, 

■C?} = MM 

All above numbers except values of SFTAB are in octal- 
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I'i • fl • □ Stack Processor 


As with other allocatable devicesr a stack processor 
overlay has been created for accessing ECS for the 
Allocatable Device access.^ The name of this overlay 
IS 3SX. It is structured in a manner similar to the 
other 3Sw overlays with minor differences to account 
for ECS. Since a PP cannot access ECS directly, a 
method was created for the information to be transferred 
to and from ECS. ICEBOX performs this function for 
3SX. ICEBOX is a central resident system program, 

recognition of the monitor function 
need only perform an tl.ICE function with 
^ppi^opf^i^te arguments and the data will be transferred 
between ECS and the central memory buffer, T-ICEBUF- 

Unlike other stack processor overlays, 3SX has no 
head positioning or access time constraints. The sections 
of code which calculate these variables are null; 
they return zero-latency and always-positioned status 
respectively. 

Uhen 3SX is initially loaded, it reads Cil location 
P.ECST to obtain the table pointer T-ECST, which is in 
byte C-ECST" Location T.ECST + E-ALLOC is then read 
from central memory; it contains the RA and FL for the 
Allocatable Block of ECS for this computer in the 
following formati 

Byte □ = unused 

Bytes 1 S E = FL 

Bytes 3 a ^4 = RA 

The RA for ECS is stored and on subsequent ECS accesses 
the RA is added to the Logical ECS address to obtain 
an absolute ECS address for ICEBOX. 

The channel nbrmally used by other 3S«« drivers for 
accessing their devices is not needed by 3SX except in 
the case of PP I/O, when the channel is reserved to 
enable ISP to pass data to the requesting PP. The 
channel is not reserved in any other situation* 

The PRU length for ECS is lODB words, the same as 
other allocatable devices. Since it is convenient 
to do 16 bit arithmetic in the PP''s and since ECS add¬ 
resses can be up to El bits in length, the ECS addresses 
are divided by IDDB to permit ECS addressing in units 
which coincides with the PRU size. Other allocatable 
devices usually write more than the IDOB words of the 
PRU- Specifically, two other bytes are included for 
bt3Q3''s and Lt536'‘s. One of these bytes holds the PRU 
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size* This is not possible for ECS because of the 
lODB addressing scheme- tJhile it is possible to write 
ECS in other than lODB blocksf it is not elegant to 
do this in practice- Instead, a Logical Record Defini¬ 
tion Table. T-LRD. has been created- 

This table contains one bit position for each PRU in 
ECS. The function of these bits is to specify whether 
or not the corresponding PRU is lODB words long or a 
short PRU. When a short PRU is to be written. 3SX 
stores the word count in the last byte of the IDOB 
word block; sets the corresponding bit in the LRD to 
one and then calls ICEBOX to write lODB words to ECS. 

Uhen a full PRU is to be written, the LRD bit for this 
PRU is set to Q. When 3SX reads ECS by calling ICEBOX, 
it reads IDOB words, then the LRD is inspected to see 
if the corresponding bit for this PRU is on or off. 

If zero -Coffl. 3SX assumes a PRU length of IDOB. If 
non-zero ConJ. 3SX uses the PRU length contained in the 
last byte of the PRU- The utility routine. XLRDIT. is 
used to fetch and store the bits in the LRD- The length 
of the LRD, L-LRD is set at assembly time in CflR: 

L-LRD ESU IP-ECNOm/lODB + IP. ECNOn/lODOB - Now IP-ECNOU 
as defined earlier {Section n.M.Ol is equal to the 
total size of ECS memory that will be used, divided 
by IDOB. This size includes the total ECS for all 
computers in the configuration. 

This means that for a multi-computer installation. the 
LRD for each computer will include bits for all other 
computers; and in fact, only those bits for each indivi¬ 
dual computer will be used by that computer with a 
large percentage of wasted space in the LRD- 

This is necessary evil, however, since as mentioned 
earlier in dead start, the operator may adjust the 
various block sizes for each computer, and may specify 
that some computer will use all of ECS for allocatable 
device usage- This would require that all the bits in 
the LRD would be needed by that computer and other com¬ 
puters would not even use the LRD. 

The system is not powerful enough at this time to allow 
the lengths of tables in CNR to vary at dead start time 
and to use the extra space, if any becomes available- 
This shortcoming may be overcome in future versions of 
the system. 

The LRD is constructed for easy indexing- The table is 
divided into two parts, the main body which contains 
one CN word for each LM ECS PRU''s and the tail section 
which contains one CN word for each 51E ECS PRU''s. 
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The bO bits in word 0 represent logical ECS addresses 
0 through ST; the bO bits in word one represent logi¬ 
cal ECS addressed bM through 123f and so on- Logical 
ECS address bO through b3 are represented in word □ 
of the tail section- In generalr one word of the main 
body» and four bits of the tail section represent b4 
consecutive Logical ECS addresses. For every eight 
words in the main body? 32 bits in one word of the 
tail section are used- 

Each number in the following table represent a logical 
ECS address; they are positioned in a 1-1 correspon¬ 
dence with the bits which represent them- 


□ 

1 

2 ' 

3 


55 

Sb 

5? 

Sfi 

ST 

b4 

bS 

bb 

b? 

-------- 

IIT 

12D 

121 

122 

123 


MAIN BODY 
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The LRD always begins with logical ECS address Dt regardless 
of the absolute ECS address* 

It is possible to reduce the percentage of unused cells in 
the LRI> by reducing the size of the LRD to only that which is 
used by each computer* Care must be exercised at dead-start 
however! that the allocatable device block for any computer 
is never increased^ however a decrease is allowed. 

Instead of letting IP.ECNOM be the total ECS memory/lODB 
let it be! for each computer! the allocatable device ECS 
memory size/lOOB* Then re-assemble CNR and Stack Processor* 
Since IP-ECNOPl will be non-zero! conditional code will still 
assemble. The length of the LRD -CL.LRDI in CliR will be set to 
the smaller size and no space will be wasted in the LRD* 

3SX will also have the correct size of the LRD so that index¬ 
ing into the tail section will be correct. 

The value of IP.ECNOh must also be used when calling the 
ECALLOC macro in CHR for the Partition Table 

For multi-computer configurations the new value of IP-ECNOn 
may be different for the ECALLOC calls for each computer! 
therefore the value of IP.ECNOh! and not the symbol IP.ECNOIl! 
is used when calling ECALLOC* 

This will somewhat limit the changes that can be made at 
deadstart time! since increasing the allocatable device block 
at dead start will then be an illegal operation and 
would cause overwriting of the non-existent portion tbe. 

LRD during system operation^ the Library generally follows this 
table. 

Even if a full LRD is usedi the amount of central memory 
lost is small considering the flexibility and increased per¬ 
formance the system attains with ECS. 
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The following table shows the size of the LRD for various 
ECS sizes. 


Banks of ECS 

LRD Size 

1 

44B 

5 

IIQB 

4 

BBDB 

a 

44D8 , 

lb 

IIBDB 


ISP has been organized to do I/O one PRU at a time. for 
write operations! the PRU Is brought into a PP buffer and 
the 3S« overlay is responsible for sending It to the allo- 
catable device. As mentioned earlier! 3SX does the appro¬ 
priate LR3) and PRU length manipulations and writes the PRU 
to the central memory buffer! T.ICEBUF- Then the dessage 
Buffer is set up with the appropriate arguments and the 
monitor function d-ICE requested of monitor. 3SX returns 
from PP resident after the function has been answered by 
HTR and ICEBOX has completed the write to ECS. 

For read operations! 3SX first requests M-ICE with the 
appropriate arguments set and returns from PP resident after 
ICEBOX has read from ECS to T.ICEBUF. Then the PRU is read 
from T.ICEBUF into the PP buffer and ISP Is responsible for 
sending the PRU to its final destination. 

For PP I/O the PRU is read from! or written toi the requesting 
PP on the allocatable device channel! hence it is necessary 
for the data to be in the stack processor PP buffer at some 
time- The flow for PP I/O is shown below. 


ECS 



^ RE/UE ^ 



PPM PPU 


1SP/3SX 




I/O 


PP 

4 - * 

CHANNEL 


BUFFER 




O.RDP O.RDPNP 

O.URP O.liIRPR 
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Central meniory I/O is shown below also- 


ECS 


ALLOCA- 

TABLE 

AREA 


^ RE/lilE ^ 


ICE BUFFER 



USER 

BUFFER 





CUM 


1SP/3SX 


PP 

BUFFER 


CRM/CUn 




Notice that for central memory I/Ot the data passes needlessly 
through the stack processor PP buffer. Phase two of BNL 
ECS will not require this needless passage except in certain 
special cases- 

In any eventi after ICEBOX has finishedn and 3SX returns from 
PP resident! error checking is performed. If ICEBOX en¬ 
countered an ECS parity! it will try to do the ECS operation 
again! twice- If the error persists! then byte D of word 
two of the Message Buffer will be set non-zero- For ECS 
parity! its value will be E-ERPAR. 3SX does not attempt the 
operation again! but assumes a permanent error and calls 
a ISP error processing routine to take appropriate action- 
■CSee the ICEBOX discussion for related information-} 

After performing error processing! 3SX returns control to 
ISP. 


n.T.O ECS Statistics 

This program will dump ECS statistics! which are accumulated 
by ICEBOX and MTR in the CMR table T-ECSTAT, to the DAYFILE 
at periodic intervals- For a detailed discussion on what 
type of statistics and how they are accumulated! see the 
sections on CMR and MTR- ECl is called initially by a con¬ 
trol card or CPC at some control point- Thereafter! it will 
be initiated by monitor through the PP delay stack mechanism- 
The frequency with which it is re-called by monitor is the 
value of the delay parameter! which is passed initially in 
the input register- Delay units are one second each- 
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If delay is zeroT E.STDLY will be used- This symbol is 
defined in ECSCON. If delay is ?77?Bn ECl will terminate 
the automatic recalling of all versions of itself and ECS 
statistics will no longer be issued in the dayfile. They 
will however! continue to be accumulated. Turning ECS off 
will also terminate the ECS statistics dumping. 

On an initial calln if all conditions are satisfactory! the 
statistics area in CMR table T.ECSTAT is zeroed but no dump¬ 
ing takes place. Each time the statistics are dumpedi the 
statistics area is again zeroed. ECl pauses for storage 
relocation only on an initial entry! while waiting for 
operator approval. During subsequent entries ECl does 
not pause• 

Caution...there are no checks to insure the only one version 
of ECl is running at a time* If several versions are run¬ 
ning at once! each trying to change the delay interval or 
turn off the statistics dumping! the results cannot be pre¬ 
dicted. However! since ECl pauses for operator approval! 
then with well informed operators this problem can be re¬ 
duced to a minimum. This approach was used to minimize 
changes to the operating system! i.e.i introducing more 
flags. One exception to the above is allowed: if one ver¬ 
sion of ECl is running! and a terminal call is madei i-e.i 
ECl 17777}! then all versions will terminate normally. 


I'i.lQ.D Other Routines 

Discellaneous other routines have been modified to allow 
usage of ECS. They include those routines which allow 
allocatable device and direct user access and are described 
below very briefly. 


n.io.i RE a 

hodifications to RES allow RECUEST card processing for ECS 
files. The Hardware mnemonic and device type code for 
ECS is AX and 20B respectively. A sample REflUEST card for 
an ECS file is shown below: 

REQUEST! file! AX. 


11.ID.2 MES 

4ES is responsible for assigning scratch files to ECS if 
space is available. When files are first referenced! MES 
searches the list below for a name match- 

PUNCHB OUTPUT 

PUNCH INPUT 

FILM PR PLOT 

FILMPL HARDPL 

HARDPR 
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If the file name matches one of the list namesor if the 
disposition code of the file is non-zero-i the file is 
assigned to some allocatable device other than ECS» 

If the name does not match and the disposition code is zero 
the file is assigned to ECS if space permits. If ECS is 
full or OFFt the file is assigned to a non-ECS allocatable 
device. 

This scheme is adopted so that files which are generally^ 
true scratch files are the only ones assigned to ECS. Files 
which remain in the system after the job leaves a control 
point would only tie up ECS until they were disposed of 
thus decreasing ECS efficiency. 

Occasionally scratch files will be assigned to ECS and 
later made COfiriON by the control point. Unfortunately-t no 
protection exists for this type of operation^ the COMMON 
file will remain in ECS. This doesi howeveri allow an 
EDITLIB-i performed after dead startn to effectively use 
ECS for the COMMON files which contain additions to the 
system. 


1=1. IQ. 3 1RA-, lEJ 

IRA initializes a job at a control point andi if user access 
ECS is requested on the job cardn requests this amount from 
MTR for assignment to the control point- 

lEJ releases user access ECSt which is assigned to a con¬ 
trol pointn at job termination. 


l‘i.lD.4 IAJt Loader 

lAJ-i PP loader and CP loader pass the user access ECS FL 
for a control point to a user program by setting XO to 
the ECS FL after loading a programi and prior to execution. 
Similarly-. CM FL.is passed by setting AD to the CM FL. 


I'i.lD.S MEM 

User calls to MEM will allow increasingn decreasing and 
checking the size of ECS at a control point* The system 
macro MEMORY calls MEM through CPC. The SCOPE 3 Reference 
Manual describes the arguments and action of the MEMORY 
macro- 

n.lQ.L PIS-, DSD 

DIS allows the user access ECS FL to be increased or de¬ 
creased by the console command ENFE-iXXXX. 
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DSO will display the RA and FL for each control point which 
has user access ECS* Additionallyi the total user access 
ECS available is displayed on the top of the right screen. 
See the Operators-' Guide for additional specifications. 


n.ll.D Related Topics 

Some special considerations concerning ECS usage as an allo- 
catable device were not covered in previous sections-i since 
they do not relate to specific routines but rather to the 
intrinsic qualities of the ECS implementation* 

One such consideration is system residence in ECS. Currently 
only two residences are allowed for any routine in the systemi 
DS for disk and CM for central memory* However t when EOITLIB 
operations are performed immediately after deadstart or when 
room is available in the allocatable device block in ECS 
for scratch filesi and routines are added to the system 
with DS residency -1 then those routines will be placed in ECS. 
EOITLIB creates a local file for additions to the system and 
^ES will place this local file in ECS if it is not full. 

Uhen EBITLIB completes the function of adding to the system 
it leaves this local file in COMMON status* 

li)hen system library loading of the routines on the ECS file 
is performed-I the load routine will not knowi and need not 
know -1 that the file exists in ECS. The load routines will 
enter stack requests for loading and stack processor alone 
will be aware that the file is an ECS file and is to be 
accessed through 3SX. An important feature is thati although 
the initial residency at deadstart cannot be ECS-i it can 
be changed to ECS residency while the system is running. 

The most practical way to accomplish this is to prepare a 
tape which contains the binary images of routi nes to be 
placed in ECS. Then-, immediately after deadstart has been 
completed! delete the selected routines from the system on 
disk and replace them in the system from the binary tape-, 
by an EDITLIB run* The added routines would be specified 
to have DS residency but would-i in fact be placed in ECS. 

In some cases-, this process should contribute to Improved 
system performance by eliminating some of the many requests 
on the system disk for system loading. Not all routines 
can be placed in ECS-, however* Among those excluded are 
ISP and all 3 Sm overlays. 

Another system capability relating to ECS usage as an 
allocatable device is Permanent File Maintenance. ECS 
implementation allows deadstart changes of the ECS partition 
to be easily made and it is expected that these changes will 
occur occasionally. Because permanent files are intended 
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to be permanent! and changing ECS boundaries would cause 
files to be lost-i permanent file creation in ECS is 
allowed. Any attempt to catalog and make permanent a file 
which resides in ECS will result in the user job being 
aborted with appropriate error messages. 

Another consideration is timing* Allocatable device access 
of ECS uses the central processor for transferring ECS to 
and from central memory and although the time actually used 
by the central processor is smalln it does detract from the 
total amount of central processor time available for user 
jobs* The amount of this time could be up to ten per-cent 
of total CP time. 

In I/O bound environments this percentage may be higheri 
but there will be large amounts of CP time available in 
these instances- CP bound environments! on the other handi 
generally do not call for massive data transfers-, and the 
percentage may be smaller. 

These considerations are theoretical-, however-, and each 
installation will find their own usage of ECS dictated by 
the primary users of their computers. Emphasis of direct 
user access ECS for CP bound installations and allocatable 
device access ECS for I/O bound installations should be a 
good rule of thumb■ 

Lastly-, there is the problem of memory conflicts. Heavy 
usage of ECS for direct user access will load central 
memory correspondingly* Generally-, ECS I/O has higher 
priority for accesses to central memory than PP-'s- In 
fact-, during ECS I/O-, CM is available to the PP-'s only 
one cycle per ECS hardware record ffi words>. ^ flost PP 
routines will not be affected adversly by thisi since one 
access per ECS record is permissible under their time 
constraints* flTR and DSD are among those that are not 
adversly affected* 

Stack Processor! on the other handi cannot tolerate any 
delay when accessing central memory* Software and hardware 
constraints have contributed to very close timing margins 
and these may be overrun if delays are introduced for 
central memory accesses* For this reason! during heavy 
ECS transfers! stack processor may begin to lose revolu¬ 
tions and disk I/O will suffer accordingly* 

Stack processor sets the high order bit of the A register 
for central memory addresses to take advantage of the CrlAH 
option! if it is present* This hardware option provides 
PP priority for central memory accesses._ The value of this 
option has not been determined at this time and is left as 
an exercise for the installation* 
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n.12.0 Deadstart ECS ])isplav 

At the top of the left screen on the query line is displayed 
the message TELL HE ABOUT ECS. 

Immediately below is shown a list of various entries the 
operator may use. As entries are keyed ini they are dis¬ 
played as the last line on the left screen. Entries are 
terminated by a period and signaled by pressing the car¬ 
riage return key. Entries disappear after the carriage 
return key is pressed whether they are correct or not. An 
incorrect entry is indicated by an error message appearing 
one line above the entry line. The error message remains 
visible until the carriage return key is again pressed at 
the end of the next entry. 

The right screen shows labeling information and values for 
the partition table- Each entry in the partition table con¬ 
sists of an RA field and an FL field. The entries are dis- 
playedi one per linei a pair of numbers to the left of 
each identifies the fields. Values for each computer 
designated in the configuration are grouped together and 
labeled by computer number. A sample display is shown below. 

« ECS PARTITION TABLE 
RA FL 


□ -.1 

ODDDDl 

□□□□□□ 

COnnON AREA 

2-,3 

DDDQQl 

□□□□QD 

COnnUNICATIONS 

^-,S 

□ □ODDI 

□□□□□□ 

SPECIAL 

b T 7 

□ □□□□I 

□D3777 

COnPUTER 1 

10-.11 

□□□□□I 

□□3DD0 

ALLOCATABLE 

12-,13 

DDEDID 

□□□770 

USER 


□ OMODO 

□□4DDD 

COMPUTER E 

lb-,17 

□04D0a 

□□3D0D 

ALLOCATABLE 

ED-,E1 

□ □70DD 

□□lOOO 

USER 


Entries 

When the query line is TELL HE ABOUT ECSt the operator may 
enter any of the following! 

OFF. ECS is turned off and is not referenced. 

NONSTD. The partition table In the first 1DD8 words of ECS 
is read and displayed on the right screen. 

PACK. The RA-'s of all areas in ECS are adjusted to make 

them contiguous. The allocatable device block FL-’s 
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are forced to an integral number of record blocksi 
any remaining storage is put into the succeeding 
user access block* User access blocks FL'’s are forced 
to integral multiples of IDDDB beginning at 
integral multiples of IDOQB* 

Entry nn of the table is changed to xxxx -Cnn are 
the numbers displayed on the right screen>. All 
numbers are in octal• 


GO. or If the IPARAHS symbol N.ECPORT is equal to one-. 

the entry is GO. and the computer is assumed to 
be one. Otherwise the entry is GO-in* and the 
computer is assumed to be n* 


^■fter the operator enters GOnn* the query line changes to 
IS THIS mLABEL^. »<LABEL«-) an identifier preset in ClIRn at 
location T.ICEBUF+lSO+n is used for identification and veri¬ 
fication of the computer being deadstarted. If the operator 
responds YES.-, the normal deadstart procedure continues 
after internal initialization. If the operator responds 
NO-, the entire process is reinitialized. 


Error riessaqes 

If ECS has not been properly defined as an allocatable 
device or if an ECS parity is detected in the first lODB 
words of ECS-, one of the following messages is displayed 
and deadstart is discontinued: 

ECS EST BAD-, CANNOT CONTINUE 
ECS PARITY-, RESTART AND OFF ECS 

Illegal entries will result in one of these messagesi 

INCORRECT IDENTIFIER^ START OVER 
ILLEGAL ENTRY 

The operator should take action to correct any error dis- 
p1ayed• 


11.13.0 ECS Partition Table 

This table may be changed only when deadstarting by operator 
action. The partition is determined by a table whose format 
i s: 


•Ceach entry! 


M7 34 33 


FL 


RA 
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Uord ]i 

Uord El3 

Uord M 

Word S 

Word t. 

Words H-i 
ECS. 


common area CavaiTable to all attached 
computers - to be used for communication!■ 

reserved for future development 

RAn FL for computer 1 

RAi FL of allocatable section for computer 1 
RAi FL of user access for computer 1 
St b are repeated for each computer attached to 


This table is assembled into the buffer used by ICEBOX and 
is used only at dead-start {when it is written to ECS>. 

The first IDDB words {absolute! of ECS are reserved for a 
copy of the latest version of this table. 

Several macros are defined to construct this table more 
easily. Lengths of ECS are in units of IQOB words. They 
are called byi 


LABEL ECBLOCK L 

where LABEL is a label for a computer to be assigned a block 
of ECS of Length L. A block of five of these at most {^ 

ECS portt and 1 common area! must precede the following: 

LABEL ECALLOC L 

where a length L of ECS is to be devoted to allocatable 
device usage* 


LABEL ECUSER L 

A length L of ECS is to be devoted to user access usage. 


Starting at T.ICEBUF+ISD is a list of identifiers of the 
computers to be used at dead start time in operator identi¬ 
fication of the computer. 
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wIDENT SERllEC 

^DELETE ECSC0n.3M 

N.ECPORT EflU 3 

niINSERT IPARAPIS.l? 

IP.ECNOn E(3U lODOaB 

IP.HECS EflU MDB 

"INSERT criR.7ao 

AECS EOST AX.E.ECH 

"INSERT CflR.flSS 

BSSr 3 al> ALLOW FOR PRIMARY SYS DEVICE 

AECS RBR IDOB 

"INSERT CMR.'llR 

ORG T.ICEBUF 

M 

" NOW UE DEFINE ECS 

ECRA SET IDB 

COMM EC8L0CK 0 

SERll ECBLOCK ^00□B 

SERBL ECBLOCK 3DDQB 

SERBS ECBLOCK 7706 

" NOW UE DEFINE SUB-BLOCKS 

SERll ECALLOC 3000B 

SEREb ECALLOC 3D00B 

SERBS ECALLOC 0 

M 

SERll ECUSER lODDB 

SEREb ECUSER 0 

SERBS ECUSER 77QB 


ORG T.ICEBUF+ISD 

data H$SERll^nH^SERBb$-,H$SERaa$-,H$FOR-REAL$ 

"/ 

N/ DONT forget, N.device and N.RBR must be INCREMENTED 

"/ FOR ECS. 

"/ OTHER ROUTINES MUST ALSO BE RE-ASSEMBLED 

"/ 

"COMPILE CMR 

THE SEflUENCE NUMBERS FOR THE UPDATE CORRECTION CARDS ARE BASED 
ON A PRE-RELEASE VERSION OF 3.1.b AND MAY BE DIFFERENT FROM 
THE RELEASED VERSION OF 3.1.b. 
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mIDENT 

««DE LETE 

N-ECPORT 

mINSERT 

IP.ECNOM 

^INSERT 

AECS 

mINSERT 

AECS 

^INSERT 


SERaLEC 

ECSC0ri.3H 

Ei3U 

IPARAnS.17 

E(3U 

CnR.76D 

EDST 

CHR.BSa 

BSSZ 

RBR 

CHR.TIS 

ORG 


3 

IDDDOB 

AXnE.ECH 

3fl]> ALLOU FOR PRIMARY SYS DEVICE 

lOQB 

T.ICEBUF 


E >4 

M NOW yE DEFINE ECS 


ECRA SET lOB 

COMM ECBLOCK □ 

M 

SERll ECBLOC< MQOQB 

SERab ECBLOCK 30DDB 

SEREfi ECBLOCK 77DB 


NOy yE DEFINE SUB-BLOCKS 


SERll 

SERat 

SERES 

SERll 
SEREb 
SE RES 


«/ 

M/ 

«/ 

m/ 

(^COMPILE CMR 


ECALLOC EODOB 
ECALLOC 3DDOB 
ECALLOC 0 


ECUSER IDDOB 

ECUSER 0 

ECUSER 770B 


ORG T.ICEBUF+ISD 

data H^SERll$iH$SERSb$-iH$SERSS^-.H^FOR-REAL^ 


DONT FORGETt N.device AND N.RBR MUST BE INCREMENTED FOR 
ECS. 

OTHER ROUTINES MUST ALSO BE RE-ASSEMBLED 


THE SEfiUENCE NUMBERS FOR THE UPDATE CORRECTION CARDS ARE BASED ON 
A PRE-RELEASE VERSION OF 3.1.b AND MAY BE DIFFERENT FROM THE 
RELEASED VERSION OF 3.1.b. 


1R.34 
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«IDENT 

mBELETE 

N.ECPORT 

mINSERT 

IP.ECNOn 

IP.MECS 

mINSERT 

^INSERT 


SEREfiEC 

ECSCOi1.34 

zau 

IPARAMS.l? 

Ei3U 

EOU 

CriR.flSE 

BSSZ 

CIIR.^n 


ORG 


3 

lOOOQB 

lOB 

BSD ALLOW FOR PRIHARY SYS I>EVICE 
T.ICEBUF 


M NOW IdE DEFINE ECS 


ECRA 

conn 

SERll 

SERSb 

SERaa 


SERll 

SER2b 

SERES 

SERll 

SEREb 

SERES 


M/ 

«/ 

>*/ 

«C0t1PILE criR 


SET lOB 

ECBLOCK D 

ECBLOCK 40006 

ECBLOCK 30Q0B 

ECBLOCK 770B 

NOW WE DEFINE SUB-BLOCKS 

ECALLOC 30D0B 

ECALLOC 30006 

ECALLOC 0 

ECUSER lODOB 

ECUSER □ 

ECUSER 770B 

ORG T.ICEBUF+ISD 

]>ATA HliSERll^nH^SERSb$-,H^SEREa$iH^FOR-REAL^ 

OTHER ROUTINES NUST ALSO BE RE-ASSEtIBLED 


THE SEflUENCE NUMBERS FOR THE UPDATE 

ON A PRE-RELEASE VERSION OF 3.1.h AND MAY BE DIFFERENT FROM THE 


RELEASED VERSION OF B.l.b* 
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338SH3Z 

TM3«I»* 


MC.P03Z33 

333330.. 

t 

U&3 

180833. M 

• 

U.ZOABAqi 

T832lifl« 

enooDJf 

Ut)3 

now33.qi 

80^ 

UD3 

Z33N.qi 

33IV3a 2Y2 VMAHISq »ol WOJJA tfflf 

S2a.8n3 

szza 

pjp.8n3 

T83ZMI- 

T83ZMI.. 

1U8331.T 

d80 

233 

3|iI13f 3U WOM 

M 

M 

801 

T32 

M 

A833 

0 

)t3OJ0>3 

M(103 

0OOOP 

)i30Jfl33 

fl 

ZI83Z 

80Q0b' 

^(30^833 

d583Z 

aoTr 

5(303833 

S5832 

2Jl3OJ0-etJ2 

3HI13a 3tf UOM 

M 

•i 

0OODE 

30JJA33 

M 

1I83Z 

SQooe 

30J.JA33 

35832 

rj 

30J-iA33 

A583Z 

ancoi 

832U33 

ti 

1X832 

D 

832U33 

35832 

ftOTC 

*32U33 

058 32 

«2l-»3UB33r.T 

dftC 

m 

♦ jA3fl-?!01*KrOfl5832OHrPdSfl32*Hr OjJL^SZfH 

ATAQ 


<I3J8P32ZA-3P 36 OZJA TZUP 2 3lifITU0f» 83HT0 

\9* 

\»> 



\" 


^113 3JI'^W3« 


43ZA8 3HA Z4^A3 ti<0IT335'HO3 3TAa<5U 3M7 »0^ Z9V38nUM 33M3ttd3Z 3HT 
3HT TH3J!3^^ia 38 yAfl aiAA J.J.E 30 40lZ$iJV 3ZA3|3P-3flS A MO 

.d.i.6 10 WOl2fl3V €32A3J3?I 


2E.PZ 


PdPZ rtsiftP 



SCOPE 


20.1 

20.2 


CHA.FTER 20 - TABLE OF CONTENTS 


DAYFILE 


20-1 


C, E. DIAGNOSTIC ERROR FILE 


20-2 


March 1969 


20-0 



noo8 


anoTiwo to uaAj ♦ os mwimd 


9.imriMi 


S-0£ 


sjn sous DiTaOnaua .i ,i> 


j.os 

s.o^ 


0-0£ 


»d^l <ln*N 



SCOPE 


ED.l C.E. DIAGNOSTIC PROGRAMS 


PL7 Tape 

Customer Engineering {C.E.> Diagnostic Programs that execute 
under SCOPE 3 are contained on the PL7 program library tape 
which may be obtained from the Distribution Department at 
Palo Alto. The PL7 tape contains the following programs: 


CPU Tests 

Memory Tests 


Peripheral Equip* Tests 

«ALS 

«CMb 



DT3 

«FST 

««MY1 



MTT 

mCT3 

EC3 



LPT 

>^CU1 




CPI 





CRl 





LPl 

These tests 

are virtually 

identical 

with tests of the same 

mnemonic that are found on 

the 

System Maintenance Monitor 

{SMM> tape. 

SMM is the system 

used 

by customer engineers to 


run Diagnostic Programs during preventive maintenance 
periods. inS material on the above listed tests may be found 
in the System Haintenance flonitor CSnh> Reference Manual 
{Pub. No- tiQltiOEDDOT. The following test descriptions refer 
only to internal changes that have been made to certain tests 
for them to execute under SCOPE 3- See the SCOPE 3 Reference 
Manual for the external character!stics of each test for 
running under SCOPE. 


A. Random Number Calls to APR 

1. ALSt FSTt and CT3 call APR for a l5-bit random number 
each time the test is run. 

H. This number is inserted into a byte of the base 
random number in each test. 

Example: The 13—bit number XXXX is obtained from APR. 

ALS 

Base random number BSNl is in location lit: 

{11L> 133^ 5133 4513 3451 3345 B 

XXXX is inserted in the lower byte: 

{llb> 1334 5133 4513 3451 XXXX B 

FST 

Base random number CONST is in location 4tiD-4ti3: 
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■CMbO> DSIS □□□□ 13bl 1000 OOOO B 
{Mbl> b30b OODB 1417 144S 0003 B 
■C4t.E> 0017 DD7S 0014 701.0 DODO B 
•C4t.3> 3bl0 3ED1 4230 4342 0210 B 

XXXX is inserted into each location^ 

i:400> DSIS 0000 1301 1000 XXXX B 
C401> 0300 0002 1417 XXXX 0003 B 
{402> 0017 0073 XXXX 7000 0000 B 
{403> 3010 XXXX 4230 4342 0210 B 


CT3 

Base random number RAN is in location 14S4: 
■C14S4> 7054 S070 1234 3210 4507 B 

XXXX is inserted in the upper byte: 

{1454> XXXX S070 1234 3210 4S07 B 


3. The random number from APR guarantees that a different 
sequence of random instructions will be generated each 
time the sequencer version of the test is run. 


B. Pass Counters 

Each CPU test is pre-set to run a certain number of passes 
in SCOPE mode of operation. The pass count limits for each 
test are: 


T est 


Name 


Limit 


No. of Passes 


ALS 

FST 

CT3 

cno 

MYl 

CUl 

EC2 


SEflPASS 

SEiaPASS 

SE12PASS 

PCX2 

None 

None 

None 


4000 8 
SOOQ B 
4000 B 
40-1000 B 
10 
1 
1 


The execution time in SCOPE mode for these tests can be 
varied by varying the number of passes. 


C. Lb36 Disk File Test - ])T2 


2 0-2 


A programmable READ/URITE section has been added to this 
test for use with SCOPE. This section is selected by a 
parameter in the program call: DT2 -ClOl- 
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After calling test in this mannern the following occurs: 

1. Test writes parameters from PP memory to central 
memory at RA+lDDg as shown below. 

a. Test allows operator to change parameters if desired. 
Enter n.GO to continue. 

3. Test reads parameters back from central memory and 
sets up I/O package accordingly* 

4. Test executes. 

5. Test checks sense switches. 

a. If sense switch S is seti test repeats from 
step 1. 

b. If sense switch 4 is set-, test exits section. 

c. If neither sense switches 4 or S are set-, test 
loops on I/O indefinitely. 


Parameters 
Address Byte 
RA+lOOg 0 

1 

H 

3 

4 

RA+lOlg 0 

1 

a 

3 

4 

RA-»-loag □ 

October llbl 


Descriptions 

Pattern □ = Don''t change 
l=Zeros 
a=0nes 
3=Random 

R/U word count 
13QG- riax 

S02g assumed if left blank 

Ignore parity errors if non-zero. 

No* of words in R/lil buffers to 
transfer to central memory at RA■^a□□g. 

Write if zero. Read if non-zero* 

Not used. 

Not used. 

Position Increment. 

Position Limit. 

Position Initial 
Not used. 
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Address 


RA+lOBg 


Byte Descriptions 

1 Not used. 

9 Head Group Increment. 

3 Head Group Limit- 

^ Head Group Initial. 

0 Not used. 

1 Not used. 

E Sector Increment. 

3 Sector Limit. 

M Sector Initial- 


Note 1 = The first 3Dg words of Read/Urite buffers are 
written into central memory in all sections of 
this test during read operations- 

format in Central Memory^ 

lilUlillil RRRR XXXX XXXX XXXX 


liJUtijU = Write buffer word. 

RRRR = Read buffer word. 

XXXX = OQQQ on compare. 

7777 on miscompare. 

Note E ! Sense switch settings control test per 
Appendix A in SMU Reference Manual. 


D. LL3X Extended Core Storage Test - ECE 
General 


ECE is a test for ECS that was written especially for 
use with SCOPE 3. This test is not described in the 
Sntl Reference Manual but is similar to Sections ll-lL-* 
Ifli and IH of the SUM test called ^ECS'^. ECE tests 
ECS by merely writing data patterns to the field length 
of ECS assigned to the control point and then reading 
back the patterns. A check is made for aborts and data 
differences. 


Entry and Exit Information 

ECE is called by control card or under DIS by the 


ED-M 
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mnemonic: ECE- There are no calling parameters. Sense 
switches are used to indicate how many banks of ECS are 
present in the system: 


1 bank of ECS - 


E 

M 

fi 

lb 


Switches In En 3 OFF 
ON Switch 1 




_ V 




E 

3 

In 3 n 3 


If no ECS errors are detectednthe program will termin¬ 
ate with no dayfile messages or error output. If ECS 
errors are detectedn the following dayfile messages will 
appear: 


SEflUENCER DIAGNOSTIC/ECE/FAILED. 

TYPE X.GO. SEE LINE PRINTER FOR ERROR OUTPUT. 


The final message will remain at control point and CP 
will go into recall until operator types: X.GO. This 
is to call operator''s attention to the error which he 
might not have noticed if message went straight to day- 
file without pausing at the control point. 

The error output on the line printer gives: 

- the failing ECS absolute address 

- the actual data word read 

- the data expected 

- the logical difference of the two 

This format is the same as the SDIi ECS testn howevern 
only the first 4DD errors are listed. 


Other Programs Called 

The Automatic Program Sequencer -CAPRI is called via the 
RA-t-1 mechanism. The call is: APR ClDnXXXXXX}. APR 
returns the following to relative address XXXXXX: 

OQDQ DOOD AAAA BBBB CCCC 

wheren AAAA — CM RA/lDQB 

BBBB -ECS RA/IDDDB 

CCCC -ECS FL/IDQDB 
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Narrative 


ECE 


The main routine of ECE is written in FORTRAN Extended. Upon 
entry-i sense switch settings are checked to determine the 
number of ECS banks in the system. NUPIBITS is the total 
number of bay and bank bits in an ECS address. Then a 
COMPASS sub-program ■CECSTEST> is called to do the actual ECS 
writesi readsi and compares* ECSTEST will return any error 
information to the main program which will format the error 
data for the line printer. 


ECSTEST 


ECSTEST first calls APR to obtain the ECS RA and FL assigned 
to the control point. It then tests ECS with eight patterns 
by doing return jumps to LODBUF to load the appropriate 
pattern in the output bufferi to URITEE to write the pattern 
to ECSt and then to RDANDCK to read data back from ECS and 
check for errors. The patterns used are: all zeroesT all 
onesi alternating words of ones and zeroesi alternating 
words of zeroes and onesi S-E pattern-i E-S patternT parity 
pattern -Codd-evenl'T parity pattern Ceven-odd}. ECS is 
written in blocks of IDODOB. To change the block sizei 
change the value of UDCOUNT. This value must be divisible 
by IDB. To change the maximum number of errors that are out¬ 
put on the line printer-i change MAXERR. All the arrays in 
the first 3 DIMENSION statements in ECE must have the same 
value as MAXERR. 

To use ECS with the RUN compiler-i the mechanism for handling 
parameters must be changed at locations ECSTEST and STORE. 


Subroutines 


LODBUFF 


Enter with the desired pattern in locations PATt PAT+li PAT+En 
PAT + 3. LODBUFF stores the pattern in OUTBUFF. bjDCOUNT must 
be divisible by IQB for LODBUFF to work* 

tjJRITEE 


This subroutine writes OUTBUFF into the entire FL of ECS 
assigned to the control point. Routine exits to blABORT if a 
write abort occurs- 


HD-t 


October llb'l 



SCOPE 


ROANDCK 


This subroutine reads ECS blocks into INBUFF and compares 
each word with the expected data found in OUTBUFF. Com¬ 
pare error information is saved* Routine exits to RABORT 
if a read abort occurs. 


UABORT 


This subroutine is entered when a write abort is detected- 
The failing section numbern ECS addressn and word count is 
saved and the test is aborted without further checking. 


RABORT 


This subroutine is entered when a read abort is detected. 
One word ECS reads are attempted throughout the block 
under test until the failure is detected. If the read 
abort cannot be recreatedn the intermittent parity error 
counter-) INTPARi is incremented by one and the routine 
exits at RAB50 to continue RDANOCIC routine at R3A. If the 
read abort is recreated-! the actual data that was read is 
compared with the expected data at RAB3Q. If the data 
does not comparei the abort was caused by a parity error 
in the data which will be detected when the routine exits 
to R3A. If the data is the samen then the parity bit 
itself failed and the failure information is saved at this 
time because the routine at R3A will not detect this type 
of failure. In summaryi RABORT determines whether the 
read abort was due to an intermittent parity error that 
could not be recreated! or a solid parity failure in the 
data-i or a solid failure in the parity bit. 


October iTtaS 


SB-7 



SCOPE 


20*2 C. E* Diagnostic Error File 


General Description 

The C. E. Diagnostic Error File is provided as a means of recording 
system hardware malfunctions detected by the SCOPE Operating System* 

Errors are recorded via entries from I/O Drivers, PP and CP programs* 

The entry format, file construction and file maintenance are designed 
so as to facilitate its utilization in current programs as well as 
future design efforts* 

The file Is dynamic from Deadstart Time; thus, its FNT and FET entries 
are assembled in CMR* If a program detects a hardware malfunction 
it makes an entry in the file by using one of the formats described 
in the following sections* 

When calls are made via monitor function M*DFM, the entry is placed 
in the Error File buffer (also in CMR)* The dayfile processing routine 
supplements the entry by adding the time of day, jobname, and FNT in¬ 
formation depending on the format used. The dayfile processing routines 
perform buffer maintenance and dump the contents to disk whenever necessary* 
An entry count (byte C.HEC of P.HEC in CMR) is maintained, and if the 
number of entries exceeds a maximum number set by an Installation para¬ 
meter, the operator is notified* 

An Analyzer program examines the Error File, collects the statistical 
data, and outputs the results in usable form for examination by Customer 
Engineering* 
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Entry Calls 

Entries to the Error File are made as follows: 


Entries by FP Programs 

Entries made by PP programs are placed in the PF message buffer using 
the appropriate format described in the following sections- The PP 
then sets D,T1 — 0020, D-T2 — message last word address, sets A M-DFM 
and does RJM R-MTR* The call will be placed in the PP Output Register 
as follows; 


000 L 

0020 

LWA 

1_i 



0001 Process Dayfile Message 
0020 Flag bit for DSD 

LRA LWA of entry in PF message buffer 


Entries by CP Programs 

Entries made by CP programs are to be constructed within their field 
length* A call to MSG is placed in RA+1 with the address of the message 
and a flag (bits 18“23'=20) to MSG to indicate the message is to be 
entered in the Error File* Bits 24-26 specify the length of the entry - 
the maximum length of the entry is six (6) CM words- If the message 
is greater than six (6) CM words in length repeated calls must be made 
by the calling program- 
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Type 1 - SCOPE SYSTEM I/O DRIVER 

39 47 29 23_U_0 


a 

b 

c 

d 

e 

f 

s 

h 

i 

j > 

k 

1 


m 

m 

n 

n 


a Error Code 
b Program Name 
c FPU Number 
d Address of Error 
e FNT address 

f EST ordinal 

g Channel Number 

h Channe1 Status 

i Equipment Status 

j Channel Function Code 

k Equipment Function 
Code 

1 Retry Count 

m Last Position 
n Current Position 


Defined under Error Code Descriptions. 

PPU Program making the entry. 

Computed from contents of D-PPIR 

Address in program where error was detected 

FNT address of file being used when error was 
detected 

EST ordinal of equipment being driven 

I/O Channel being used 

Last 6681 Status returned 

Last Equipment Status returned 

6681 Function Code issued 

Equipment Function Code issued 

Number of attempts to perform an operation 
successfully 

For Stack Processor 

For Stack Processor 


Type 2 - SCOPE SYSTEM PPU PROGRAMS (Non-I/O) 


59 47 29 23 IL 0 

a 

b c 

d 

e 

f 

f 

f 

f 

f 

f 

f 

f 

f 

f 


a Error Code 
b Program Name 
c PPU Number 
d Address of Error 
e FNT Address 
f Message - DISPLAY CODED 
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a Error Code 

b Program Name 7-'Character Program name 

c Address of Error 

d Message Display Coded message 


Type 4 - C* E. DIAGNOSTIC PPU 1/0 TEST 


59_ ^ _ 29 23 _n_0 


a ' 

b c 

d 

e 

f 

g 

h 

i 

j 

k 

1 


m 

m 

n 

n 

0 

P 

p 

p 

P 


a Error Code 

b Program Name 

c PPU Number 

d Address of Error 

e FNT Address 

f Logical Unit Number 

g Channel Number 

h Channel Status 

1 Equipment Status 

j Channel Function Code 

k Equipment Function Code 

1 Retry Count 

m Last Position 

n Current Position 

o Operation Code Last Logical Operation 

p Data Error Data 
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Type 7 - REMOTE TERMINAL (RESPOND, SENTRY, EXPORT/IMPORT, lOD) PROGRAMS 


59 

47 

35 

23 

11 0 

a 

b 

c 

d 

e 

f 

S 

h 

i 

j 


a Error Code 
b Line Number 
c LRB 
d RBB 
e WBB 
f LSB 
g TSB 
h RSB 
i PNB 
j plb 

Type 8-11 not defined. 


TTY Line Number 
Line Request Byte 
Read Buffer Byte 
Write Buffer Byte 
Line Status Byte 
Terminal Status Byte 
Reply Status Byte 
Port Number Byte 
Party Line Byte 
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Error Codes 


The 12-bit error code which is the first byte of every entry is as follows: 


2^^ 


ABC 

c c c 

D D D 

! 

1 D D D 

1_ 



ERROR DESCRIPTIOK 
FORMAT TYPE 
NOT USED 
FNT INDICATOR 


A FNT INDICATOR - When set tells the dayfile processing routines that 
an FNT/FST entry is to be appended to this entry. 

B NOT USED. 

C FORMAT TYPE - Indicates the type of format used in the entry. 

D ERROR DESCRIPTIOK - General description of the type of error that 

occurred. 


Error Code Definitions 


2^^ Must be set when using format types 1, 2, 4, and 5, 

2^^ Not used, 

6 9 

2 - 2 Format types as follows: 


00 Not used 
01 Type 1 
02 Type 2 
03 Type 3 
04 Type 4 
05 Type 5 
06 Type 6 
07 Type 7 
10 Not used 
LI Not used 

12 Not used 

13 Not used 

14 Not used 

15 Not used 

16 Not used 

17 Not used 


System I/O Driver 

System PPU Program Non-I/O 

System CPU Program 

C.E, Diagnostic PPU I/O Test 

C,E* Diagnostic Non-l/O FPU 

C.E- Diagnostic CPU Program 

Control Message (RESPOND or 


Test 

EXPORT/IMPRT) 
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2 ^ - 2 Error Descriptions for Format Type 1 
00 Not used. 

01 Channel Active * Shouldn't be 
02 Channel Inactive - Shouldn't be 
03 Channel Full - Shouldn't be 
04 Channel Einpty - Shouldn't be 

05 Non-zero accumulator upon exit from an 0AM instruction 
(Lost Data Suspected) 

06 Not used. 

07 Not used- 

10 Read Parity Error 

11 Write Parity Error 

12 Function Reject 

13 J(MSN Parity Error 

14 Compare Error 

15 Fail to Feed 

16 Lost Data 

17 RMS Address Error 

20 RMS Checkword Error 

21 Print Error 

22 - 27 Not used. 


Error Descriptions for Format types 2-11 not defined. 
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21.1 DAYFILE PROCESSING 

El-E At deadstartn FNT entries for empty dayfiles are automatically sat 
up at the beginning of the FNT. They are all local and at control 
point zeroi their names are DAYFILE Cthe system dayfile that 
records all messages in the systemn including those that are sent 
to the control point dayfiles> and OFILEIt DFILEEt etc -t one for 
each Control point except control point 

These files do not have normal FET'‘s. Starting at T.DFB in CMRi 
there is one CM word for each dayfilei at T.DFB+0 for DAYFILEi 
T.DFB+1 for DFILEl-i and so on. Each of these words is a pseudo- 
FET of the form! 

VFD 1B/A-,15/B,13/C-,12/Dt1H/D 

where C+T.DFB = the address of the first word of the buffert'tJ.RSPI 
B = the length of the buffer {''LlhlT minus FIRST'^I 

A+C+T.]>FB= the address of the first unused word of the 
buffer •CA=''IN minus FIRST''! 

D = the value that A had just before the buffer was 

most recently dumped. This pointer is not needed 
for reading and writing the dayfilei but the A- 
display program of DSD uses it in order to be 
able to display dayfile messages that have 
already been dumped to disk. 

The dayfile buffers are placed in CMR immediately after these 
pseudo-FET •'s. 

A PP program issues a dayfile message by putting it in its own 
message buffer -Cnormally this is done by calling the PP resident 
sub-routine R.DFtl} and an H.DFti request in its output register. A 
CP program issues a dayfile message by calling PP program HSGi 
which takes the message from the CP program"“s field length and then 
issues it as a PP message. 

Monitor will add two CM words at the beginning of every dayfile 
message! 

''nHH.MM.SS? 

giving the time in hoursn minutes-> and seconds^ andT 

''NNNNNNN- ’ 

where NNNNNNN is the job name taken from the control point area for 
the calling PP. This additional word can be suppressed by a flag 
in the M-DFM requests JANUS suppresses it so as not to have JANUS® 
appearing in a message which really relates to a job whose file is 
being processed by JANUS. In this case-i JANUS formats the first 
word of the message to contain the relevant job name- 

When Monitor sees an M.DFM request! 

1. If bit HM of the output register=ln or if the FNT entry for the 
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correspond!ng dayfile Is in busy statusi monitor does nothing* 
Either of these conditions means monitor has already seen the 
request and is waiting for the buffer to be emptied before 
handling the message. 

E. Otherwise! monitor determines from B and A -Csee the explana¬ 
tion of the pseudo-FET above> whether there is room in the 
buffer for the message. If sot it copies the message into the 
buffer! advances A by the length of the message-i and clears 
the output register. 

3. If there is not enough room in the buffer for the new message-i 
monitor sets the FNT entry for the corresponding dayfile to 
busy status! and sets bit 44 of the requesting PP-'s output 
register to 1. This inhibits further monitor action on the 
request until bit 44 of the output register is D Cset by DSD 
on issuing a stack request to dump the buffer to disk> and the 
status of the FNT entry becomes idle {set by stack processor 
when the dumping is complete.} 

4. DSD periodically scans the PP output registers looking for day 
file requests in which bit 44 is one. When it finds onen it 
issues a stack request to write out the buffer! resets bit 44 
of the dayf i le-requesting PP’'s output register to Oi sets D=A 
in the pseudo-FET for the file! and initializes A to □ in the 
pseudo-FET. When the buffer has been written to disk! stack 
processor will set the FNT status to idle! and monitor will 
then be able to copy the new message into the buffer as in {El 
above• 

In order to minimize the size of the CUR! the system is arranged 
so that the dayfile buffers can be of any size {except that the 
highest-addressed one would have to begin at an address below 
T.DFB+1DQQOB}. Normally! the buffer for DAYFILE is 4DDB CM words 
long! as it will be as long as all the other dayflies put together 
The buffers for the first and last control point dayfiles are 4DB 
words long! as the first control point is normally used for JANUSi 
which does not produce messages for its own control point dayfile! 
and the last control point is generally left empty except for 
occasional jobs initiated by operator type-in. The rest of the 
control point dayfile buffers are IDDB words long. 

This variability means that whenever a dayfile buffer is dumped! 
the system cannot simply write out an integral number of PRU-'s! 
each one being full of information. Instead! DSD must first fill 
up the unused words at the end of the buffer with CM words of the 
form VFD 15/ER+ !4fl/D! i.e. each word being a blank line with a 
format character! which makes it a completely null line if 
printed. Then DSD makes a stack request to write out the smallest 
number of PRU-'s that will at least include the entire buffer. So 
some extraneous material! besides the null lines! may be included 
at the end of the last PRU written on each dump. 


El-E 
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When a job terminatesT lEJ has to copy the Job dayfile onto the 
end of the Jobe's OUTPUT file-i as a single record. If any of the 
dayfile has already been written to diski lEJ rewinds iti reads 
iti and writes it to the OUTPUT file. Then any dayfile in the 
dayfile buffer is copied to the OUTPUT filei and the final record 
is terminated- By consulting the pseudo-FET for the control 
pointT lEJ finds out how long the dayfile buffer really isi and 
so it can discard any extraneous matter at the end of each 
''bufferfuI’'- Howevern the filler words are not filtered out by 
lEJi they do no harm iexcept to waste a little printer time> as 
far as printing the dayfile is concerned! and if the OUTPUT file 
is processed in any other way-i the processing program will have 
to filter them out- Finally-. lEJ sets the dayfile buffer to 
empty -1 and the FNT entry to empty. 

The system dayfile {DAYFILE! keeps on accumulating until the 
operator types in ®n• DAYFILE-ixx.^ This brings up a PP program 
{1DF> that! 

1. Adds a ''dayfile dumped^ message to the system dayfile. 

S- Issues a special M.DFM request to empty the dayfile buffer by 
writing its contents to the file on disk. 

3. Finds a free slot in the FNTi and inserts in it a copy of the 
FNT entry for DAYFILEt with its own control point number in¬ 
serted! then sets the pointers in the original DAYFILE FNT 
entry at control point zero to show an empty file! on which 
subsequent dayfile accumulation will take place. 

H. If the type-in was ''n. DAYFILE i LP. or ''n • DAYFILEiCP.''! the 
disposition code of the DAYFILE that is now at control point 
n is set to OQMUB or UDlOB! so that the control point can be 
dropped with the assurance that the file will be printed or 
punched by JANUS. If the type-in was ''n.DAYFILE!riT.’! IDF 
now requests a tape! and when it has been assigned! gets 
DAYFILE copied to it by putting the statement ^COPYBCDIDAYFILE! 
TAPE}'' into the proper word of the control point area. 

None of these treatments of the system dayfile is carried out with 
reference to the actual length of the system dayfile buffer. So 
the system dayfile buffer! in contrast to the control point dayfile 
buffers! must be exactly as long as an integral number of PRU-'s. 
Otherwise! extraneous words would get written on DAYFILE! and 
would not be filtered out by IDFi or JANUSi or the COPYBCD programs 
when the dayfile came to be dumped. The system dayfile as dumped 
will also contain groups of filler words {VFD 15/5R+ tMS/Q}. These 
ape designed to be absolutely null to a printer! but if the dump 
is to cards or tapei any program that processes it later has to 
recognize and ignore these fillers. 
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